in reply to Fast morphing of SYBASE data to flat-file
You could even do that in one line if you really wanted to:foreach my $rowref (@rowrefs) { my @sassified = map { sassify($_) } @$rowref; print FILE join("|", @sassified),"\n"; }
And in your sassify function, if you have alot of s///'s to perform on a variable, its more perlish to put it in a for loop:print FILE join("|", map { sassify($_) } @$_), "\n" for @rowrefs;
Disclaimer: Code above is not tested, and I'm sorry to say that none of this will help much with the speed.for ($in) { s/this/that/; s/here/there/; etc. }
|
|---|