Perl,读取文本文件,保存列以使用列元素打开其他文件

这是因为您覆盖了 $column2 在每次循环中,当你离开循环后,你得到了最后一个结果( text3.txt

您可以在循环中写入文件,如本例所示。它还显示了如何使用正确的3-arg open

use warnings;
use strict;

my $input_file = 'data.txt';
my $output_file = 'out.txt';

open my $fh, '<', $input_file or die $!;
open my $wfh, '>', $output_file or die $!;

while (<$fh>){
    chomp;
    next if /^\</;
    next if /^\s*$/;

    my ($c1, $c2, $c3) = split /\s/, $_;

    print $wfh "$c2\n";
}

将其作为输入文件:

< this is a header

col1 col2 col3
blablabla text1.txt blablabla
blablabla text2.txt blablabla
blablabla text3.txt blablabla

col2
text1.txt
text2.txt
text3.txt

...在输出文件中。你必须弄清楚如何过滤第一行。

use warnings;
use strict;

my $input_file = 'data.txt';

open my $fh, '<', $input_file or die $!;

my @saved_entries;

while (<$fh>){
    chomp;
    next if /^\</;
    next if /^\s*$/;
    push @saved_entries, (split /\s/, $_)[1];
}

for (@saved_entries){
    print "$_\n";
}

注意,我在这里过于冗长,尽可能接近操作代码。