Help for this page

Select Code to Download


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

...
{ID#0000D129}-20060519_091438_00000ZURACF2955.zip
{ID#0000D12C}-20060519_092458_00000ZURACF2957.zip
{ID#0000D12D}-20060519_092911_00000ZURACF2956.zip
  2. or download this
    @file=map { substr $_, 7 }
  sort map sprintf("%06d", /(\d+)\.zip/) . $_, @file;