Perl：遍历文件中的行

Question

print "enter file name\n";
$infile = <>;
open IN, "$infile";
$string1 = $line; #store first line of file as $string1
while($line = <IN>){
  $string2 = string1 + $line;
  print "$string2\n";
}

我正在尝试编写一个函数，提示用户输入文件名，打开文件，将文件的第一行存储为$string1。然后它遍历文件中的下一行并将$string1 添加到每一行并打印输出。

如果我有一个文件包含

10
5
6
7

$string1 应该是 10。输出应该是：

15
16
17

我当前的程序似乎只打印文件的内容，而不是将第一行添加到其他每一行。

Answer 1

当您尝试提供$string1 时，$line 为空。

可能是这样的：

print "enter file name\n";
$infile = <>;
open IN, "$infile";
$string1 = <IN>; #store first line of file as $string1
chomp($string1);
while($line = <IN>){
  chomp($line);
  $string2 = $line+$string1;
  print( $string2 . "\n");
}

chomp() 是为了从字符串中删除换行符。