正则表达式匹配不会在 perl 中产生输出

Question

我有一个看起来像这样的测试文件：

t # 3-0, 1
v 0 0
v 1 19
v 2 2
u 0 1 2
u 0 2 2
u 1 2 2
t # 3-1, 1
v 0 0
v 1 15
v 2 2
u 0 1 2
u 0 2 2
u 1 2 2
t # 3-2, 1
v 0 0
v 1 17
v 2 2
u 0 1 2
u 0 2 2
u 1 2 2
t # 3-3, 1
v 0 0
v 1 18
v 2 7
u 0 1 2
u 0 2 2
u 1 2 2

我写了下面的代码来匹配交易的最后三行（每个交易都以 开头t #）

#!/usr/bin/perl -w
    
use strict;
    
my $input = shift @ARGV or die $!; 
    
open (FILE, "$input") or die $!;

LOOP: while (<FILE>) {
         if (m/^(t\h*#\h*[0-9,\h-]+)/) {
             my $transaction_id = $1;
             while (<FILE>) {
                if (m/^(u\h+[0]\h+[1]\h+[2])/) {
                    my $edge_1 = $1;
                    while (<FILE>) {
                        if (m/^(u\h+[0]\h+[2]\h+[2])/) {
                            my $edge_2 = $1;
                            while (<FILE>) {
                                if (m/^(u\h+[1]\h+[2]\h+[2])/) {
                                    my $edge_3 = $1;
                                    print $transaction_id . "\t" . $edge_1 . "\t" . $edge_2 . "\t" . $edge_3 . "\n";
                                    next LOOP;
                                         }
                                     }
                                 }
                             }
                         }
                     }
                 }
             }
    
close FILE;

但是，它不会打印任何结果。当我编译我的程序时，它运行没有错误。我的最终目标是产生这样的输出，我输出子图“u 0 1 2”、“u 0 2 2”和“u 1 2 2”的边：

t # 3-0, 1   u 0 1 2   u 0 2 2   u 1 2 2
t # 3-1, 1   u 0 1 2   u 0 2 2   u 1 2 2
t # 3-2, 1   u 0 1 2   u 0 2 2   u 1 2 2
t # 3-3, 1   u 0 1 2   u 0 2 2   u 1 2 2

Answer 1

一种方法：将事务的所有行保存在缓冲区中，当您获得新的事务 ID 时，存储前一行以及该缓冲区中的最后三行

use warnings;
use strict;
use feature 'say';

my (@transactions, @trans_lines, $tid);

while (<>) { 
    chomp;

    if (/^(t\s*#\s*[0-9,\s-]+)/) { 
        if (not $tid) {      
            $tid = $1;   # the very first one starts
            next;
        }

        # Store previous id and its last three lines, reset
        push @transactions, [ $tid, @trans_lines[-3..-1] ];
        $tid = $1; 
        @trans_lines = ()
    }   

    push @trans_lines, $_; 
}


say "@$_" for @transactions;

这将所有事务存储在一个数组中，因此它们很容易迭代并维护文件中的顺序。这支持使用问题中展示的结果。但是对于数组，不能轻易引用特定的数组，如果感兴趣能够查找特定的 id，请考虑使用数组引用的散列代替，就像在相关问题中一样。

上面的代码依赖于事务中总是有三行，正如问题中所隐含的那样。我建议添加支票。

该构造while (<>)读取命令行上给出的所有文件的行，或STDIN.

对已发布代码的一些评论

• 该use warnings;比使用更好的-w开关

• 该$!变量保存错误字符串。虽然它确实应该无处不在，但如果@ARGV为空，则shift返回 anundef并且没有错误；所以$!没有设置。相反，做类似的事情

  my $file = shift @ARGV  // die "Usage: $0 file\n";
  

  或者，更好的是，使用更完整的使用消息等调用您的例程。

• 使用词法文件句柄, open my $fh, '<', $file or die $!;，因为它们在多个方面明显优于 globs ( FH)

• 没有必要双引号一个单独的标量变量，因为它无论如何都会被评估（而过度引用在某些情况下甚至会导致微妙的问题）

• 从同一资源（此处为文件句柄）读取的嵌套循环是合法的并且有其用途，但它增加了一层复杂性并使代码更难跟踪。我会非常非常谨慎地使用它。多级嵌套增加了更多的复杂性。

我不太明白为什么问题中的代码不起作用。添加打印报表？