我有一个子图数据库,看起来像这样:
t # 3-231, 1
v 0 94
v 1 14
v 2 16
v 3 17
u 0 1 2
u 0 2 2
u 0 3 2
t # 3-232, 1
v 0 14
v 1 94
v 2 19
v 3 91
u 0 1 2
u 0 3 2
u 1 2 2
t # 3-233, 1
v 0 17
v 1 91
v 2 16
v 3 94
u 0 1 2
u 0 3 2
u 1 2 2
t # 3-234, 1
v 0 90
v 1 93
v 2 102
v 3 95
u 0 1 2
u 0 3 2
u 1 2 2
我想检索包含以下模式的所有事务:'u 0 1 2'和'u 0 2 2'以及事务ID(例如,行以t#开头)。
我使用以下代码来完成这项工作:
#!/usr/bin/perl -w
use strict;
my $input = shift @ARGV or die $!;
open (FILE, "$input") or die $!;
while (<FILE>) {
my @fields = ('t', 'u\ 0\ 1', 'u\ 0\ 2');
my $field_regex = join( "|", @fields );
my @field_lines;
push( @field_lines, $_ ) if ( /^(?:$field_regex) / );
last if @field_lines == @fields;
push @field_lines, "";
print join( "\n", sort @field_lines );
}
close FILE;
但是,当只有一行匹配时,它将检索模式,例如:
t # 3-231, 1
u 0 1 2
u 0 2 2
t # 3-232, 1
u 0 1 2
t # 3-233, 1
u 0 1 2
t # 3-233, 1
u 0 1 2
我的最终目标是检索与我的正则表达式完全匹配的交易,例如
t # 3-231, 1
u 0 1 2
u 0 2 2
感谢您的帮助!
看
一种方式:保留当前的交易ID,并将感兴趣的行存储在与该交易ID密钥关联的arrayref中的哈希中。
use warnings;
use strict;
use feature 'say';
use Data::Dump qw(dd);
my @fields = ('u 0 1', 'u 0 2');
my $field_regex = join '|', map { quotemeta } @fields;
my (%trans, $tid);
while (<>) {
chomp;
if (/^t #/) {
$tid = $_;
next;
}
push @{$trans{$tid}}, $_ if /$field_regex/;
}
dd %trans;
# foreach my $tid (sort keys %trans) {
# say $tid;
# say for @{$trans{$tid}};
# }
为了简便起见,在while (<>)
调用程序(或STDIN
)时,我使用它逐行读取命令行上给出的所有文件。我Data::Dump
用来显示一个复杂的数据结构;这是Data::Dumper
核心。
该qotemeta逃脱所有ASCI非“字”字,可以甩开正则表达式,这包括空间。
上面的程序通常会从文件中丢失事务ID的顺序,因为哈希键是无序的,而它却保留了每个ID的行顺序,因为它们位于数组中。如果需要,这并不难补救。
仅使用提供的数据文件进行了测试。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句