这个正则匹配应该怎么写

黑色阳光_cu

#!/bin/env perl

use strict;
use warnings;

my $string = qq('first'"second"'third ');
my @ar = $string =~ /(?|'(.*?)'|"(.*?)")/g;
die join("\n", @ar);

黑色阳光_cu

[oracle@imeg02 perl]$ perl -c i.pl
Sequence (?|...) not recognized in regex; marked by
99超人 发表于 2010-06-17 15:29

5.10才可以。

黑色阳光_cu

my $string = qq('first'"second"'third ');
my @ar = $string =~ /(['"])(.*?)\1/g;
die join("\n", @ar[grep { $_ % 2 } (0 .. $#ar)]);


单数下标的elem~~~

yybmsrs

\w+不就行了？

zhasm

5.80也可以呀，这样试一下：

1. #!/usr/bin/perl -w
   
2. my $str=qq('first'"second"'third');
   
3. my @array= $str =~ /(?<=['"])([^'"]+)(?=['"])/g;

复制代码

通过使用lookaround，问题就解决了。@array里的内容即为所求。

zhasm

回复 8# yybmsrs

\w+的确是个好点子。这是从内容本身特征，做出的解法。其它从'"入手的，是找的界定符的特征。就看目标内容是不是全由\w+组成了，呵呵。