Need to use csv file header instead of index.

[meaculpa]

I have a csv file, and iam checking for a condition like :

if (@columns=parse_csv($_))
   {
    #print $columns[11]."__\n";

    if($columns[11] =~ m/$field/i && $columns[12] ge "$\rating" )
    {
     writeLog("Name: $columns[5] \n\t Rating: $columns[12]\n");

     OpenCv($columns[5]);

Instead of this index I need to use the header names, without adding
any new module. Please tell me a solution .



PS : Column 11 is Class

Column 12 is Age

Column 5 is Name.


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/