#cat 123.pl
#!/usr/bin/perl -w
while (<>)
{
print $ARGV,"\n";
close ARGV;
}
#perl 123.pl *
或者单命令行处理:
perl -nl -e 'print $ARGV;close ARGV' *
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/230160/viewspace-625804/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
最新文章
- How to Add/Drop/Resize Redo Log with Physical Standby in place. [ID 473442.1]
- How to Change Interconnect/Public Interface IP Subnet in a 10g Cluster
- oracle rac vip oracle10g RAC更改主机public地址及vip
- Modifying the VIP of a Cluster Node
- How to Recreate OCR / Voting Disk Accidentally Deleted [ID 399482.1]
- Configuring raw devices multipath for Oracle Clusterware10g R2 (10.2.0) on RHEL5
- Oracle RAC 重建 OCR 和 Voting disk
- How to Recreate OCR / Voting Disk Accidentally Deleted [ID 399482.1]
- shrink space
- 连载4:子例程的引用
