Help for this page

Select Code to Download


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

...
{ID#0000D129}-20060519_091438_00000ZURACF2955.zip
{ID#0000D12C}-20060519_092458_00000ZURACF2957.zip
{ID#0000D12D}-20060519_092911_00000ZURACF2956.zip
  2. or download this
    print map  { $_->[0] }
      sort { $a->[1] <=> $b->[1] }
      map  { [ $_, /(\d+)\.zip/ ] } <DATA>;
  3. or download this
    print sort
      { ($a =~ /(\d+)\.zip/)[0] <=> ($b =~ /(\d+)\.zip/)[0] }
      <DATA>;