perl regex帮助匹配不同的数值

Question

Looking for some help with this perl regex.

I need to extract (3) items from this filename: abc101.name.aue-abc_p002.20110124.csv

abc 101 .name. aue -abc_p 002 .20110124.csv

where item (3) in this example 002, can also be a max of 4 digits, 0002

Here's my non working regex:

while (my $line=<>) {
  chomp $line;
    if ($line =~ m/abc(d{3}).name.(w{3})_p([0-9]).[0-9].csv/) {
      print $1;
      print $2;
      print $3;
    }
  }

Answer 1

while (my $line=<>) {
  chomp $line;
  if ($line =~ /^abc(\d{3})\.name\.(\w{3})-abc_p(\d{1,4})\.\d+.csv$/) {
    print $1;
    print $2;
    print $3;
  }
}

Answer 2

您缺少一些加号（或{}量词）并转义了点： abc(d{3})\\.name\\.(w{3})_p([0-9]{3,4})\\.[0-9]+\\.csv/

Answer 3

未经测试：/ /^abc(\\d{3})\\.name\\.([az]{3})-abc_p(\\d{1,4})\\.\\d+\\.csv$/