boscowang 's Profile

################################################## #####################

# Name : read_csv

#

# Description : Reads csv file into hash array

#

# In : csv file name, filed separation key (; in most cases)

#

# Out : hash array

################################################## #####################

sub read_csv {

my $csv_file = shift;

my $separator = shift;


my %hash=();

my @labels;

my @lines;

my $col_count = 0;

my $row = 0;

my ($line,$odd,$item,$data);


if (open(CSV,$csv_file)) {


while (<CSV>) {

# remove leading and trailing spaces

$_ = trim($_);

#skip emty lines

next if /^$/;

# copy next line

$line .= $_;


# if the line has an odd number of double qoutes it will concatenate the

# following lines until an od number of qoutes are encountered again.

if ((not $odd and /^[^"]*"[^"]*(?>[^"]*"[^"]*"[^"]*)*[^"]*$/) or # Regexp: test if even number of double qoutes

($odd and /^[^"]*(?>[^"]*"[^"]*"[^"]*)*[^"]*$/)) { # Regexp: test if odd number of double qoutes

$odd = 1;

# keep new line

$line .= " ";

next;

}

# reset column counter

$col_count = 0;

# remove carriage if any and linefeed from end

$line =~ s/\r?\n$//;

# split on separator if followed by an odd number of double qoutes

foreach $item (split /$separator(?=(?>[^"]*"[^"]*"[^"]*)*[^"]*$)/, $line, 100000) {


# remove leading and trailing spaces

$item = trim($item);

# remove last new line

$item =~ s/\s"$/"/;


# skip first line of labels

if ($row > 0) {

$hash{$row}{$labels[$col_count++]} = $item;

} else {

push (@labels,$item);

}


}

$row++;

undef $line;

undef $odd;

}

close (CSV);

} else {

print_log("$csv_file: $!");

die ("$csv_file: $!");

}

return (\@labels,\%hash);

}

$mysqldate = date( 'Y-m-d H:i:s', $phpdate );
$phpdate = strtotime( $mysqldate );