Reg. Perl script to read comma seperated file.

[Shashank Khanvilkar]

Hi,
I do know how to read the comma seperated file using the following script

while ($lines = <INFH>){
    if ($lines =~ /^\s*$/){
        last;
    }
    @flds = split(/,/, $lines);
    ($year, $paperName, $authors, $conf, $fileName, $abstract) = @flds;
    print "$year $paperName, $fileName\n\n";
}

However I am facing one tiny problem..
My CSV file has data like this:
2003, Distibuted Multimedia Document Management Systems, "A. Khokhar, and A.
Ghafoor, ", IEEE... ,

Thus i want to read author's as a single field..
thus $authors should  be "A. Khokhar, and A. Ghafoor,"

Any ideas on how to modify this script will be appreciated.
Shashank



-- 
Regards
Shashank
http://mia.ece.uic.edu/~papers



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]