ディレクトリ操作系、ファイル操作系の処理プログラムメモです。 FIle::Path File::Spec Time::Piece stat unlink 保存ディレクトリが無い場合、作成してファイルを保存 File::Path ディレクトリ作成 FIle::Spec OS依存に対応したパス作成 use strict; use w…

任意のディレクトリにあるモジュールを読み込む際に、ディレクトリのパスを設定します。 例えば src/ main.pl lib/ Test.pm Test/ Class.pm という構成があり、main.plからTest.pmを読み込むときのコードは下記のようにします。 use lib 'lib'; use Test; my…

画像のリサイズを行う必要があったので、関連のモジュールやソフトウフェアをインストールしました。 しかし、結構上手くいかないことがあったのでメモ。 環境は「MacOX Snow Leopard」です。 試したモジュールはこちらで紹介されていたものです。 Webから画…

ツイートストリームをベイジアンフィルタでカテゴリ分けしていく様子を見てみました。 カテゴリとしてハッシュタグを利用します。 ハッシュタグが付いているツイートは、フィルタの学習テキストとなります。 ハッシュタグが付いていないツイートは、どのハッ…

WEB+DB PRESS Vol.56作者: 赤松祐希,紀平拓男,牧大輔,西林孝,中島聡,中島拓,角田直行,はまちや2,舘野祐一,きしだなおき,和田裕介,伊藤直也,大沢和宏,塙与志夫,増井俊之,ミック,WEB+DB PRESS編集部出版社/メーカー: 技術評論社発売日: 2010/04/24メディア: 大…

GD::SecurityImageを使ってCAPTCHA画像を生成を試してみました。 GDが入っていなかったので、インストール手順から。 GDのインストール CPANモジュールを入れる前に下記のリンクからライブラリをDLしてきてインストールします。 http://www.libgd.org/Downlo…

AnyEvent(Tatsumaki)の勉強で写経するのに良さそうなサンプルプログラムがあるページを集めました。 第13回 AnyEvent：イベント駆動モジュールの方言を吸収する(モダンPerlの世界へようこそ) Hello World的な短いサンプルプログラム AnyEventでechoサーバ - …

カジュアルPerl #2 *1で、id:miyagawaさんが紹介していた「perlbrew」を試してみました。 「perlbrew」は、ホームディレクトリにperlをインストールするモジュールです。 複数のバージョンのperlをインストールして切り替えることもできます。 cpanも管理者…

http://d.hatena.ne.jp/memememomo/20100416/1271371693 irc_privmsg => sub { my ( $self, $msg ) = @_; my $comment = $msg->{params}->[-1]; my $trans_url = 'http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=' . uri_escape($com…

