#下面的代码,按行读取文件中内容:
$count = 0;
while (defined(my $line=<>)){
chomp($line);
$count++;
print "$line,,,$count\n";
}
将上面的代码保存未Test5.pl。
读取的文件名是test5.txt。
保存后打开cmd,输入下面内容:
即可按行读取文件内容。
或者再komode中调试时,在下面的位置输入参数:(参数以空格分隔。)
#下面的代码,按行读取文件中内容:
$count = 0;
while (defined(my $line=<>)){
chomp($line);
$count++;
print "$line,,,$count\n";
}
将上面的代码保存未Test5.pl。
读取的文件名是test5.txt。
保存后打开cmd,输入下面内容:
即可按行读取文件内容。
或者再komode中调试时,在下面的位置输入参数:(参数以空格分隔。)