On Jul 2, Peter Cline said:
>if (/^(.+)_(\d+)$/) {
> $script_info[$2] = { 'id' => $2, } unless {
>defined($script_info[$2]) };
> $script_info[$2]->{$1} = $q->param("$_");
> }
>
>and thereby eliminated my problem.
Or not.
print "foo" unless { 1 };
print "bar" unless { 0 };
That prints "foo" and "bar", and if -w was on, you'd be told your hash
references have an odd number of elements. Leave off those braces,
please.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
I am Marillion, the wielder of Ringril, known as Hesinaur, the Winter-Sun.
Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/
Acacia Fraternity, Rensselaer Chapter. Brother #734
** Manning Publications, Co, is publishing my Perl Regex book **
