6 # 2010-07-13 Dobrica Pavlinusic <dpavlin@rot13.org>
8 # http://en.wikipedia.org/wiki/Unique_Master_Citizen_Number
10 use Data::Dump qw/dump/;
11 use YAML qw/DumpFile/;
15 my $dir = 'yaml/hrEduPersonUniqueNumber_JMBG';
17 mkdir $dir unless -e $dir;
19 my $path = shift @ARGV || die "usage: $0 file.csv\n";
24 return 0 unless $jmbg =~ /^\d{13}$/;
25 my @c = split(//, $jmbg);
27 for (my $i=0;$i<6;$i++){
28 $S+= (7-$i)*($c[$i]+$c[6+$i]);
30 my $checksum = 11-($S%11);
31 return $checksum == $c[12];
34 my $csv = Text::CSV->new ( { binary => 1 } ) # should set binary attribute.
35 or die "Cannot use CSV: ".Text::CSV->error_diag ();
37 open my $fh, "<:encoding(utf8)", $path or die "$path: $!";
38 while ( my $row = $csv->getline( $fh ) ) {
40 my ( $ulica, $grad ) = split(/\s*,\s*/, $row->[8]);
46 datum_rodjenja => $row->[3],
48 adresa_ulica => $ulica,
50 tel_fixed => $row->[9],
51 tel_mobile => $row->[10],
52 spol => substr($row->[2],9,3) < 500 ? 'M' : 'F',
56 DumpFile( "$dir/$uuid.yaml", $info );
57 warn "$uuid ", valid_jmbg( $row->[2] ) ? 'OK' : 'INVALID', "\n";
60 $csv->eof or $csv->error_diag();