Perlめも
の編集
https://yassu.jp/pukiwiki/index.php?Perl%A4%E1%A4%E2
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#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; *日付から秒数を求める [#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
タイムスタンプを変更しない
#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; *日付から秒数を求める [#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
テキスト整形のルールを表示する
