Help for this page

Select Code to Download

Select or download this

use Date::Manip;
use Text::CSV;
...
    $csv->combine(@f);
    print $csv->string . "\n";
}

Select or download this

ID,21,11814,1,11989,150,Y,2012-10-25-23.36.25.0000,TEST
ID,22,11814,1,11989,150,Y,2012-10-25-23.36.25.0000,TEST