脚本编写比赛（4 文件连接）
时间：2008-03-05 来源：starB6
#!/usr/bin/perl -w
use strict;
print "$0\n";
my $file=$0; #得到文件名称
print "$file\n"; my @stat_file=stat($file); my $size=$stat_file[7];
print "$size\n";
use strict;
print "$0\n";
my $file=$0; #得到文件名称
print "$file\n"; my @stat_file=stat($file); my $size=$stat_file[7];
print "$size\n";
相关阅读 更多 +
