Perlめものバックアップ(No.6)

推奨 †

#!/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

# yum install ImageMagick-perl