- 追加された行はこの色です。
- 削除された行はこの色です。
#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?モジュールを入れる必要がある
Time::HiResモジュールを入れる必要がある
# tar xvzf Time-HiRes-1.55.tar.gz
# cd Time-HiRes-1.55
# 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;
*日付から秒数を求める [#c6f56e15]
use Time::Local;
$time = timelocal($sec, $min, $hour, $mday, $mon - 1, $year);
*モジュールを確認する [#w41c926e]
$ find `perl -e 'print "@INC"'` -name '*.pm' -print
決め打ちならば
$ find `perl -e 'print "@INC"'` -name 'Local.pm' -print
*Image::Magickのインストール [#e5b8b7a6]
# yum install ImageMagick-perl
