From ef97426a63e52f9ea55b493ac44ece2bf9b96470 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 16 Mar 2009 09:58:36 +0000 Subject: [PATCH] correctly support multiple subfield delimiters (#) as one --- bin/csv2yaml.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/csv2yaml.pl b/bin/csv2yaml.pl index 7faa9af..bfe5702 100755 --- a/bin/csv2yaml.pl +++ b/bin/csv2yaml.pl @@ -50,7 +50,7 @@ foreach my $line ( split(/\r?\n/, $csv) ) { $v =~ s[\x{17d}][F] if $n =~ m{spol}; if ( $v =~ m{#} ) { - my @v = split(/\s*#\s*/, $v); + my @v = split(/\s*#+\s*/, $v); foreach my $pos ( 0 .. $#v ) { if ( $n =~ m{tel} ) { if ( $v[$pos] =~ m{^09} ) { -- 2.20.1