Perl入门-demo1

 

#!/usr/bin/perl -w

use IO::Socket;

my $server = $ARGV[1];
my $user = 'simplebot simpleb simpleot plotsim';
my $botnick = $ARGV[0];
my $nickservpass = $ARGV[2];

if(@ARGV < 2) {
print STDOUT "Usage: $0 [nick] [server] [nickserv pass] -- if nickname is not registered , leave it blank.\n";
exit; }

$con = IO::Socket::INET->new(PeerAddr=>$server,
                             PeerPort=>'6667', # change this if needed..
                             Proto=>'tcp',
                             Timeout=>'30') || print "Error: Connection\n";

print $con "USER $user\r\n";
print $con "NICK $botnick\r\n";
if(@ARGV == 3) {
print $con "privmsg nickserv IDENTIFY $nickservpass\r\n"; } # if $ARGV[2] exists..
print $con "JOIN #channel\r\n"; # modify that ..

while($answer = <$con>) {

#                      #
# add code here #
#                      #

if($answer =~ m/^PING (.*?)$/gi) {
print $con "PONG ".$1."\n"; # replying to pings..
}

print STDOUT $answer; # printing $answer to the terminal..
}