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

 #!/usr/bin/perl

 use strict;
 use warnings;

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

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

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

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

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

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

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

 #/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\n";
 }

 #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\n";

 #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\n";
     }
     else
     {
         print "successful!,$newfile\n"
     }
 }

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

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

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

 #1
 #
 #2.txt

 my $eight=;my $ten= oct($eight);print "$ten\n";

 #

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

 #