נושאים פעיליםנושאים פעילים  הצגת רשימה של חברי הפורוםרשימת משתמשים  חיפוש בפורוםחיפוש  עזרהעזרה
  הרשמההרשמה  התחברותהתחברות RSS עדכונים
תיכנות
RSS UnderWarrior Forums : RSS תיכנות
נושא

נושא: בניית בוט ל IRC ב PERL

 שליחת תגובהשליחת נושא חדש
כותב
הודעה << נושא קודם | נושא הבא >>
WisdomElf
אורח
אורח


הצטרף / הצטרפה: 01 October 2003
משתמש: אונליין
הודעות: 12647
נשלח בתאריך: 23 July 2006 בשעה 23:22 | IP רשוּם
ציטוט WisdomElf
קוד:

#!/usr/bin/perl
use IO::Socket;
my $server = "irc.nix.co.il";
my $port = "6667";
my $nick = "ElfBot";
my $channel = "#ikp";
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") || die "Could not connect to:

$server";
while($read = <$socket>){
if($read =~ /^NOTICE/){
print $socket "NICK $nick\r\n";
}
else {
print "There is a problem at lines 8-10. ";
}
}
while($read =<$socket>){
if($read =~ /^PING/){
print $socket "PONG " . (split(/ :/, $read))[1]."\r\n";
print $socket "USER $nick 'b' 'c' :d\r\n"
}
}
while($read=<$socket>){
if($read =~ /^Welcome/){
print $socket "JOIN #ikp\r\n";
}
else{
print "There is a problem at lines 22-24";
}
}
close($socket);

לא פועל, אני מניח שהבעיה היא בכתיבה לסוקט. שמישהו יעזור לי בבקשה....
חזרה לתחילת העמוד הצג את כרטיס החבר של WisdomElf חפש הודעות אחרות של WisdomElf בקר בדף הבית של WisdomElf
 

אם ברצונך להגיב לנושא זה עליך קודם להתחבר
אם אינך רשום/ה כבר עליך להרשם

  שליחת תגובהשליחת נושא חדש
גרסת הדפסה גרסת הדפסה

קפיצה לפורום
אינך יכול/ה לשלוח נושאים חדשים בפורום זה
אינך יכול/ה להגיב לנושאים בפורום זה
אינך יכול/ה למחוק את הודעותיך ותגוביך בפורום זה
אינך יכול/ה לערוך את הודעותיך ותגובותיך בפורום זה
אינך יכול/ה לצור סקרים בפורום זה
אינך יכול/ה להצביע בסקרים בפורום זה