关于目录的操作|*|<>|opendir |readdir|unlink|find2perl|rename|readlink|oct()|utime

#!/usr/bin/perl

use strict;
use warnings;

foreach my $arg(@ARGV)
{
    print "one is $arg
";
}

# perl t.pl *.txt
# one is 1.txt
# one is 2.txt

my @all_files = glob '*';print "@all_files
";

# perl t.pl *.txt
# 1.txt 2.txt check.pl t.pl

my @all_txt = glob '*.txt';print "@all_txt
";

# perl t.pl *.txt
# 1.txt 2.txt

my @all = </hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/*>;
print "@all
";

#/XXX/1.txt /XXX/2.txt /XXX/check.pl /XXX/t.pl

open TXT,'1.txt';
my $readhand = 'TXT';
my @line = readline $readhand;print "$line[4]";

#·······11111@@##￥￥#……￥%&……%*……&*

my $way = '/hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/';opendir DIR,$way;
foreach my $file (readdir DIR)
{
    next if $file =~ /^./;print "my fiels has $way$file
";
}

#my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/2.txt
#my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/check.pl
#my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/t.pl
#my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/1.txt

my $successful=unlink glob '3.*';print "$successful
";

#1
# ls
# 1.txt  2.txt  check.pl  t.pl

foreach my $file (glob "*.txt")
{
    my $newfile = $file;$newfile =~ s/.txt$/.in/;
    if (-e $newfile)
    {
        warn "this file exists
";
    }
    else
    {
        print "successful!,$newfile
"
    }
}

#successful!,1.in
#successful!,2.in

my $link = -l 'egg';my $exit = -e 'egg';my $address = readlink 'egg';print "$link	$exit	$address
";

#my $perladd= readlink '/usr/bin/perl';print "$perladd
";

#1
#
#2.txt

my $eight=345;my $ten= oct($eight);print "$ten
";

#229

my $user = getpwnam 'yuanjingnan';print "$user
";

#1000092