Help for this page

Select Code to Download


  1. or download this
    #! perl -sw
use strict;
...
-20,ACI  ,2459.000,00,2479.000
0,ACID  ,4.250,00,4.250
-8,ACO  ,1869.000,00,1877.000
  2. or download this
    # Output
C:\test>201177
...
36,ABS  ,1243.000,00,1207.000

C:\test>
  3. or download this
     
#! perl -sw
use strict;
...
    <=>
    do{ ($b1) = $b =~ m/^([^,]+?),/; $b1; }
} grep{ !m/^\s*$/ } <DATA>)[0 .. 8];