On Tue, 16 Oct 2001, Shannon Murdoch wrote:
> So the script halves in size and now becomes:
> print OUTFILE
> "$entrynumber\t$params{q1_1}\t$params{q1_2}\t$params{q1_3}\t$params{q1_4}\t$
> params{q1_5}\t$params{q1_6}\t$params{q1_7}\t$params{q1_8}\t$params{q1_9}\t$p
> arams{q1_10}\t$params{q1_11}\t$params{q1_12}\t$params{q1_13}\t$params{q1_14}
> \t$params{q1_15}\t$params{q1_16}\t$params{q1_17}\t$params{q1_18}\t$params{q1
> _19}\t$params{q1_20}\t$params{q1_21}\t$params{q1_22}\t$params{q1_23}\t$param
> s{q1_24}\t$params{q1_25}\t$params{q1_26}\t$params{q1_27}\t$params{q1_28}\t$p
> arams{q1_29}\t$params{q1_30}\t$params{q1_31}\t$params{q1_32}\t$params{q1_33}
> \t$params{q1_34}\t$params{q1_35}\t$params{q1_36}\t$params{q1_37}\t$params{q1
> _38}\t$params{q1_39}\t$params{q1_40}\t$params{q1_41}\t$params{q1_42}\t$param
> s{q1_43}\t$params{q1_44}\t$params{q1_45}\t$params{q1_46}\t$params{q1_47}\t$p
> arams{q1_48}\t$params{q1_49}\t$params{q1_50}\t$params{q1_51}\t$params{q1_52}
> \t$params{q1_53}\t$params{q1_54}\t$params{q1_55}\t$params{q1_56}\t$params{q1
> _57}\t$params{q1_58}\t$params{q1_59}\t$params{q1_60}\t$params{q1_61}\t$param
> s{q1_62}\t$params{q1_63}\t$params{q1_64}\t$params{q1_65}\t$params{q1_66}\t$p
> arams{q1_67}\t$params{q1_68}\t$params{q1_69}\t$params{q1_70}\t$params{q1_71}
> \t$params{q7_1}\t$params{q7_2}\t$params{q7_3}\t$params{q7_4}\t$params{q7_5\t
> $params{q7_6}\t$params{q7_7}\t$params{q7_8}\t$params{q7_9}\n";
> close(OUTFILE);
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]
