关于文件夹的操作

 1 #!/usr/bin/perl
 2 
 3 use strict;
 4 use warnings;
 5 
 6 foreach my $arg(@ARGV)
 7 {
 8     print "one is $argn";
 9 }
10 
11 # perl t.pl *.txt
12 # one is 1.txt
13 # one is 2.txt
14 
15 my @all_files = glob ‘*‘;print "@all_filesn";
16 
17 # perl t.pl *.txt
18 # 1.txt 2.txt check.pl t.pl
19 
20 my @all_txt = glob ‘*.txt‘;print "@all_txtn";
21 
22 # perl t.pl *.txt
23 # 1.txt 2.txt
24 
25 my @all = </hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/*>;
26 print "@alln";
27 
28 #/XXX/1.txt /XXX/2.txt /XXX/check.pl /XXX/t.pl
29 
30 open TXT,‘1.txt‘;
31 my $readhand = ‘TXT‘;
32 my @line = readline $readhand;print "$line[4]";
33 
34 #·······[email?protected]@##￥￥#……￥%&……%*……&*
35 
36 my $way = ‘/hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/‘;opendir DIR,$way;
37 foreach my $file (readdir DIR)
38 {
39     next if $file =~ /^./;print "my fiels has $way$filen";
40 }
41 
42 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/2.txt
43 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/check.pl
44 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/t.pl
45 #my fiels has /hwfssz5/ST_DIVERSITY/B10K/PUB/USER/yuanjingnan/linkdata/1.txt
46 
47 my $successful=unlink glob ‘3.*‘;print "$successfuln";
48 
49 #1
50 # ls
51 # 1.txt  2.txt  check.pl  t.pl
52 
53 foreach my $file (glob "*.txt")
54 {
55     my $newfile = $file;$newfile =~ s/.txt$/.in/;
56     if (-e $newfile)
57     {
58         warn "this file existsn";
59     }
60     else
61     {
62         print "successful!,$newfilen"
63     }
64 }
65 
66 #successful!,1.in
67 #successful!,2.in
68 
69 my $link = -l ‘egg‘;my $exit = -e ‘egg‘;my $address = readlink ‘egg‘;print "$linkt$exitt$addressn";
70 
71 #my $perladd= readlink ‘/usr/bin/perl‘;print "$perladdn";
72 
73 #1
74 #
75 #2.txt
76 
77 my $eight=345;my $ten= oct($eight);print "$tenn";
78 
79 #229
80 
81 my $user = getpwnam ‘yuanjingnan‘;print "$usern";
82 
83 #1000092