Re^3: Regex to capture every readable character except COMMA

Good points! So maybe a regex like this, using a positive lookahead, would be more useful here:

use strict;
use warnings;

my $regex = qr/ ([^,]+) (?=\Z|,) /x;
my $var   = 'abcd,ef,,ghijkl,mnop';

print "$1\n" while $var =~ /$regex/g;
[download]

Output:

18:27 >perl 827_SoPW.pl
abcd
ef
ghijkl
mnop

18:27 >
[download]

But then, the same result can be obtained by discarding the regex and using split instead:

use strict;
use warnings;

my $var     = 'abcd,ef,,ghijkl,mnop';
my @matches = split /,/, $var;

$_ && print "$_\n" for @matches;
[download]

;-)

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re^3: Regex to capture every readable character except COMMA Select or Download Code

Replies are listed 'Best First'.
Re^4: Regex to capture every readable character except COMMA by AnomalousMonk (Archbishop) on Jan 09, 2014 at 18:27 UTC
My interpretation of the OP is that the OPer is trying to capture entire strings that contain no commas. If one is trying to extract sub-string sequences that contain no commas, `split` seems like a good way to go. BTW: For the latter purpose, a regex without explicit capture or look-ahead can also be used: `>perl -wMstrict -le "my $regex = qr/ [^,]+ /x; my $var = 'abcd,ef,,ghijkl,mnop'; printf qq{'$_' } for $var =~ /$regex/g; " 'abcd' 'ef' 'ghijkl' 'mnop'` [download] (Although as Anonymonk has pointed out below, the latter interpretation puts you dangerously close to territory dominated by Text::CSV and its ilk.)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Regex to capture every readable character except COMMA
by AnomalousMonk (Archbishop) on Jan 09, 2014 at 18:27 UTC

My interpretation of the OP is that the OPer is trying to capture entire strings that contain no commas. If one is trying to extract sub-string sequences that contain no commas, split seems like a good way to go. BTW: For the latter purpose, a regex without explicit capture or look-ahead can also be used:

>perl -wMstrict -le
"my $regex = qr/ [^,]+ /x;
 my $var   = 'abcd,ef,,ghijkl,mnop';
 printf qq{'$_' } for $var =~ /$regex/g;
"
'abcd' 'ef' 'ghijkl' 'mnop'
[download]

(Although as Anonymonk has pointed out below, the latter interpretation puts you dangerously close to territory dominated by Text::CSV and its ilk.)

[reply]
[d/l]
[select]