From: Dobrica Pavlinusic Date: Sun, 15 Mar 2009 20:39:55 +0000 (+0000) Subject: strip spaces X-Git-Url: http://git.rot13.org/?p=virtual-ldap;a=commitdiff_plain;h=e6897051dfbbe3708b832c8b04cfaff774e9a7b2 strip spaces --- diff --git a/bin/csv2yaml.pl b/bin/csv2yaml.pl index 9d0f9ad..a40eb3e 100755 --- a/bin/csv2yaml.pl +++ b/bin/csv2yaml.pl @@ -42,6 +42,8 @@ foreach my $line ( split(/\r?\n/, $csv) ) { my $v = $fields[$_]; $v =~ s{\s*#\s*$}{}; + $v =~ s{^\s+}{}; + $v =~ s{\s+$}{}; if ( $v =~ m{#} ) { my @v = split(/\s*#\s*/, $v);