c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @strings = ('x,x', 'yy,yy,yy', 'z,zzz,z,zz', 'foo');
;;
my @ra = map { [ $_, /[xyz]+,/ ] } @strings;
dd \@ra;
;;
@ra = map { [ $_, /[xyz]+,/g ] } @strings;
dd \@ra;
;;
@ra = map { [ $_, scalar(/[xyz]+,/) ] } @strings;
dd \@ra;
;;
dd \@strings;
"
[["x,x", 1], ["yy,yy,yy", 1], ["z,zzz,z,zz", 1], ["foo"]]
[
["x,x", "x,"],
["yy,yy,yy", "yy,", "yy,"],
["z,zzz,z,zz", "z,", "zzz,", "z,"],
["foo"],
]
[["x,x", 1], ["yy,yy,yy", 1], ["z,zzz,z,zz", 1], ["foo", ""]]
["x,x", "yy,yy,yy", "z,zzz,z,zz", "foo"]
See Regexp Quote-Like Operators (in perlop) -> /PATTERN/msixpodualgc -> "Matching in list context".
Update: Edited code example for space.
|