Opened by Stefan at 2009-03-05 21:13
Hallo zusammen,
ich habe ein Perl-Skript unter Linux geschrieben, welches jetzt unter Windows (Active Perl) ebenfalls laufen soll. Dies bereitet mir aber zwei Schwierigkeiten:
1.
Ich habe also eine HTML-Seite die Rückgaben ermöglichen soll. Wenn ich nun einen Button (z.B. Sparbetrieb) drücke so wird localhost aufgerufen, aber ich komme nicht mehr in die else.
2.
Wenn in socket nichts zu lesen ist, so bleibt das Programm in der IF-Abfrage hängen und läuft nicht (wie unter Linux) durch die while-Schleife.
Ich hoffe es kann mir jemand helfen.
modedit(linuxer): Code(Perl) Tags eingesetzt.
Last edited: 2009-03-05 21:14:56 +0100 (CET)
ich habe ein Perl-Skript unter Linux geschrieben, welches jetzt unter Windows (Active Perl) ebenfalls laufen soll. Dies bereitet mir aber zwei Schwierigkeiten:
1.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11
my $d = HTTP::Daemon->new( LocalHost => $My_IP, LocalPort => 3002,); die... while (my $c = $d->accept) { while (my $r = $c->get_request) { if ($r->method eq 'GET') { ... $rs->add_content(CGI::submit(-name=>'Sparbetrieb', -value=>'Sparbetrieb'); ... } elsif ($r->method eq 'POST') {...} ...
Ich habe also eine HTML-Seite die Rückgaben ermöglichen soll. Wenn ich nun einen Button (z.B. Sparbetrieb) drücke so wird localhost aufgerufen, aber ich komme nicht mehr in die else.
2.
Code (perl): (dl
)
1 2 3 4 5 6
my $socket = IO::Socket::INET->new(PeerAddr => $peer, PeerPort => '3003', Proto => 'tcp',) or die ... ... while (...){ if(defined (my $from_server = <$socket>)) {...
Wenn in socket nichts zu lesen ist, so bleibt das Programm in der IF-Abfrage hängen und läuft nicht (wie unter Linux) durch die while-Schleife.
Ich hoffe es kann mir jemand helfen.
modedit(linuxer): Code(Perl) Tags eingesetzt.
Last edited: 2009-03-05 21:14:56 +0100 (CET)