Script/TipsPerl

Perlのメモとか小技とか…

TEMPLATE

1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl -T
#####  Character-code is euc-jp. Tab-size is 4 space character.           #####
###############################################################################
## 
###############################################################################
use strict; # restrict unsafe constructs
use warnings; # control optional warnings ( as /usr/bin/perl -w )


###############################################################################
##    End Of File (source.pl)                                                ##
###############################################################################

strict プラグマ

変数宣言を厳密させる等々…

• strict - 安全ではないコンストラクトを制限する Perl プラグマ (perldoc.jp)
  • http://perldoc.jp/docs/perl/5.8.1/strict.pod

warnings プラグマ

perl のオプション "-w" の置き換え。オプションの場合は、スクリプト全体に適応されるが、プログラマは閉じられたブロックに限定される。

1度しか使われない変数名、設定される前に使われている変数、サブルーティンの再定義、未定義のファイルハンドルの参照や、 read-onlyでオープンしたファイルハンドルへの書き込み、数値に見えない値を数値として使った場合、配列をスカラであるかのように使った場合、 100段階以上のサブルーティンの再帰、その他たくさんの疑わしい事に警告を出します。

• warnings - 選択的な警告を調整する Perl プラグマ (perldoc.jp)
  • http://perldoc.jp/docs/perl/5.8.1/warnings.pod
• perldiag - さまざまな Perl 診断メッセージ (perldoc.jp)
  • http://perldoc.jp/docs/perl/5.6.1/perldiag.pod
  • http://perldoc.jp/docs/perl/5.8.8/perldiag.pod

Taintモード (汚染検出モード)

perl のオプションに -T を追加する。コマンドライン引数やCGIのパラメータなどの外から取得した変数をファイル名として開くときにエラーとなる。

これを回避するには、洗浄が必要となる。例えば、外部からファイル名を取得し $fn にセットして開こうとしている場合、以下のように正規表現を使ってデータの洗浄する。

if ($fn =~ /^([a-z0-9]+)$/i) {$fn = $1} else {die}

ただし、洗浄が正しくされてるかどうかまでは感知してくれないので、"-T" オプションのチェックを通ったとしても安全性は保証されない。

• perlsec - Perl のセキュリティ (perldoc.jp)
  • http://perldoc.jp/docs/perl/5.6.1/perlsec.pod

 必要なときにだけ、no strict 'refs';

どうしても use strict にするとプログラムが動かない場合は、no strict を利用して該当箇所(ブロック内)だけその効果を無効化する。

ただし、no strict; ではすべての use strict; の効果が消されてしまう。use strict; には、vars、refs、subs の３種類の効果がある。vars はすでに our があり、subs は \&subname という書き方があるので、実際に必要となるのは no strict 'refs'; のみとなる。

Perl 6では、このstrict(とwarnings)が標準となります。例外は-eをつけて、コマンドラインから実行する場合だけです。

• 参照：404 Blog Not Found:perl - use strict; # and be happy
  • http://blog.livedoor.jp/dankogai/archives/50502585.html

Perl Module

 The CPAN Search Site

CPANに登録されているモジュールを検索する。

http://search.cpan.org/search?module=<Module-Name>

 モジュールバージョン

インストールされている個別のモジュールのバージョンを調べる(例はLWP)。

perl -MLWP -e 'print $LWP::VERSION . "\n"'

perlでいろいろ

 ディレクトリ一覧

カレントディレクトリのアイテム一覧

perl -e 'opendir(DIR, "./");print join("\n", readdir(DIR))."\n";closedir(DIR);'