Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -l

...
    sort { $a->[1] cmp $b->[1] }
    map { [$_, ( /blahblah/ ? 0 : 1 ) . $_] }
    <>;
  2. or download this
    (
    ["bat 1 blahblah", "1bat 1 blahblah"],
...
    ["bar 1 zot", "0bar 1 zot"],
    ["bar 2 zot", "0bar 2 zot"]
)
  3. or download this
    #!/usr/bin/perl -l

...
    sort
    map { ( /blahblah/ ? 0 : 1 ) . $_ }
    <>;