unac_string column names

[csv-join-similarity] / upari.pl

diff --git a/upari.pl b/upari.pl
index 7416e2a..c1be2e8 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -9,6 +9,7 @@ use Text::CSV;
 use Data::Dump qw(dump);
 use String::Similarity;
 use Storable;
+use Text::Unaccent;
 
 my $debug = $ENV{DEBUG};
 
@@ -282,7 +283,7 @@ my $out_file = 'merged.csv';
 print "out_file $out_file";
 open(my $out_fh, '>', $out_file);
 foreach my $val ( 1 .. 4 ) {
-       print $out_fh join(',', map { $_ . '_' . $val } @{ $data_headers[$val] });
+       print $out_fh join(',', map { unac_string('utf-8',$_) . '_' . $val } @{ $data_headers[$val] });
        print $out_fh ',';
 }
 print $out_fh "broj_valova";