Opened by steffenw at 2005-02-24 10:37
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
nee, das ist ein "simples" CGI-Script
\n\n
<!--EDIT|steffenw|1109235404-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
...
elsif {
my $ref; # die Zeile wird angemeckert aber funktionieren tut alles
if (
%ab and $FORM{switch} eq 'ab' and $ref = \%ab
or
%ba and $FORM{switch} eq 'ba' and $ref = \%ba
) {
...
<!--EDIT|steffenw|1109235404-->
$SIG{USER} = sub {love 'Perl' or die};