perl regex noob: mini script - #4733 (Perl/CGI)

Ishka

2005-04-01 19:46

User since
2003-08-04
771 Artikel
HausmeisterIn

Code: (dl )

use CGI;

my $cgi=CGI::->new;
my %form=$cgi->Vars;

und in %form stehen dann alle Parameter, was den Vorteil hat, daß man sich über all die Probleme keine Gedanken machen muß und es oft genug getestet ist, daß man Fehler in dem Teil ausschließen kann. Auf die einzelnen Werte des Hashes hast du mit $form{name} Zugriff.

Außerdem muß ich dich, bei dem wast du vorhast noch warnen:
man sollte _nie_ etwas, was man vom Benutzer kriegt einfach mal so aufm Server ausführen, kann ja auch böswilliger Code sein.

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}