Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;

...
        ( undef, $col1[@col1], undef, $col2[@col2] ) = unpack $fmt, $_
+;
    }
}

Select or download this

[ 3:18:33.32] P:\test>440187
NAME ONE, NAME TWO THREE, NAME FOUR ..., NAME FIVE - SIX, NAME SEVEN, 
+NAME EIGHT ..., NAME NINE - TEN, NAME ELEVEN, NAME TWELVE,
...

more blah
blah blah