MapReduce::Liteを使って、転置インデックスを作成するプログラムを書きました。 docIDとかwordIDとかは無しで、ファイル名や単語をそのままキーとして使うようにしています。 全体的な流れとしては、 複数のファイルを読み込む(perl reverse_index.pl index…

形態素解析をMapで行ない、単語の登場回数をReduceで行なうプログラムを書きました。 MapReduceのフレームワークは、MapReduce::Liteを使用しました。 Mapperの定義 文章を受け取って、形態素解析を行ない「(単語,1)」のkey-valueペアを作成します。 形態素…

こっちで書いたプログラムをAnyEvent::Handleを使って書き直してみました。割と短くなりました。 use strict; use warnings; use AnyEvent; use AnyEvent::Socket; use AnyEvent::Handle; my $proxy_port = 8080; my %conn_table; my %request; my $cv = Any…

http://gist.github.com/378947 AnyEvent::Socketを使ってProxyサーバを書いてみました。 けど、ちょっとまだ動作が不安定。 AnyEventを理解しきれていない感がたっぷりです。 AnyEvent::HTTPを使って書き直す予定。 use strict; use warnings; use AnyEvent…

変数を使った四則演算ができる簡単なlispインタプリタを書きました。 トークン解析と構文解析 lispは下記のように書きます。 (- 3 2) ;6 (- 3 (* 2 3)) ;-3 (setq a 3) プログラムはリストで記述されます。 リストとは'('と')'で囲まれた部分です。「(- 3 2)…

BEGINブロック、CHECKブロック、INITブロック、ENDブロック Perlプログラムが実行されるまでの流れは下記のようになります。 この流れの中で自動実行されるブロックがあります。 実行されるブロックとその実行タイミングは以下のようなものです。 INITブロッ…

複数の画像があるフォルダを圧縮してできたzipファイルを扱うスクリプトに関するメモです。 Archive::Zip zipファイルの操作は、Archive::Zipモジュールを使用します。 use strict; use warnings; use Archive::Zip; my $zip_path = $ARGV[0]; my $m_zip = A…

前回は、抽象構文木をプログラム直打ちで記述していました。 今回は、下記のスクリプト文字列を読み込んで、抽象構文木を作成する構文解析器を作成しました。 n=5;x=1;L5{x=x*n;n=n-1};x' スクリプトの構文解析を行なうためには、 まずスクリプトの構文がど…

下記のスクリプトは、nの階乗を求めることを想定しています。 n = 5; x = 1; L n x = x * n; n = n - 1; x; このスクリプトを構文木の形で表現して実行するプログラムを書きました。 構文木は下記のようなものになります。プログラムは、木の節点に対して一…

ネットワークプログラミングでは、主にソケット処理のプログラムを記述していきます。 ソケットとは、ネットワークに関連したファイルディスクリプタで、下記のように作成されます。 use Socket; my $sock; socket( $sock, PF_INET, SOCK_STREAM, getprotoby…

最近、IRCチャットを始めたので、スクリプトからなにかできるようになればいいな、と思いました。 で、モジュールを探したら「AnyEvent::IRC」を発見しました。 ということで、投稿された英語コメントを日本語に翻訳して表示するスクリプトを書いてみました…

翻訳関係のAPIはないかなー、と探していたところ下記の記事を見つけました。 Google AJAX Language APIをPHPから叩いて翻訳する PHPの例だったので、perlでのコードを書いてみました。 use strict; use warnings; use URI::Escape; use Encode; use LWP::Sim…

バブルソートを行なうプログラムをperlで書いてみました。 use strict; use warnings; { my @a = (8,4,3,9,7,6,5,2,1); print "===================\n"; print join(',',sort(@a)) . "\n"; } sub bubble_sort { my @a = @_; my $a_length = @a; for (my $i =…

配列に入っている式から四則演算行なうプログラムをperlで書いてみました。 演算子とカッコの優先度を考慮しながら計算するために、逆ポーランド記法に直して計算するようにしています。 use strict; use warnings; { cal(qw|5 + 4 - 3|); cal(qw|5 + 4 * 3 …

perlには、シンボルテーブルというものがあります。 このテーブルには、パッケージ名やサブルーチン名などが格納されています。 perlのコンパイラが参照するためにシンボルテーブルがあるのです。 シンボルテーブルは、パッケージ毎に存在します。 例えば、 …

スレッドの生成 perlでスレッドを使用する時は、Threadモジュールを使用します。 スレッド生成の記述は二つあります。 use strict; use warnings; use Thread; my $something; my $t = Thread->new( sub { say ($something) } ); use strict; use warnings; …

http://d.hatena.ne.jp/memememomo/20100408/1270679837 こちらのプログラムの結果をTatsumakiを使用してブラウザで表示するようにしました。 app.psgi ここでは、ディスパッチ設定を行ないます。 「http://localhost:5000/{トラックワード}」でアクセスして…

AnyEvent::Twitter::Streamは、イベントループ内でTwitterのStreamAPIからデータを受け取っています。下記のコードは、受け取ったデータのうち、ユーザー名とツイート内容を表示しています。 #!/usr/bin/perl use strict; use Config::Pit; use AnyEvent::Tw…

Config::Pitモジュールは、プログラムにパスワードなどのハードコードを避けるためのモジュールです。 例えば、ニコニコ動画のダウンローダを作るときは、ログインする処理を書く必要があります。その時に、下記のようにパスワードをプログラムに書いてしま…

POE,AnyEvent,Coro,Tatsumakiの関係性がいまいち掴みきれていません。 ちょっと調べたことメモ。 イベントループのプログラミング イベントループとはイベントを見張るループ プログラマはイベントに対応したプログラムを作成する イベントループでイベント…

下記のプログラムをutf8で書いてみます。 use strict; use warnings; my $str = 'テスト'; print length $str, "\n"; # 9 実行すると「9」が出力されます。length関数は「テスト」をバイトとして扱うので、 返す結果は「３文字」ではなく「９バイト」になる…