جستجو در تالارهای گفتگو
در حال نمایش نتایج برای برچسب های 'سورس های آموزشی'.
1 نتیجه پیدا شد
-
#!/usr/bin/perl##ircbot $Host, PeerPort => $Port, Proto => 'tcp', ) || die "No connection $!n";print $sock "NICK $nickrn";print $sock "USER $emailrn";while ($input = ){ if ($input =~ /004/){ last; } elsif ($input =~ /433/){ #nick already taken, auto switch to an alternate randomly from list $a = int(rand($#alternate)); $newnick = $alternate[$a]; print $sock "NICK $newnickrn"; }} print $sock "JOIN $channelrn"; while ($input = ){ chop $input; if ($input =~/^PING(.*)$/i){ print $sock "PONG $1rn"; print $sock "PRIVMSG $channel :irc bot coded in perl -> [Hidden Content]"; } elsif ($input =~/!start(.*)/){ for ($i = 0; $i < 20; ++$i) { $r = int(rand($#resp)); $message = $resp[$r]; print $sock "PRIVMSG $channel :$messagern"; sleep(10) } } elsif ($input =~/!time(.*)/){ $time = time(); print $sock "PRIVMSG $channel :local time/date: $timern"; } else{ #@tmp = split(/:/, $input); print $input #$tmp[1]} }
-
- سورس های آموزشی perl
- سورس های آموزشی
- (و 8 مورد دیگر)