Mark Lobue wrote: > > -----Original Message----- > > From: Rob Dixon [mailto:[EMAIL PROTECTED] > > > > my $row = 0; > > while ( my($first, $second) = $sth->fetchrow ) { > > print "\n," if $row++; > > print FILE "$first\t\t$second"; > > } > > print "\n"; > > > Or, > > my $row = 0; > while ( my($first, $second) = $sth->fetchrow ) { > print "," if $row++; > print FILE "$first\t\t$second\n"; > } >
Sure, but that puts the commas at the start of each line, which isn't anywhere near as cute :) Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
