Select Code to Download

Select or download this

 
          if (/$hit[0]/ || /$strike[1]/) {

Select or download this
```
 
     if (/$hit[0] && /$strike[1]/) {
```

Select or download this

 
     1028804576 fred@yahoo.com fred mother

Select or download this

 
     1028804571 mum@yahoo mother fred    # This would also match, and 
+would be found earlier
#                        ^^^^^^ ^^^^
     1028804572 wilfred@hotmail wilf mother    # This would also match
+ and be found earlier
#                 ^^^^              ^^^^^^

Select or download this

 
     if ( /$userid[ \t]+$password$/ ) { 
     # [ \t]+ means one or more spaces or tabs ($/) means at the end o
+f the line.

Select or download this

 
     $userid = quotemeta $userid;
     $password = quotemeta $password;
     if ( /$userid[ \t]+$password$/ ) {

Select or download this

     if ( /\Q$userid\E[ \t]+\Q$password$\E/ ) {

Select or download this

 
#! perl -w

...
 if (! $flag) { # didn't find it in the array
     print "didnt find it";
 }