Re^2: CSV manipulation with perl

Does this code take 123, 124 and 125 from the csv create a string "123|124|125" and then insert into the database? And then do the same for text, text1, text2 etc etc

Doesnt appear to... if it does, please could you explain how? At the moment, i know it might not be the best "way" of doing things but that is what i got....thanks.

-----

Eschew obfuscation, espouse eludication!

Comment on Re^2: CSV manipulation with perl

Replies are listed 'Best First'.
Re^3: CSV manipulation with perl by Tux (Canon) on Mar 09, 2009 at 18:14 UTC
No, this was just an example of how to mix CSV and DBI Your problem could be translated to something like `my $csv = Text::CSV_XS->new ({ binary => 1 }); open my $dta, "<", "data.csv" or die "data: $!\n"; my @rows; while (my $row = $csv->getline ($dta)) { push @rows, $row; } $csv->eof or $csv->error_diag; close $dta; # pivot my @data = map { my $col = $_; join "\|", map { $_->[$col] } @rows } 0. +.$#{$rows[0]};` [download] Which will convert `123,foo,2,FOO 234,bar,2,BAR 345,zap,3,ZAP 456,bok,5,BOK` [download] into `( "123\|234\|345\|456", "foo\|bar\|zap\|bok", "2\|2\|3\|5", "FOO\|BAR\|ZAP\|BOK")` [download] Assuming all records have equal length Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: CSV manipulation with perl
by Tux (Canon) on Mar 09, 2009 at 18:14 UTC

No, this was just an example of how to mix CSV and DBI

Your problem could be translated to something like

my $csv = Text::CSV_XS->new ({ binary => 1 });
open my $dta, "<", "data.csv" or die "data: $!\n";
my @rows;
while (my $row = $csv->getline ($dta)) {
    push @rows, $row;
    }
$csv->eof or $csv->error_diag;
close $dta;

# pivot
my @data = map { my $col = $_; join "|", map { $_->[$col] } @rows } 0.
+.$#{$rows[0]};
[download]

Which will convert

123,foo,2,FOO
234,bar,2,BAR
345,zap,3,ZAP
456,bok,5,BOK
[download]

into

(   "123|234|345|456",
    "foo|bar|zap|bok",
    "2|2|3|5",
    "FOO|BAR|ZAP|BOK")
[download]

Assuming all records have equal length

Enjoy, Have FUN! H.Merijn

[reply]
[d/l]
[select]