文件名称:Perl文件处理及例子-Perl training ppt
文件大小:1.16MB
文件格式:PPT
更新时间:2021-04-25 09:01:36
Perl Training Perl文件处理及例子2 4 前面简单例子的展开版本 expand my $filename=shift; if (! -f $filename) { die “$filename is not a real file.\n”; } open(FILE,”<”,$filename) or die “Can’t open file $filename”; while (my $line =