Help for this page

Select Code to Download


  1. or download this
    foreach $pat (@patterns) {
if ( /$pat[1]/ && /$pat[2]/) {
...
if ( /$pat[1]/ && /$pat[3]/) {
print "theselines";
if ( /$pat[1]/ && /$pat[4]/) {
  2. or download this
    chomp(my $var = <STDIN>);
$var = qr($var);
...
{
   print if /$var/ && /$pattern/;
}