Problem mit Perl, fast keine Ahnung

[nom]

Hi
wie der Titel schon sagt habe ich fast keine Ahnung von perl. Ich sollte für einen Kumpel einen net send chat schreiben. Hier der code:

#!usr/bin/perl

print "====================================================\n";
print "===						===\n";
print "===	       Netsend Chat by nom	        ===\n";
print "===						===\n";
print "===     not very usefull but funny at school     ===\n";
print "===						===\n";
print "===            Type exit to disconnect		===\n";
print "===						===\n";
print "====================================================\n";

print "\n\nPartner-IP or Computername: ";
$IP=<STDIN>;

$message == "1";
if ($message != "exit) {
print "\nMessage: ";
$message=<STDIN>;
system ('net send $ip $message');
}
else
{
print "\n\n[+]Closing connection\n";
print "[+]Closed\n";
print "[+]Exiting\n";
print "[+]........\n";
print "[+]Exited. Ready to close\n\n";
print "[ C] 2007 by nom & Backyard-Source Crew";
}

# made by nom (C) Backyard-Source Crew
# Contact: nom@backyard-source.net
# http://Backyard-Source.net

jaja ich weis. Aus dem chomp hab ich auch ein STDIN gemacht das war dumm von mir.

kann mir keiner helfen?

mfg
nom

 

[daddz]

Wo liegt denn dein Problem?

 

[renee]

Verwende mal "use strict" und "use warnings", dann wirst Du relativ schnell auf ein paar Fehler aufmerksam gemacht. Bevor Du es einbaust, bitte http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict anschauen!