オリジナルIRCBot「NGIB」作成開始

元々はNet::IRC使うつもりだったんだけどさ、使い方がわかんないのでフルスクラッチに変更(ｫ

とりあえず、目下のソース。

use strict;
use Socket;

print "Script Start!\n";

my $servername='127.0.0.1';
my $struct = sockaddr_in(6667,inet_aton($servername));

socket(SOCKET, PF_INET, SOCK_STREAM, 0)
or die('ソケット作成失敗(´･ω･`)');

connect(SOCKET, $struct)
or die('接続失敗(´･ω･`)');

print SOCKET ":testnick USER guest tolmoon tolsun :Ronnie Reagan\r\n";

print SOCKET ":testnick NICK Wiz\r\n";

print STDOUT ;

dieの時のメッセージがおかしいのはとりあえず気にしないで頂くとして。とりあえず接続までは上手くいっている模様。だがそこから先が上手く行かない。Socketハンドルから1行読んでるので、何かリプライがあれば帰ってくるはずなんだが…。