Votingscript mit IP-Sperre (Seite 2) (Perl/CGI)

eisbeer

2003-09-07 21:51

User since
2003-08-29
347 Artikel
BenutzerIn

Ja bleib mal ruhig hier bitte, ich schau ja grad wieso...

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

MW2000

2003-09-07 21:53

User since
2003-08-26
43 Artikel
BenutzerIn

Sry, das Groß schreiben war net, um GESCHREIE auszudrücken, sondern um das hervorzuheben, ich änder es, mom

Rächtschraibfehla sin Gratis

pq

2003-09-07 21:55

User since
2003-08-04
12209 Artikel
Admin1

[quote=MW2000,07.09.2003, 19:47]sry, aber das funzt net, gibt nen 500er fehler aus
:([/quote]
was sagt das log? ein 500er fehler kann wirklich vieles sein,
aber nur du kennst das error-log

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

MW2000

2003-09-07 21:57

User since
2003-08-26
43 Artikel
BenutzerIn

In meinem FTP gibts die errorlog net.

Rächtschraibfehla sin Gratis

Ishka

2003-09-07 22:05

User since
2003-08-04
771 Artikel
HausmeisterIn

Aber dein Script gab keinen 500er?

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}

MW2000

2003-09-07 22:06

User since
2003-08-26
43 Artikel
BenutzerIn

??? Natürlich gibts nen 500er, das hab ich doch weiter oben geschrieben!

Oder meinst du MEIN Script, also die erste Version???\n\n

Rächtschraibfehla sin Gratis

Ishka

2003-09-07 22:09

User since
2003-08-04
771 Artikel
HausmeisterIn

funktioniert ein Hallo-Welt-Script?

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/html\n\n";
print "Hallo Welt!";

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}

MW2000

2003-09-07 22:12

User since
2003-08-26
43 Artikel
BenutzerIn

Bei mir funktioniert viel komplexeres, siehe "Hilfe mit einem GB"
auch unter "Perl-Community-Forum » Perl/CGI »"

Rächtschraibfehla sin Gratis

Ishka

2003-09-07 22:17

User since
2003-08-04
771 Artikel
HausmeisterIn

@esskar: ARGGGGHHHH...
sorg mal dafür, daß dein sh nicht immer die \n entfernt!!!!!

print "Content type: text/html ";
müßte
print "Content type: text/html\n\n";
heißen

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}

pq

2003-09-07 22:17

User since
2003-08-04
12209 Artikel
Admin1

[quote=MW2000,07.09.2003, 19:57]In meinem FTP gibts die errorlog net.[/quote]
dann benutze
use CGI::Carp qw(fatalsToBrowser);

edit:
dass du das programm vorher mit perl -c prüfst,
davon gehe ich einfach mal aus.\n\n

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem