Re: parse array to replace specific spaces with pipes

join() to the rescue

while (@row = $sth->fetchrow_array) {
    print OUTFILE '|',join('|',@row),"|\n";
}
[download]

Comment on Re: parse array to replace specific spaces with pipes Download Code

Replies are listed 'Best First'.
Re^2: parse array to replace specific spaces with pipes by johngg (Canon) on Jul 10, 2009 at 09:36 UTC
`print OUTFILE '\|',join('\|',@row),"\|\n";` You could let join do all the work. `print OUTFILE join '\|', '', @row, "\n";` [download] I hope this is of interest. Cheers, JohnGG	[reply] [d/l] [select]
Re^3: parse array to replace specific spaces with pipes by neurotoxx (Novice) on Jul 10, 2009 at 16:30 UTC
Join is very good. :) Thanks Jethro and Johngg	[reply]