1.经常会碰到打开几个文件进行处理。
2.容易把文件名和文件里的内容混淆。
3.使用钻石操作符可以非常方便的把文件里面内容提取出来。
#! /usr/bin/perl
use 5.010;
open $get_file,'>',"file.txt";
foreach my $file (@ARGV){
say "$file";
printf $get_file("%10s\n",$file);
}
while(<>){
say "$_";
printf $get_file("%10s\n",$_);
};
close $get_file;