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