CentOS 5.3がリリースされたということで、何気なく yum update したところ、cpanインストールが失敗するようになった。 # cpan -i JSON::XS ...（色々出力される） LWP failed with code[500] message[Errno architecture (i386-linux-thread-multi-2.6.18-…

Perlで文字列から数字を抜き出すのはこんな感じか？ #!/usr/bin/perl use strict; use warnings; my $DIGITS = '(\d+)'; my @pieces; # 文字列を数字と数字以外に分ける。 @pieces = split(/$DIGITS/, '123a4bcd56e'); print join(", ", map{"'$_'"} @pieces…

イニシャライズ中に他のメソッドを呼ぼうとしたら Can't call method "hoge" on unblessed reference at .... ってエラーが出た。しばらく悩む。 package Human; sub new { my $class = shift; my $name = shift; my $age = shift; my $self = {}; $self->{n…

今日、Perlでハマッたのでメモ。 use strict書いたら、関数にソケットハンドルを渡せなくってしばらく悩んだ。 use strict; use Socket; sub func { my $socket = shift; my $data = shift; .... } my $data = "any data"; socket(SOCKET, PF_INET, SOCK_STR…