perlに関する玄人向けTIPS集【1】 をみたら、あまりにツッコミどころが満載だったのでちょっと書いておきます。気を悪くされたらごめんなさい(何か変な日本語だ)。 ハッシュのキーをABC順にソートする foreach my $key(sort $hash{$a} cmp $hash{$b} keys %hash){ sort の引数は sort SUBNAME LIST sort BLOCK LIST sort LISTなので、 sort {} @array が正しい。しかも、{ $hash{$a} cmp $hash{$b} } は hash の value での sort ですね。正しくは以下のようになるのかと。 #!/usr/local/bin/perl my %hash = ( c => 'mount', m => 'play', a => 'zip', l => 'view',

検出ツールの開発者が語る，「Winnyを検出する方法」 に Winny 検出方法が詳しく書いてあったので、Perl で Winny Scanner を実装してみました。 port scan するところは fork + socket で書いていて、あまりいけてないのでもっといい方法を知っている人は教えてください。このスクリプトを実行すると /var/tmp/test_socket というディレクトリが出来ます。中身は空になるはずですけど。 Winny の port に繋いで得られた文字列を # my(undef, $passphrase, $encrypted) = unpack "A2A4A5", $msg; my( undef, $passphrase, $encrypted ) = unpack "a2a4a5", $msg; my $snipped_ph = ( split /\x0

参考にしたサイト http://www.section6.net/help/cssource.php http://halflife.luina.net/com_srcds_install.html PCゲーム Counter-Strike:Source のサーバを FreeBSD にインストールしてみました。サーバを動かして試してみたかっただけなので、本気で公開サーバを作る人はたぶん参考になりません。linux emulation で動作するので、linux_base と linproc が必要みたいです。 linux procfs を /etc/fstab に書く linproc /compat/linux/proc linprocfs rw 0 0マウントする ( or 再起動 ) # mount /compat/linux/procちゃんと確認してないけど、linux.ko とか