てっく★ゆきろぐ Rev2

行ってきました。
Fukuoka Perl Workshop #24 YAPC::Asia レポート 2013

そういえば、YAPC::Asiaをやるって知ったのが、ちょうど千葉に行くその日の朝だったんだよなあと。（笑）

そういえば私は……YAPC::Asia のあった日、ちょうど俺妹モノレール撮影でがっちりスケジュール埋めちゃったから行けなかったんだよねと（個人的なはなしです） #fukuokapm

— さやま(:3[___]ゆき (@sayama_yuki) October 26, 2013

YAPC::Asiaの話をきいて。
来年は是非都合付けて参加したいなと思いました。
と……その前に。

YAPC::Fukuoka をやろうぜ！

— Ryuzo Yamamoto (@dragon3) October 26, 2013

懇親会でみんなノリノリでありました。

イベント参加して思ったこと。
Perl歴はアホみたいに長いのですが(たぶん1993〜4年あたりから…だから、20年近くいってるねｗｗｗ。途中に若干ブランクはありますが…)、ひたすらレガシーなPerlしかいじってこなかったので、もっとモダンなPerlについて知らないとアカンなあ、ということでした。
次回までには時間作っていろいろやってみようかなと。

ちなみに。
CGIよりもfmlを使ったのが最初でしたね。
まだバージョン4だった頃だったよねと思ったらやっぱりそうでした。
Perlの歴史 Perl 1,2,3,4
このスライドを見ててなつかしくなっておりました。

$SIG で対応。

ループをCtrl-Cで抜ける場合、SIGINTが送られますので、$SIG{INT} に無名サブルーチンをセットすればOK。

プログラムは、こんなかんじになります。

#!/usr/bin/perl

@nonosirare = ( 
                "くず",
                "ばーか",
                "すけべ",
                "ばか",
                "しんじらんない",
                "あ゛ん？",
                "おたんこなす",
                "だいっきらい",
                "いいかげんにしたら",
                "モジモジしてキモイねー",
                "はげろ",
                "なにえらそうなこといってんの",
                "でてって",
                "くず",
                "むしんけー",
                "は？",
    );

local $SIG{INT} = sub { $l = 0; };         # localはなくても大丈夫？

$c = 0 ;
$l = 1 ;
while($l)
{
    $j = $nonosirare[ int(rand($#nonosirare + 1)) ] ;
    print $j ;
    $c ++ ;
}

print "\n\n" ;
printf( "%d回罵られました。ありがとうございます。\n" , $c);

実行し、Ctrl-CしてSIGINTを送ったり、kill -INT (pid) してSIGINTを送ったりすると、ループから抜けてループを回した回数が表示されます。

CPANのSys::Syslogを使えば一発。

リモートのsyslog(UDP経由)を受けられるsyslogdが稼働してるホストを loghost として。

#!/usr/bin/perl

use Sys::Syslog ;
use Sys::Syslog qw(:standard :macros) ;

Sys::Syslog::setlogsock( "udp" , "loghost" ) ;

Sys::Syslog::openlog( 
         'testsyslog33' ,
         'nowait' ,
         'local0' ) ;

Sys::Syslog::syslog( 'info' , "homu!homu!homuhomu!" ) ;

Sys::Syslog::closelog() ;

こんなかんじで書けば、loghostのsyslogdにこんなかんじで出てくる。

Nov 24 09:31:56 localhost.local testsyslog33: homu!homu!homuhomu!

FacilityとLevelについては適当にやったけど、このへんはRFC3164とか見てくれ。
（ってかsyslog扱うんならこのへん知ってる前提で）