perl
大量の画像ファイルを比較するときに，画像を一回一回読み込むよりも全てのファイルをMD5でハッシュ値にして比較した方が速いんでないのと思ってみて使ってみる。（ホントにそうなのか知らないけど）とりあえずCPANからインストール。 $ cpan $ install Dige…
Perlで画像を処理するためのモジュールであるImagerをインストールする。 現在のバージョンは0.62のよう。まずインストールする前に画像用ライブラリをインストールしておく。 PNGを処理したいからlibpngとついでにlibjpegを入れる。 FCならyumでインストー…
Perlデバッガの使い方のメモ書き。 起動方法 コマンドラインで以下のように入力。 $ perl -d hoge.pl 操作 移動 s ステップイン。 n ステップオーバー。 r ステップアウト。 c 次のブレークポイントまで実行する。 c line 指定した行まで実行する。 ブレーク…
文字列を分割する。 split [pattern[,string[,max] ] ] italic;">pattern:区切り文字のパターン文字列（省略時は空白文字/\+/を使用） italic;">string:文字列（省略時は$_を使用） italic;">max:分割の最大数（省略時は制限なし） 引数stringを引数pattern…
File::Sortはファイルの内容を行単位でソートし，別のファイルへ出力する。 単純な並べ替え 入力ファイルを I => 出力ファイルを o => で指定する。 #!/usr/bin/perl use File::Sort qw(sort_file); sort_file({ I => "in.txt", o => "out.txt", }); # もし…
ディレクトリに含まれるファイルリストを返す。 SYNOPSIS use File::DirList; # my @list = File::DirList::list('.', 'dn', 1, 0); DESCRIPTION このモジュールは2つのメソッドを持つ。 list($dirName, $sortMode, $noLinks, $hideDotFiles, $showSelf) 指…
SYNOPSISのままです。 use File::Copy; copy("file1","file2") or die "Copy failed: $!"; copy("Copy.pm",\*STDOUT); move("/dev1/fileA","/dev2/fileB"); use File::Copy "cp"; $n = FileHandle->new("/a/file","r"); cp($n,"x");
NAME Text::CSV::Simple METHODS new my $parser = Text::CSV::Simple->new(\%options); 新しく作るとき。optionsはText::CSV_XSと同じ。 read_file my @data = $parser->read_file($filename); $filenameにCSVファイルパスを与える。 ファイルの内容を解析…
PerlでCSVファイルを扱うときに，毎回 open IN, "<", $filename; while(<IN>){ my @col = split(/,/, $_); ... } をするのが面倒なのでcpanを漁ってみる。 いつもお世話になっているGoogle先生，および最速インターフェース研究会様でモジュール検索。 調べた結</in>…
解説そのままだけど，毎回英語読むのはしんどいので書いておく。 NAME とっても基本的な統計関数だよ！！ SYNOPSYS こんな関数があるよ！！ # ひとつのベクトルに対するメソッド Statistics::Basic::Mean; # 平均 Statistics::Basic::Median; # 中央値 Stati…
root権限で以下のコマンドを実行。 # perl -MCPAN -e shell
特殊リテラル 説明 __END__ プログラムの論理的な終わり。これ以降は無視される。ただし，DATAファイルハンドルで読み込むことができる。 __FILE__ 現在のファイル名。 __LINE__ 現在の行番号 __PACHAGE__ 現在のパッケージ名 特殊リテラルを用いたプログラ…
ファイルのコピーを行う。 file1からfile2へコピーする。 use File::Copy; copy("file1", "file2");
CGIでホストのIPを得るためのコード。 #!/usr/bin/perl -w print << "EOL"; Content-type: text/html <html> <body> 現在の接続元IPアドレスは<br> $ENV{'REMOTE_ADDR'}<br> です<br><br> </body> </html> EOL
日付，時刻を取得するコード。 #!/usr/bin/perl -w @time = localtime(time); # 0 秒 0-59 # 1 分 0-59 # 2 時 0-23 # 3 日 1-31 # 4 月 0-11 # 5 年 西暦-1900 # 6 曜日 0-6 # 7 年頭からの日数 0-365 # 8 サマータイムフラグ 0,1（サマータイム有効なら1）…
