Help for this page

Select Code to Download

Select or download this

#! perl -l

...
print "   1 : ", $s =~ $m ? "YES" : "NO?";
print "   2 : ", $s =~ qr/^def$/xms ? "YES" : "NO?";
print "   3 : ", $s =~ qr/def/xms ? "YES" : "NO?";

Select or download this

$ perl5.8.8 sq.pl
Match? "abc
...
   1 : NO?
   2 : NO?
   3 : YES