Perl正则表达式问题！

Question

我正在从文件中读取一个字符串：

2343,0,1,0 ... 500次...... 3

以上是从文件中读取$_的示例。 它是任意数字，后跟500逗号分隔0/1然后是数字3。

while(<FILE>){
    my $string = $_;
    chomp($string);
    my $a = chop($string);
    my $found;
    if($string=~m/^[0-9]*\,((0,|1,){$i})/){         
        $found = $&.$a;
        print OTH $found,"\n";
        }   
}

我正在使用chop来从字符串的末尾获取数字3。 然后匹配第一个数字，然后$i出现次数为0，或1。我遇到的问题是chop不工作弦上的某些原因。 在if语句中，当我尝试连接匹配和切断的数字时，我返回的是$&的内容。

我也试过用my $a = substr $a,-1,1; 获得3号，这也没有奏效。

奇怪的是，这个代码在Windows上的Eclipse中工作，当我把它放到Linux服务器上时，它将无法工作。 谁能发现我正在制造的愚蠢错误？

Answer 1

作为一项规则，我倾向于总是在我的数据中允许看不见的空格。 我发现它使我的代码更加健壮，期望有人没有在行或字符串的末尾看到额外的空格（如写入日志）。 所以我认为这可以解决你的问题：

my ( $a ) = $string =~ /(\S)\s*$/;

当然，既然你知道你在寻找一个数字，那么最好更精确：

my ( $a ) = $string =~ /(\d+)\s*$/;

Answer 2

照顾行结束...我不能在这里测试，但我假设你只是切换一个换行符。 首先尝试修剪你的弦然后砍它。 例如，参见http://www.somacon.com/p114.php

Answer 3

为什么不使用正则表达式一次性取出你需要的所有东西，而不是试图这样做呢？

my $x = "4123,0,1,0,1,4";
$x =~ /^[0-9]+,((?:0,|1,){4})([0-9]+)/;
print "$1\n$2\n";

生产：

0,1,0,1,
4

这几乎就是你要找的东西。 两组所需答案都在匹配变量中。

请注意，我在0,1的前面包含了？：匹配，以便它不会在输出匹配变量中结束。

Answer 4

我真的不确定你想要在这里实现什么，但我已经尝试了Win32和Solaris上的代码并且它可以工作。 你确定$ i是正确的数字吗？ 可能更容易使用*或？

use strict;
use warnings;

while(<DATA>){
    my $string = $_;
    chomp($string);
    my $a = chop($string);
    print "$string\n";
    my $found;
    if($string=~m/^[0-9]*\,((0,|1,)*)/){         
        $found = $&.$a;
        print $found,"\n";
        }   
}



__DATA__
2343,0,1,0,0,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,0,3

Answer 5

在这种情况下我没有太多理由使用正则表达式，只需使用split 。

use strict;
use warnings;
use autodie; # open will now die on failure

my %data;

{
  # limit the scope of $fh
  open my $fh, '<', 'test.data';
  while(<$fh>){
    chomp;
    s(\s+){}g; # remove all spaces

    my($number,@bin) = split ',', $_;
    # uncomment if you want to throw away the 3
    # pop @bin if $bin[-1] == 3;
    $data{$number} = \@bin;
  }
  close $fh;
}

如果你想要的只是3

while(<$fh>){
  # the .* forces it to look for the last set of numbers
  my($last_number) = /.*([0-9]+)/;
}