use Data::Dump qw/dump/;
use DBI;
my $dbh = DBI->connect(
"dbi:CSV:",
"", "",
{
#f_schema => 'test',
f_dir => '.',
f_ext => '.csv',
}
) or die "Could not open database: $DBI::errstr";
$dbh->{RaiseError} = 1;
$dbh->{csv_tables}->{file1} = {
file => 'vm.csv',
};
$dbh->{csv_tables}->{file2} = {
file => 'vfiler_ds.csv',
};
my $query = "SELECT file1.vm_name, vm_cluster, vFiler_IP, vFiler_cluster FROM file1 join file2 WHERE file1.vm_name = file2.vm_name";
my $result = $dbh->selectall_arrayref($query);
print dump($result);
In reply to Re^3: Compare 2 CSV files and create a new CSV file out of comparision
by Anonymous Monk
in thread Compare 2 CSV files and create a new CSV file out of comparision
by slayedbylucifer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |