#cat 123.pl
#!/usr/bin/perl -w
while (<>)
{
print $ARGV,"\n";
close ARGV;
}
#perl 123.pl *
或者单命令行处理:
perl -nl -e 'print $ARGV;close ARGV' *
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/230160/viewspace-625804/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/230160/viewspace-625804/