- my ($filename, $hashref) = @_;
-
- open(FILE,$filename) || die "-E- Could not open $filename for reading\n";
-
- my $found_header = 0; my $index = 0;
- while(<FILE>)
- {
- $line = $_;
- @data = split /\",/, $line;
- if(!$found_header) { @header = @data; $found_header = 1; }
- else {
- foreach $i (0..$#data-1) {
- $data[$i] =~ s/\"//g;
- $header[$i] =~ s/\"//g;
- $hashref->{$index}{$header[$i]} = $data[$i];
- #print "$index: $i: $header[$i]: $data[$i]\n";
- }
- $index++;
+ my ($filename, $hashref) = @_;
+
+ open(FILE,$filename) || die "-E- Could not open $filename for reading\n";
+
+ my $found_header = 0; my $index = 0;
+ while(<FILE>)
+ {
+ $line = $_;
+ @data = split /\",/, $line;
+ if(!$found_header) { @header = @data; $found_header = 1; }
+ else {
+ foreach $i (0..$#data-1) {
+ $data[$i] =~ s/\"//g;
+ $header[$i] =~ s/\"//g;
+ $hashref->{$index}{$header[$i]} = $data[$i];
+ #print "$index: $i: $header[$i]: $data[$i]\n";
+ }
+ $index++;
+ }