Perl の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• Perl へ行く。
  • 1 (2010-08-10 (火) 07:08:47)

---

• Perlの情報。どんな書き方もできるので人によって好き嫌いが分かれる。CPANというライブラリが豊富

基本テクニック†

引数のファイルを読み込んで表示†

• 下記コードをread.plとして保存

while(<>){
   print "$_\n";
}

perl read.pl 読み込みたいファイル

ファイルハンドルから配列に読み込ませる。†

変数宣言†

• 通常の変数の他、配列型や連想配列などは宣言が違ってくる

my $normal;
my %hash = ("key" => "value");
# 使うときは%ではなく$
$hash{"key"};

一行Perl†

HTMLの一括置き換え＆バックアップ†

perl -p -i.bak -e 's/catalog/index/g' *html

タブの置き換え†

perl -p -i.bak -e 's/\t/    /g' tabtest

CPAN†

ここを参考に設定する。ほとんどリターンキーでＯＫで、ミラーサイトの選択だけ慎重に！

基本操作†

perl -MCPAN -e 'install "Bundle::Bugzilla"'

• DBIとPostgres(CentOS3.4で成功）

perl -MCPAN -e 'install "DBI"'
perl -MCPAN -e 'install "DBD::Pg"'

インクルードパスの追加†

• @INCという配列変数にしたがってモジュールを検索している。大抵カレントも含まれるので最悪ライブラリを同じ場所において置けばよい。中身みたいなら以下のコマンドで

print join("\n",@INC);

• 追加するにはこんな感じで配列に加えてやる

unshift @INC,'/var/tmp';

• こんなやり方もある。こっちが直感的にわかりやすい気がする。

use lib 'ライブラリへのパス';

• コードにライブラリへのパスを書くのはいやだという人には環境変数PERLLIBを設定することをお勧めする。

Perlの使えるオプション†

汚染検出モード†

入力値をそのまま引数に渡すとエラーになる。ユーザ入力値をそのまま使うプログラムを改修する羽目になったらこいつでエラーを出して改修個所の当たりをつけるといいだろう。新規のプログラムでは当然このオプションをつけてもエラーが出ないようなプログラミングを心がけなければいけない。

正規表現ライブラリ†

• というほど大げさなものではなく、一度やったことのメモ書き。大概２ヶ月もたつと忘れてしまいますからね。

# 改行コード除去
$var =~ s/\r\n//g;
$var =~ s/\n//g;
# タブ除去
$var =~ s/\t//g;
# タグ除去
$var =~ s/<.*?>//g;
# 実体参照変換
$var =~ s/&gt;/>/g;
$var =~ s/&lt;/</g;
$var =~ s/&nbsp;/ /g;
$var =~ s/&quot;/"/g;
$var =~ s/&amp;/&/g;

# 英数字以外が含まれていた場合は不正とみなす。
if ($var =~ /[^a-zA-Z0-9]+/) {
    return undef;
}