Perlめも

推奨†

#!/usr/bin/perl -wT
use strict;

メモリに優しくファイルの行数を調べる†

open (FILE, "file.dat") || die;
while (<FILE>) {}
$line = $.;
close (FILE);

最長マッチと最短マッチ†

最長マッチ .+
最短マッチ .+?

排他処理†

flockを使いましょう
open毎にflockよりかは全体をflockするのが吉みたい

ミリ秒を求める†

Time::HiResモジュールを入れる必要がある

# tar xvzf Time-HiRes-1.9707.tar.gz
# cd Time-HiRes-1.9707
# perl Makefile.PL
# make
# make test
# make install

#!/usr/bin/perl
use Time::HiRes;
$now = Time::HiRes::time;

日付から秒数を求める†

use Time::Local;
$time = timelocal($sec, $min, $hour, $mday, $mon - 1, $year);

モジュールを確認する†

$ find `perl -e 'print "@INC"'` -name '*.pm' -print

決め打ちならば

$ find `perl -e 'print "@INC"'` -name 'Local.pm' -print

Image::Magickのインストール†

# yum install ImageMagick-perl