Perl script for csv

[Neyland]

I have a number of csv files generated from the admincp->Maint section that I need to push back into a db. These files were generated with the column names, single quote, and comma as the delimiter.

Instead of using myphpadmin to do this one table at a time, I'd just like to write a perl script to loop through the directory contents and call the mysqlimport command passing it the filename.

I'm a relative newb to perl syntax so a little review on that would be helpful, but I need to know what values to pass for the mysqlimport switches --fields-optionally-enclosed-by and --fields-escaped-by.

#!/usr/bin/perl -w
use strict;
 
my $dir = '/home/DIRNAME/import';
my $dbname = 'MYDBNAME';
my $dbuname = 'DBLOGINNAME';
my $dbpswd = 'DBPASSWORD';
my $importfilename;
 
opendir(DIR, $dir) or die $!;
 
while (my $file = readdir(DIR)) {
    # No Directories
    next unless (-f "$dir/$file");
 
    # Look for files ending in .csv
    next unless ($file =~ m/\.csv$/);
    
    # Provide full path to file we want to import
    $importfilename = "$dir/$file"
  
  # Call mysqlimport
   system('mysqlimport --delete --fields-terminated-by=\',\' --ignore-lines=1 -u $dbuname -p $dbpswd $dbname $importfilename');
}

closedir(DIR);
exit 0;

Thanks!