Re: CSV File Parsing

[Generoso]

Maybe this is what you are taring to do.

#!/usr/bin/perl
# 
use strict;
use warnings;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new();
#open (CSV, "<", $file_to_parse) or die "Could not open '$file' $!<br>
+";
while (my $line = <DATA>) {
    chomp $line;
    if ($csv->parse($line)) {
        my @columns = $csv->fields();
        $columns[0]  =~ s/ //g;
        $columns[2]  =~ s/ //g;
        if( ($columns[0]=~/^[0-9]+$/) && ($columns[2]=~/^[0-9]+$/) ) {
            print "Format ok\n"; foreach (@columns){print $_,"\t";};
            print "\n";
        }else{
            print "Wrong Format\n";
            print "First $columns[0] and tird $columns[2] have to be n
+umeric\n";
        }
        }else{
            my $err = $csv->error_input;
            print "<br><b>$err Failed to parse line, please call for h
+elp!</b><br>" if $err;
        }
}
__DATA__
12345,John Dow,           123456
54321,ANDREW MALL,        8888882
987865,BOGGS BUNNY,       2234566
88777,CLARK KENT R,         888666
126677,CLARK KENT R,     xx345778
112222,DAVOLIO DARK F,          3321777

Results

perl "E:\perl_TK\perlCSV.pl"
Process started >>>
Format ok
12345    John Dow    123456    
Format ok
54321    ANDREW MALL    8888882    
Format ok
987865    BOGGS BUNNY    2234566    
Format ok
88777    CLARK KENT R    888666    
Wrong Format
First 126677 and tird xx345778 have to be numeric
Format ok
112222    DAVOLIO DARK F    3321777    
<<< Process finished.