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
  18         my $nick = sprintf '%s%s%s'
  19                 , substr($row->{ime},0,1)
  20                 , substr($row->{prezime},0,1)
  21                 , $row->{jmbag} =~ m/^0036/
  22                         ? substr($row->{jmbag},4,-1)
  23                         : substr($row->{jmbag},0,-1)
  24         ;
  25
  26         $nick = lc unac_string('utf-8', $nick);
  27
  28         print "$nick ", $row->{jmbag},$/;
  29
  30         warn "# $nick row = ",dump($row),$/;
  31 }