perl - 从 Perl 文件中拆分字符串

Question

所以，我有一个文件可以这样阅读

Some.Text~~~Some big text with spaces and numbers and something~~~Some.Text2~~~Again some big test, etc~~~Text~~~Big text~~~And so on

我想要的是，如果 $x 与 Some.Text 匹配，例如，我怎样才能得到一个带有“一些带有空格和数字的大文本和一些东西”的变量，或者它与“Some.Text2”匹配以获得“再次进行一些大测试”等”。

open FILE, "<cats.txt" or die $!;
while (<FILE>) {
chomp;
my @values = split('~~~', $_);
  foreach my $val (@values) {
    print "$val\n" if ($val eq $x)
  }

  exit 0;
}
close FILE;

从现在开始我不知道该怎么办。如果“Some.text”与我的变量匹配，我只是设法打印了它。

Answer 1

splice 可用于从 @values 中删除元素成对:

while(my ($matcher, $printer) = splice(@values, 0, 2)) {
    print $printer if $matcher eq $x;
}

或者，如果您需要离开 @values完好无损，您可以使用 c 样式循环:

for (my $i=0; $i<@values; $i+=2) {
    print $values[$i+1] if $values[$i] eq $x;
}