Mega Code Archive

 

Categories / Perl / Regular Expression

 

Inline Modifiers

#!/usr/bin/perl use warnings; use strict; my $string = "There's more than One Way to do it!"; print "Enter a test expression: "; my $pat = <STDIN>; chomp($pat); if ($string =~ /$pat/) {     print "'$pat' matches the sample string.\n"; } else {     print "No match found for '$pat'"; }