#!/perl/ -w $pat=''; #thing to search for #line 3 while(){ print 'Enter the pattern'; chomp($pat =<stdin>); print 'enter the string:'; chomp($_ = <stdin>); #10 if($_ =- m/$pat/g) { print "true\n"; } else{print "false\n";} }
In reply to pattern match operator by ostra
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |