Question

我的代码部分有问题：

foreach my $line(keys %results){
     print Dump($post) if $results{$line} == 1;
}

我需要它只打印一次'print Dump（$ post）'

以下是所有部分

my $f1 = "/home/shaman/Desktop/data.txt";
my $f2 = "/home/shaman/Desktop/ini.txt";


my %results = (); 
open FILE1, "$f1" or die "Could not open file: $! \n";

while(my $line = <FILE1>){
    $results{$line}=1;
}
close(FILE1); 


open FILE2, "$f2" or die "Could not open file: $! \n";
while(my $line =<FILE2>) {  
    $results{$line}++;
}
close(FILE2);  

foreach my $line(keys %results){
    print Dump($post) if $results{$line} == 1;
}

$ post包含相同的行，但是如果我逐行打印，我会得到randomed行...

如果我运行代码，它会重新打印4-5次打印后，它取决于帖子中有多少行（线条来自dinamicly）但我需要张贴一次...

Answer 1

怎么样：

my $dump_done = 0;
foreach my $line(keys %results){
    if ($results{$line} == 1 and !$dump_done) {
        print Dump($post);
        $dump_done = 1;
    }
}

Answer 2

听起来你只想打印一次，只要你的结果中至少有一行等于一行。

如果这是正确的，您可以对代码进行简单的修改：

foreach my $line(keys %results){
     if ($results{$line} == 1)
     {
          print Dump($post);
          last;
     }
}

一旦找到一个匹配项，就会退出循环。

如果由于其他原因需要完成整个循环，请使用M42的解决方案。

如何在txt文件Perl中将每一行添加到单行？

2 个答案: