Hey,
hab da ein irres Problem mit Perl...
Ein Script funktioniert nicht mehr, obwohl ich es nicht bearbeitet habe und es vorher funktioniert hat.. Habe es jetz nochmal durchgeschaut und keinen Fehler entdeckt.
Es wird ein Fehler an dieser Stelle ausgegeben:
der code an der stelle sieht vorher und danach ca so aus:
Sehr komisch find ich das...
Die Fehlermeldung is folgende:
Hoffe ihr koennt mir helfen : )
hab da ein irres Problem mit Perl...
Ein Script funktioniert nicht mehr, obwohl ich es nicht bearbeitet habe und es vorher funktioniert hat.. Habe es jetz nochmal durchgeschaut und keinen Fehler entdeckt.
Es wird ein Fehler an dieser Stelle ausgegeben:
Code:
if($line =~ /hello/)
der code an der stelle sieht vorher und danach ca so aus:
Code:
$SOCKET = new IO::Socket::INET->new(PeerPort=>1498, Proto=>'tcp', PeerAddr=>$host);
$line = '';
$SOCKET->recv($line, 200);
if($line ne '')
{
if($line =~ /hello/)
{
$SOCKET->send("hello\r\n");
$SOCKET->recv($line, 200);
Sehr komisch find ich das...
Die Fehlermeldung is folgende:
Bareword found where operator expected at ./reseter.cgi line 88, near "if($line =~ /hello"
Hoffe ihr koennt mir helfen : )