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