Perl

Gyazo server を手元に立ててみる

@masuiさんが作成されて,恐ろしく便利なスクリーンショット共有ウェブサービスのGyazo ですが,誰でも見える場所に置かれるので仕事等では使いづらかったりします.仕事であれば仕事場でしか見えないサーバにアップ出来れば良さそうってことでGyazo クロー…

ml のアーカイブscript

.forward とかalias で以下のscript を "| exec /home/mk/koedo/arc.pl"ml: "| exec /home/mk/koedo/arc.pl"の様に指定して,STDIN からファイルに落とす. X-Mail-Count をファイル名に. X-Mail-Count がない場合はtime-$$ でファイルを別のディレクトリに…

Net::IRC がかなりレガシー

cpan でmodule 導入したついでに他のmodule をupdate しようとすると $ perl -MCPAN -e 'CPAN::Shell->r' $ sudo perl -MCPAN -e 'CPAN::Shell->install(CPAN::Shell->r)' かなり嫌なメッセージが. CPAN.pm: Going to build A/AP/APEIRON/Net-IRC-0.79.tar.…

URL からtitle を取得してくれるirc bot 修正(0.73)

バグ修正です. タイトル内に改行があって,かつ\r が含まれる場合タイトルがうまく出なかったのを修正. ユーザエージェント名の文字列内に"libwww-perl" があると403 を返してくるサイトがあるのでユーザエージェント名変更.> 2ch/livedoor/gigazine とか <matoken></matoken>…

URL からtitle を取得してくれるirc bot 修正(0.71)

- URL からtitle を取得してくれるirc bot - matoken’s meme -hatena- http://d.hatena.ne.jp/matoken/20100928/1285697339 少し叩いてもらったらボロボロ問題が出てきたので少し修正. #!/usr/bin/perl use strict; use warnings; use Net::IRC; use LWP::U…

URL からtitle を取得してくれるirc bot

irc-net の#koedolug:*.jp でURL からtitle を取得してくれるbot がいたらいいのにという話が出たので書いてみました. nick は内田美奈子「BOOM TOWN」のゼラから. #!/usr/bin/perl use strict; use warnings; use Net::IRC; use LWP::Simple; use utf8; u…