Help for this page

Select Code to Download


  1. or download this
    # Create some files
$touch {1..3}{a..c}.{ctl,log}
...
$echo "SRS_222" >> 1c.ctl
$echo "SRS_333" >> 1c.log
$echo 'SRS_111SRS_2222SRS_3333' > 1a.log
  2. or download this
    #!/usr/bin/env perl
use strict;
...

print join '|', sort {$a <=> $b} keys %srss;
# 111|222|333|2222|3333
  3. or download this
    #!/usr/bin/env perl
use strict;
...
  },
}