小编Dan*_*ilo的帖子

我想逐行读取文件,每行分割字符串并打印出来.但脚本只打印偶数行.

文件:

line1:item1
line2:item2
line3:item3
line4:item4
line5:item5
line6:item6

和脚本:

$FILE = "file";
open($FILE, "<", "file") or die("Could not open file.");

while (<$FILE>) {
    my $number = (split ":", <$FILE>)[1];
    print $number;
}

输出:

item2
item4
item6