projects
/
virtual-ldap
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d853814
)
if files have magic delimiter # then we will split each
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 15 Mar 2009 20:01:21 +0000
(20:01 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 15 Mar 2009 20:01:21 +0000
(20:01 +0000)
occurance into it's own field
bin/csv2yaml.pl
patch
|
blob
|
history
diff --git
a/bin/csv2yaml.pl
b/bin/csv2yaml.pl
index
9a81901
..
9d0f9ad
100755
(executable)
--- a/
bin/csv2yaml.pl
+++ b/
bin/csv2yaml.pl
@@
-37,7
+37,20
@@
foreach my $line ( split(/\r?\n/, $csv) ) {
warn "# fields = ",dump( @fields ) if $debug;
- $hash->{ $columns[$_] } = $fields[$_] foreach ( 0 .. $#fields );
+ foreach ( 0 .. $#fields ) {
+ my $n = $columns[$_];
+ my $v = $fields[$_];
+
+ $v =~ s{\s*#\s*$}{};
+
+ if ( $v =~ m{#} ) {
+ my @v = split(/\s*#\s*/, $v);
+ foreach my $pos ( 0 .. $#v ) {
+ $hash->{ $n . '_' . $pos } = $v[$pos];
+ }
+ }
+ $hash->{ $n } = $v;
+ }
warn dump( $hash ) if $debug;