文件名称：Perl文件处理及例子-Perl training ppt
文件大小：1.16MB
文件格式：PPT
更新时间：2024-05-15 02:48:16
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 =