Thanks guys! You're 2 minutes of wisdom has brought my 100+ line script
down to 20 or so =)
Thanks for your continued support of this newsgroup and its users!
-Shannon Murdoch
> You could write something like this:
>
> print join "\t", @params{'q001'..'q100'};
>
> instead of:
>
> print "$params{q001}\t$params{q002}\t ... $params{q100}"; # 100 times
>
> "Perl is designed to give you several ways to do anything, so consider
> picking the most readable one." - Larry Wall
>
> - RaFaL Pocztarski, [EMAIL PROTECTED]
> You could make it even smaller by looping through the hash:
>
> print OUTFILE $entrynumber;
> foreach (sort keys %params) { print OUTFILE, "\t$params{$_}" }
> print OUTFILE "\n";
>
> -- Brett
> http://www.chapelperilous.net/
> ------------------------------------------------------------------------
> You are sick, twisted and perverted. I like that in a person.
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
