#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.55.tar.gz
 # cd Time-HiRes-1.55
 # perl Makefile.PL
 # make
 # make test
 # make install
 #!/usr/bin/perl
 use Time::HiRes;
 $now = Time::HiRes::time;

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS