#contents
*推奨 [#l7df2493]
#!/usr/bin/perl -wT
use strict;
*メモリに優しくファイルの行数を調べる [#w072e109]
open (FILE, "file.dat") || die;
while (<FILE>) {}
$line = $.;
close (FILE);
*最長マッチと最短マッチ [#v70885e9]
最長マッチ .+~
最短マッチ .+?
*排他処理 [#f3d84407]
flockを使いましょう~
open毎にflockよりかは全体をflockするのが吉みたい
*ミリ秒を求める [#qbf339f6]
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;