Re^3: adding database values to csv file

while ($sth->fetch) {
    $rec{fobar} =~ s{old}{new};                # change in a single co
+lumn
    s/(?:\b|[0-9])USD\b/EUR/g for values %rec; # change all columns
    $csv->print (*STDOUT, [ @rec{@fld} ]);
    }
[download]

Enjoy, Have FUN! H.Merijn

Comment on Re^3: adding database values to csv file Download Code

Replies are listed 'Best First'.
Re^4: adding database values to csv file by Anonymous Monk on Sep 28, 2011 at 12:10 UTC
Many thanks! VE	[reply]