isvu-import.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use DBI;
   5 use Data::Dump qw/dump/;
   6 use Algorithm::CheckDigits;
   7 use Text::Unaccent;
   8
   9 my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8' }) || die $dbi::errstr;
  10
  11 my $s = $c->prepare(qq{
  12 select * from brucosi_2011_ISVU
  13 });
  14 $s->execute;
  15
  16 while( my $row = $s->fetchrow_hashref ) {
  17         print "# row = ",dump($row),$/;
  18 }