note
tye
<p>
There is almost nothing above that [cpan://CGI] supports. For example, one of your last lines would be done with something like:
<code> print $file " ",$q->x:ProtectScenarios("True"),"\n";
</code>
but [cpan://CGI] doesn't support that (and Perl can't parse that syntax). Even if you go out or your way:
<code> use CGI qw( -any );
my $q= CGI->new();
my $tag= "x:ProtectScenarios";
print $q->NoSuchHtmlTag("False"), $/;
print $q->$tag("True"), $/;
</code>
you get:
<code> <NOSUCHHTMLTAG>False</NOSUCHHTMLTAG>
Goto undefined subroutine &main::CGI::
</code>
So, unless I'm missing some feature of CGI, I think you are mostly out of luck here.
</p><p>
(Note that the last error is due to CGI not being able to parse a function name out of "CGI::x:ProtectScenarios" which gets passed to its AUTOLOAD routine, and not from the strange syntax that I used.)
</p>
-
<a href="/index.pl?node=tye&lastnode_id=1072">tye</a>
(but my friends call me "Tye")
137812
137812