Perl

モジュールがインストールされているかチェックする

bash関数で。あえてワンライナ。 CheckPerlModule() { perl -M$1 -e '' > /dev/null 2>&1; if [ $? -eq 0 ]; then echo "OK"; else echo "NG"; fi } $ CheckPerlModule File::Path OK $ CheckPerlModule Jcode NG perl, perl5, perl5.10, perl5.12, perl5.12…

アクセスログから指定範囲のIPアドレスを含む行を抜き出す

アクセスログから、指定範囲のIPアドレスを含む行を抜き出す。ログはまあまあのファイルサイズがあり、処理はできるだけ速く完了したい。そこで、幾つかの方法を試してみた。例として、Webサーバのhttpdアクセスログを使う。ログのサイズは約19MBで、72733行…

それPlaggerで

参考:会計ソフトからGoogleのサービスを使う | スラド IT Googleは勢いとマニア精神を擽って、ぐんぐん勢力を大きくしているが、全てGoogleに完結させる時代が来るのはもう少し先になりそう。ていうか来ないかも。 Plaggerが便利で、ブログを読むのもスケジ…

Plaggerインストール

必須モジュール YAML Test::More Test::Base Class::Accessor::Fast File::Find::Rule UNIVERSAL::require Template Template::Provider::Encoding Text::Tags DateTime DateTime::Format::Mail DateTime::Format::W3CDTF DateTime::Format::Strptime Digest…

プラグインをごそごそ

あまり、他のソフトの拡張をするためのプラグインを作った事が無い。 汎用性を確保するための細かいインタフェースが好きではないので、必要になったら車輪の再発明になっても自分の欲する機能を持ったプログラムを自分で書いて使い捨ての様にして使う(捨て…

The Perl Review 2.2

参考:http://www.theperlreview.com/index.html via.O'Reilly Media - Technology and Business Training 数独記事が3つ。これは楽しい。 参考:Play Free Sudoku, a Popular Online Puzzle Game 参考:Web Sudoku - Billions of Free Sudoku Puzzles to Pl…

モジュールを作るにはメモ

参考:perltoot - トムによるPerlオブジェクト指向チュートリアル - perldoc.jp クラスモジュールの作成からオブジェクト指向を学ぶ。 参考:http://www.torus.jp/memo/x200311/PerlModule.rd.html モジュールの作成の手順をコンパクトにまとめている。 参考…

Microsoft Wordのdocファイルのバイナリ解析

Microsoft Wordのdocファイルのバイナリ解析結果を探していた。 参考:http://hp.vector.co.jp/authors/VA012149/labo.htm この文書の参考文献は、現在『TalkTalk Webspace is closing soon!!』にある。 その他、様々なフォーマットの解析結果は、『Web Page…

WWW::Hotmail

Perlでhotmailを扱うためのモジュール。 WWW-Hotmail-0.10 - Connect to Hotmail, download, delete and send messages - metacpan.org 参考:Hotmail解析結果 WWW::GMailもある。 WWW-GMail-0.06 - Perl extension for accessing Google Mail (gmail) - met…

POST送信・Cookie管理

POST送信 Python import urllib2 params = urllib2.urlencode({'name': 'foo', 'pass': 1234, 'location': 'Japan'}) f = urllib2.urlopen("http://example.com/cgi-bin/query", params)Perl use LWP::UserAgent; $ua = LWP::UserAgent->new; $req = HTTP::R…