Help for this page

Select Code to Download


  1. or download this
    
@files = grep {/^nc$year.*\.log$/} @files;
  2. or download this
    
@files = grep {/^nc.$year.*\.log$/} @files;
  3. or download this
    perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'