From 4f4ef12009e8ec6d070f7473d2405ec0659229ba Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 15 Mar 2009 21:07:54 +0000 Subject: [PATCH] fix gender --- bin/csv2yaml.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/bin/csv2yaml.pl b/bin/csv2yaml.pl index ec9bf4e..7faa9af 100755 --- a/bin/csv2yaml.pl +++ b/bin/csv2yaml.pl @@ -47,6 +47,7 @@ foreach my $line ( split(/\r?\n/, $csv) ) { # fix tel fields $v =~ s{\s+}{#}g if $n =~ m{tel}; + $v =~ s[\x{17d}][F] if $n =~ m{spol}; if ( $v =~ m{#} ) { my @v = split(/\s*#\s*/, $v); -- 2.20.1