• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 601
  • Last Modified:

Perl CSV Ignore First Line and Export to Access

I am trying to insert the values from a CVS file (with the first row being headers) into an Access Database using a Perl script. The script works, but i need to exclude the first line of the csv file which contains the headers.

Any ideas?
use DBI;

$csvfile="C:/WeatherModel/degrib/bin/Model/Output/gfs_2010111900_72.csv";

$dbh = DBI->connect('dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=c:/weathermodel/weathermodel.mdb', '', '');
$sth = $dbh->prepare( "INSERT INTO GFS_Forecasts VALUES (?,?,?,?,?,?)" );

open CSV, $csvfile;

while(<CSV>) {
  chomp;
  my @fields = split /,/;
  $sth->execute(@fields);
}

close CVS;

Open in new window

0
kyle972
Asked:
kyle972
1 Solution
 
tel2Commented:
Hi kyle,

If I understand you correctly, you should be able to just insert "<CSV>;" between the "open..." and the "while...", like this:

    ...
    open CSV, $csvfile;
    <CSV>;
    while(<CSV>) {
    ...

That should read one line, and do nothing with it.
0

Featured Post

NEW Veeam Backup for Microsoft Office 365 1.5

With Office 365, it’s your data and your responsibility to protect it. NEW Veeam Backup for Microsoft Office 365 eliminates the risk of losing access to your Office 365 data.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now