Help for this page

Select Code to Download


  1. or download this
    open my $fh, "<", "hard-coded-filename";
    # instead of: open my $fh "<hard-coded-filename"
    
    system qw[somecommand -o -p -q]; # hard-coded arguments
    # instead of: system "somecommand -o -p -q"
    
  2. or download this
    join "|", map quotemeta, sort { length $b <=> length $a } keys %dict;