> does not match. Perhaps \cJ is not white space?
\cJ tested as \s here.
#! perl -l
%x=(m=>"\cM",j=>"\cJ",t=>"\t", n=>"\n",r=>"\r", v=>"\v", h=>"\h", foo=>"foo",
sp=>' ');
while (my ($k,$v)=each %x) {
printf "%s $k=>'$v' \n", ($v =~ /\s/ ? "yes" : "no");
}
=====================================
' s m=>'
no foo=>'foo'
no v=>'v'
yes n=>'
'
no h=>'h'
yes sp=>' '
' s r=>'
yes j=>'
'
yes t=>' '
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
