请问perl如果想要得到python中 ``` for line in file： ``` 应该怎么写？

Question

请问perl如果想要得到python中

for line in file：

应该怎么写

Answer 1

$file='test.txt';
open(INFO, $file) or die("Could not open  file.");
foreach $line (<INFO>)  {
    print $line;
}
close(INFO);

Answer 2

或者用while循环也可

open A,"$ARGV[0]" or die "$!";
while(<A>){
    chomp;
    print "$_\n";
}
close A;

Answer 3

use File::Slurp;
my @lines = read_file( $filepath );
for my $e ( @lines ) { ... }