求一个正则式

cronas

my $notes = 'Q01,R02;Q05,R01;AA';
my @notes = split(/,|;/, $notes);
print "@notes \n";

上述分割的正则式该如何写？
条件： 若只要Q01和Q05

Crisewng

my $notes = 'Q01,R02;Q05,R01;AA';
my @notes = split(/;/, $notes);
my ($a) = split(/,/,$notes[0]);
my ($b) = split(/,/,$notes[1]);
print "$a\t$b\n";

yinyuemi

回复 1# cronas

1. perl -le '$notes = "Q01,R02;Q05,R01;AA";
   
2. my @notes = $notes=~/([^,]+),[^;]+;/g;
   
3. print "@notes"'
   
4. Q01 Q05
   

复制代码

cronas

多谢楼上俩位！怪自己没说清楚。

我只想要：以Q打头，后面是2位数字的字符串

如：my $notes = 'Q01,R02,Q05,R01,AA';
　　分割符有可能是，或；

yinyuemi

回复 4# cronas


    @notes = $notes=~/\b(Q\d+)/g;

cronas

多谢 yinyuemi

一看到正则式俺就头疼