日常的に使用される代表的な関数。

• chmod 許可属性 対象;
• chmod 0604 $file; → $fileの許可属性を0604に

いわゆるパーミッションの変更です。

• chop 文字列または配列;
• chop $name; → $nameの最後の文字を削る
• chop @name; → @nameの全要素の最後の文字を削る

削る文字が何であるかは判断しません。

• chomp 文字列または配列;

Perl4ではサポートしていません。

• crypt 文字列, キー;
• $p=crypt $pw,$cy; → $pwを暗号化して$pへ格納

Cにある同名のライブラリと同じ機能を持ちますが、Perlのcrypt関数は一方通行です。decryptは存在しません。
crypt関数はPerlの/etc/passwdで使用されているものと同じものです。パスワードを暗号化する目的で使われることが多いようです。

• rename 旧名 新名;
• rename $hoge $fuga; → $hogeを$fugaに変更

タイムスタンプや属性は変更されません。

• push(@配列名, スカラー);
• push(@cat, $bm); → @catの最後に$bmを追加

@cat = (@cat, $bm); でも同じです。反対の動作をする関数はpop。

• unshift(@配列名, リスト);
• unshift(@cat, $bm); → @catの先頭に$bmを追加

配列の要素の順番をトコロテン式に入れ換える場合に便利です。

例) unshift(@cat, pop(@cat));

• unlink(ファイル名);

• split (区切りパターン),(スカラー),(最大分割数);
• @v = split('&', $val); → $valを&で分割して@vへ

パターン指定には正規表現が使用できます。

• sub (サブルーティン名) { }

perlでは、サブルーティンはスクリプト中のどの位置に置いても構いません。&(サブルーティン名）(引数)で呼び出します。

例) 
sub referrer {
     $ref = $ENV{'HTTP_REFERER'};
     return $ref;
}
&referrer(); # ←ここで呼び出す

• local(変数名);

これで宣言された変数は、そのサブルーティン内でのみ値を持ちます。サブルーティンを抜けた時点で変数は消滅するので、スクリプト中に登場する他の変数名と重複していても値は書き換わりません。

• print (ファイルハンドル) (リスト);
• print FILE $count; → FILEに$countを出力
• print; → print STDOUT $_;の意

文字を表示するのに使用されることが多いですが、これはファイルハンドルの指定を省略するとデフォルトに出力される為です。


この関数は、1970年1月1日00:00:00UTC(協定世界時間)からの経過秒数を返します。主にlocaltime(time)という形で引数として使用され、現在時刻を得るために使用されます。

($sec,$min,$hour,$date,$mon,$year)
                          = localtime(time);
$mon++;
$year = (1900 + $year);

という記述でPSTを取得できます。

• sprintf("フォーマット形式");
• $time=sprintf("$hour:$min"); → 時:分 が$timeに代入される

上のlocaltime(time)で取り込んだ日時データを、可視的にフォーマットする為の使用が実用的です。

• system(コマンド);
• system("ls -l"); → ディレクトリの詳細を表示

文字列で指定されたコマンドを実行し、戻り値を返します。

• use 識別子;
• use Socket; → ソケットを使用する

引数にモジュール名を指定した場合は.pmを拡張子に付加して該当するモジュールを読み込みます。その際に検索するパスは@INCにセットされたものを使用します。
引数が文字列の場合はPerlコードを含むプログラムと解釈して実行します。
引数が数値(perlのバージョン番号)の場合、その数値が$]の値より小さいと強制終了になります。

• require ファイル名;
• require './jcode.pl'; → ./jcode.plを実行

主にライブラリファイルを読み込んだり、複数のスクリプトで構成するCGIで他のファイルを読み込む際に使用されます。
requireはuseと役割が似ていますが、コンパイル時ではなく実行時にエラーを返すという点が異なります。
requireが返す値に'偽'はありません。つまり、'真'が返らない時点で500 Internal Server Errorを見る運命にあります。自作のパッケージなどは末尾に1;の記述を忘れるとドツボにはまります。

• chdir(ディレクトリ);
• chdir($dir); → $dirへ移動する
• chdir("cgi-bin") → /cgi-bin/へ移動する

引数には文字列も変数も指定できます。移動後のカレントディレクトリは`pwd`で取得する事も多いようですが、use Cwdで取得する方法もあります。