yangfeng@sbuild:~/perl$ cat pwd.pl
#!/usr/bin/perl
$result=`pwd`;
@number=split(/\//,$result);
print "$result";
print "@number\n";
my @listpl=<*.pl>;
print "@listpl\n";
yangfeng@sbuild:~/perl$ ./pwd.pl
/home/yangfeng/perl
home yangfeng perl
argv.pl chdir.pl chomp.pl foreach.pl getcwd.pl glue.pl hash.pl localtime.pl max.pl perl.pl pwd.pl re.pl shift.pl shift1.pl test.pl
yangfeng@sbuild:~/perl$
阅读(2301) | 评论(0) | 转发(0) |
