|
Lines 241-254
sub read_file {
Link Here
|
| 241 |
my $headers_to_check = $csv->getline($fh); |
241 |
my $headers_to_check = $csv->getline($fh); |
| 242 |
my $column_headers = rescue_EBSCO_files($headers_to_check); |
242 |
my $column_headers = rescue_EBSCO_files($headers_to_check); |
| 243 |
my $lines = $csv->getline_all( $fh, 0 ); |
243 |
my $lines = $csv->getline_all( $fh, 0 ); |
| 244 |
|
|
|
| 245 |
my ( $cde, $str, $pos ) = $csv->error_diag(); |
| 246 |
my $error = $cde ? "$cde, $str, $pos" : ""; |
| 247 |
warn $error if $error; |
| 248 |
|
| 249 |
close($fh); |
244 |
close($fh); |
| 250 |
|
245 |
|
| 251 |
return ( $column_headers, $lines, $error ); |
246 |
unless($csv->eof()) { |
|
|
247 |
my ( $cde, $str, $pos ) = $csv->error_diag(); |
| 248 |
my $error = $cde ? "$cde, $str, $pos" : ""; |
| 249 |
warn $error if $error; |
| 250 |
return ( $column_headers, $lines, $error ); |
| 251 |
} |
| 252 |
|
| 253 |
return ( $column_headers, $lines ); |
| 252 |
} |
254 |
} |
| 253 |
|
255 |
|
| 254 |
=head3 create_title_hash_from_line_data |
256 |
=head3 create_title_hash_from_line_data |
| 255 |
- |
|
|