Parent Directory | Revision Log | Patch
revision 11 by dpavlin, Sun Mar 15 20:01:21 2009 UTC | revision 12 by dpavlin, Sun Mar 15 20:39:55 2009 UTC | |
---|---|---|
# | Line 42 foreach my $line ( split(/\r?\n/, $csv) | Line 42 foreach my $line ( split(/\r?\n/, $csv) |
42 | my $v = $fields[$_]; | my $v = $fields[$_]; |
43 | ||
44 | $v =~ s{\s*#\s*$}{}; | $v =~ s{\s*#\s*$}{}; |
45 | $v =~ s{^\s+}{}; | |
46 | $v =~ s{\s+$}{}; | |
47 | ||
48 | if ( $v =~ m{#} ) { | if ( $v =~ m{#} ) { |
49 | my @v = split(/\s*#\s*/, $v); | my @v = split(/\s*#\s*/, $v); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |