Mega Code Archive
Categories
/
Perl
/
Regular Expression
Match the one or more alphanumerics
$p = "This is a pattern test."; if ($p =~ /(\w)*/){ print "$1\n"; } if ($p =~ /(\w)+/){ print "$1\n"; }