Perlのソースを表示

{{Otheruses|Perlとしての最新バージョンであるバージョン5系までのPerl|当初Perlの次期メジャーバージョンとして設計が始められたプログラミング言語|Perl6}}
{{Infobox プログラミング言語
| 名前 = Perl
| ロゴ = 
| パラダイム = マルチパラダイム
| 登場時期 = [[1987年]]
| デザイナ = [[ラリー・ウォール]]
| 最新リリース = 5.20.0 / {{start date and age|2014|05|27}}
| 型付け = [[動的型付け]]
| 影響を受けた言語 = [[AWK]]、[[BASIC-PLUS]]、[[C言語|C]]、[[C++]]、[[LISP]]、[[Pascal]]、[[sed (コンピュータ)|sed]], [[シェル#シェルスクリプト|シェルスクリプト]]
| 影響を与えた言語 = [[JavaScript]]、[[PHP: Hypertext Preprocessor|PHP]]、[[Python]]、[[Ruby]]、[[Windows PowerShell|PowerShell]]
| プラットフォーム = [[クロスプラットフォーム]]
| ライセンス = [[GNU General Public License]], [[Artistic License]]
| ウェブサイト = http://www.perl.org/
| wikibooks = Perl
}}
{{プログラミング言語}}
'''Perl'''（パール）とは、[[ラリー・ウォール]]によって開発された[[プログラミング言語]]である。実用性と多様性を重視しており、[[C言語]]や[[sed (コンピュータ)|sed]]、[[AWK|awk]]、[[シェル#シェルスクリプト|シェルスクリプト]]など他のプログラミング言語の優れた機能を取り入れている。ウェブ・アプリケーション、システム管理、テキスト処理などのプログラムを書くのに広く用いられている。

言語処理系としてのperlは[[フリーソフトウェア]]である。[[Artistic License]]および[[GNU General Public License|GPL]]のもとで配布されており、誰でもどちらかのライセンスを選択して利用することができる。[[UNIX]]や[[Microsoft Windows|Windows]]など多くのプラットフォーム上で動作する。

== 特徴 ==
* 強力な文字列処理。[[正規表現]]をサポート
* 日本語をはじめとして世界中の言語を処理可能
* [[連想配列]]（ハッシュ）をサポート
* 多次元データ構造が利用可能
* 自由度の高い文法。簡潔にプログラムを記述できる
* 高い[[後方互換]]性を持つ
* 数多くのオペレーティングシステムで利用可能
* プログラムの実行には事前コンパイルは不要
* スクリプト言語の中では高い処理速度を持つ
* [[Unicode]]のサポート
* モジュールによる拡張が可能
* 有志によって開発された豊富なモジュール（[[CPAN]]を参照）
* [[オブジェクト指向]]プログラミングのサポート
* [[参照カウント|リファレンスカウント]]方式によるガーベッジコレクション
* [[例外処理]]のサポート
* [[クロージャ]]のサポート
* [[リフレクション (情報工学)|リフレクション]]のサポート

== Hello world ==
{{see|Hello world}}
<source lang="perl">
print "Hello, world!\n";
</source>

== 文法 ==
=== コメント ===
「'''#'''」以降は行末までがコメントである。

<source lang="perl">
# ここはコメントです。
</source>

=== 変数 ===
変数としてスカラ、配列、ハッシュがある。変数名の前にシジル (sigil) と呼ばれる記号でこれらの変数を区別する。スカラのシジルは「$」、配列は「@」、ハッシュは「%」となっている。

変数は初期化の仕方によって、スコープが異なったものになる。

*変数宣言をせずに初期化された変数 → [[大域変数]]
*<code>local</code>宣言をしてから初期化された変数 → [[動的スコープ]]で、ブロック内でのみ有効な[[局所変数]]
*<code>my</code>宣言をしてから初期化された変数 → [[静的スコープ]]で、ブロック内でのみ有効な[[局所変数]]

より高速で安全な<code>my</code>宣言が導入されたPerl 5.0以降、<code>local</code>宣言は非推奨となっている<ref>{{Cite web
|url=http://perldoc.perl.org/perlsub.html
|title=perlsub - perldoc.perl.org
|language=英語
|accessdate=2011-07-21
|quote=<b>WARNING</b>: In general, you should be using <code>my</code> instead of <code>local</code>, because it's faster and safer.
}}</ref>。

下のコードは <code>my</code> を使って変数を宣言し、同時に初期化する例である。<code>local</code>宣言もキーワードが異なるのみで同様である。

<source lang="perl">
{
my $num     = 2 + 3;
my $message = "Hello, world";
my @nums    = (0, 1, 2);
my %score   = (english => 100, math => 80);
# これらの変数は開き括弧「{」から閉じ括弧「}」までの間で有効。
}
</source>

配列およびハッシュの各要素はスカラであり、以下のようにアクセスする。ひとつの要素にアクセスするときは、変数が配列やハッシュであっても「$」を使う。

<source lang="perl">
$nums[0]; # 0
$score{math} # 80
</source>

スカラには数値、文字列などを格納することができる。

<source lang="perl">
$jackBauer = 24;
$pi = 3.14159265358979;
$vulcanSalute = 'Live long and Prosper!';
</source>

=== 条件分岐 ===

条件分岐を行うには「if ～ elsif ～ else」を利用する。

<source lang="perl">
if (条件1) {
    ～ 処理1が真の場合の処理 ～
}
elsif (条件2) {
    ～ 条件1が偽で、条件2が真の場合の処理 ～
}
else {
    ～ 条件1も条件2も偽の場合の処理 ～
}
</source>
条件分岐後の処理は文がひとつの場合でも必ず中括弧「{～}」で囲まねばならない。

ifは修飾子として後置することもできる。この場合は逆に中括弧で囲むことはできず、ひとつの文しか指定できない。

<source lang="perl">
print 'Hello' if 条件 ;
</source>

ifに対してunlessが存在する。ifとは反対に条件が満たされなかった場合に処理が実行される。

<source lang="perl">
unless (条件) {
    ～ 条件が偽の場合の処理 ～
}

print 'Hello' unless 条件 ;
</source>

=== 繰り返し ===
繰り返しには <code>foreach</code>、<code>for</code>、<code>while</code>、<code>do</code> - <code>while</code> を利用する。

<code>'''foreach'''</code> はすべての配列の要素を順番に処理したい場合に利用される。

<source lang="perl">
my @names = ('Tom', 'Mike', 'Bred');
foreach my $name (@names) {
    # 処理
}
</source>

<code>'''for'''</code>は規則性のある仕方で変数を変化させるときに使う。

<source lang="perl">
$sum = 0 ;
for (my $i = 0; $i < 10 ; ++$i) {
    $sum += $i;
}
</source>

<source lang="perl">
for ($node = $doc->getFirstChild ; $node ; $node = $node->getNextSibling) {
    print $node->getNodeValue, "\n";
}
</source>

<code>for<code> と <code>foreach<code> は修飾子として後置することもできる。配列の各要素は順に$_という変数に渡される。

<source lang="perl">
print $_ for @names;
</source>

<code>'''while'''</code> は処理を始める<u>前に</u>条件を検査し、条件が満たされる間、処理が繰り返される。

<source lang="perl">
while (条件) {
    # 処理
}
</source>

<code>while</code> には、次の繰り返しに移る前に行いたい処理を <code>'''continue'''</code> ブロックにまとめて書くことができる。
<source lang="perl">
while (条件) {
    # 処理
} continue {
    # 次の繰り返しの前に行う処理
}
</source>

<code>'''do''' - '''while'''</code> は処理を行った<u>後に</u>条件を検査し、条件が満たされる間、処理が繰り返される。

<source lang="perl">
do {
    # 処理
} while (条件) ;
</source>

===繰り返し文の制御===

<code>'''last'''<code> で繰り返しを抜けることができる。<code>while</code> 文で <code>continue</code> ブロックがある場合には、<code>continue</code> ブロックの内容は実行されない。

<source lang="perl">
foreach my $v (@values) {
    # 0 ≦ $v でない値を見つけたら、その時点で繰り返しをやめる。
    last unless 0 <= $v ;
}
</source>

<code>'''next'''</code> で次の繰り返しに移行する。<code>next</code> では、<code>while</code> 文で <code>continue</code> ブロックがある場合には、次の繰り返し処理に移る前に <code>continue</code> ブロックの内容は実行が実行される。<code>for</code> 文の場合、次の繰り返し処理に移る前に <code>for</code> 文の3番目の引数文が実行される。

<source lang="perl">
foreach my $v (@values) {
    # 0 ≦ $v でない値を見つけたら、次の繰り返し処理に移る。
    next unless 0 <= $v ;
}
</source>

<code>'''redo'''</code> で次の繰り返しに移行する。<code>redo</code> では、<code>while</code> 文で <code>continue</code> ブロックがある場合には、次の繰り返し処理に移る前に <code>continue</code> ブロックの内容は実行が実行され<u>ない</u>。<code>foreach</code> でも（制御）変数の値は変更<u>されず</u>に最初から同じ処理を繰り返す。<code>for</code> 文の場合、次の繰り返し処理に移る前に <code>for</code> 文の3番目の引数文が実行され<u>ない</u>。実のところ <code>redo</code> は繰り返し文専用の制御構造ではなく、ブロック（<code>{</code> ～ <code>}</code> で囲われたところ）の<u>内側</u>であればどこででも使え、ブロックの先頭に <code>goto</code> で飛び越すのと全く等価である。

===任意の飛び越し===
任意の場所に飛び越しを行うには <code>'''goto'''</code> を利用する。<code>goto</code> の後ろには飛び越し先ブロックのラベルを書く。<code>goto</code> 文は繰り返し文の中やブロックの内側でなくとも、プログラム中のどこにでも記述できる。しかし、繰り返し文の中での飛び越しには<code>last</code>、<code>next</code>、ブロックの内側であれば <code>redo</code> を使う方がコードが読みやすくなるので、<code>goto</code>が使われることは少ない。

<source lang="perl">
goto destination ;

print "この print 文は実行されない。\n" ;

destination: {
    print "飛び越し先ブロック\n" ;
}
</source>

=== サブルーチン ===
[[サブルーチン]]は以下のように定義する。

<source lang="perl">
sub hello {
    print "Hello, world!\n";
}
</source>

呼び出しは以下のとおり。

<source lang="perl">
hello();
hello;
&hello();
</source>

サブルーチンは関数としても機能する。その場合、最後に評価した値ないし<code>return</code>で指定された値が戻り値となる。

<source lang="perl">
sub hello {
    return "Hello, world\n"; # return は省略可能
}
print hello(); # "Hello, world!" と表示
</source>

引数は特殊変数<code>@_</code>に格納される。

<source lang="perl">
# 丁寧に書いた例
sub mul {
    my ($left, $right) = @_;
    return $left * $right;
}

sub mul { $_[0] * $_[1] }; # こうも書ける
</source>

=== リファレンス ===
データに直接アクセスするのではなく、データの存在するメモリアドレスをスカラ値として定義するリファレンスを使用することができる。スカラ、配列、ハッシュ、ファイルハンドル、サブルーチンのリファレンスが存在する。

<source lang="perl">
my $scalar_ref = \$scalar; # スカラへのリファレンス
my $array_ref  = \@array;  # 配列へのリファレンス
my $hash_ref   = \%hash;   # ハッシュへのリファレンス
my $sub_ref    = \&sub;    # サブルーチンへのリファレンス
open my $fh, '<', $file;   # $fhがファイルハンドルへのリファレンス
</source>

参照元にアクセス、すなわちデリファレンスするには、シジルを変数名の頭につければよい。

<source lang="perl">
my $scalar = $$scalar_ref;
my @array  = @$array_ref;
my %hash   = %$hash_ref;
my $sub    = &$sub_ref(2, 3); # サブルーチン呼び出し -- $sub には戻り値が入る
</source>

ただし、配列・ハッシュおよびサブルーチンへのリファレンスに関しては、その要素にアクセスするのに（あるいはサブルーチンを呼び出すのに）->を使うことができる。

<source lang="perl">
$array_ref->[0];
$hash_ref->{two};
$sub_ref->(2, 3);
</source>

配列・ハッシュについては、配列名・ハッシュ名が定義されておらず、リファレンスからのみアクセスできる無名配列・無名ハッシュを作成することができる。

<source lang="perl">
my $array_ref = [0, 1, 2];                       # 無名配列
my $hash_ref  = {zero => 0, one => 1, two => 2}; # 無名ハッシュ
</source>

また、無名サブルーチンを作ることもできる。

<source lang="perl">
my $sub_ref = sub { $_[0] * $_[1] };
print $sub_ref->(2, 3), "\n"; # 6 を出力
print &$sub_ref(2, 3),  "\n"; # こうも書けるが、読みにくいためあまり使われない
</source>

参照元のデータタイプを調べるには、<code>ref</code>を使う。

<source lang="perl">
ref 1;           # ''
ref $scalar_ref; # 'SCALAR'
ref $array_ref;  # 'ARRAY'
ref $hash_ref;   # 'HASH'
</source>

参照元がオブジェクトの場合、refはそのオブジェクトが所属するパッケージ名（クラス名）を返す。

<source lang="perl">
ref Foo::Bar->new(); # たいてい 'Foo::Bar'
</source>

=== モジュールの利用 ===

モジュールを利用するにはuseを使用する。

<source lang="perl">
use Net::FTP;
</source>

モジュールの読み込みと共に関数をインポートしたい場合は、モジュール名に続いて、関数名を並べるのが一般的である。

<source lang="perl">
use File::Basename 'fileparse';
</source>

=== 評価コンテキスト ===
評価コンテキスト、すなわち、構文上何が(リスト、数値、文字列、リファレンス、あるいは何もないのかが)要求されているかの違いにより評価値が変化する。
リストがスカラコンテキストで評価されるとリストの最後の要素に評価され、配列がスカラコンテキストで評価されると配列の長さに評価される。

<source lang="perl">
$x = ("a", "b");  #リストをスカラコンテキストで評価
print $x;         # b を出力
@a = ("a", "b");
$x = @a;          #配列をスカラコンテキストで評価
print $x;         # 2 を出力
($x, $y) = @a;    #リストコンテキスト
print $x;         # a を出力
</source>

意味が大きく変わる表現も存在する。
<source lang="perl">
@match = ("123 a 56 x" =~ m/\d+/g); #リストコンテキスト (全てを一度にマッチ）
# @match => ("123", "56")
$match = ("123 a 56 x" =~ m/\d+/g); #スカラコンテキスト (順次マッチ）
# $match => "1"
</source>

ブロックを呼び出したコンテキストを <code lang="perl">wantarray</code> で判別することができる。したがって、コンテキストによって返り値を切り替えるような関数をユーザーが定義することもできる。

=== 例外処理 ===

例外を発生させるにはdie関数を使う。例外が発生するとプログラムはメッセージを出力して終了する。

<source lang="perl">
die "例外が発生しました。";
</source>

例外をキャッチするには「eval { };」を使用する。例外が発生した場合は特殊変数「$@」にメッセージが代入される。「$@」の値を調べることで例外が発生した場合の処理を記述できる。

<source lang="perl">
eval {
    例外が発生する処理
};

if ($@) {
    例外が発生した場合の処理
}
</source>

=== パッケージ ===
Perlにおけるパッケージとは、一般的に名前空間と呼ばれる機能のことである。パッケージを宣言するには「package」を使う。

<source lang="perl">
package Foo;
</source>

パッケージ内で宣言されたパッケージ変数とサブルーチンはパッケージに属するものとなる。パッケージ変数を宣言するには「our」を使う。パッケージ変数には大文字を利用するのが一般的である。

<source lang="perl">
package Foo;

our $NUM = 1;

sub sum {
    ...
}

package Bar;

our $NUM = 2;

sub sum {
    ...
}
</source>

上記において、Fooパッケージのパッケージ変数$NUMとBarパッケージのパッケージ変数$NUMはまったく別の変数である。またFooパッケージのsumとBarパッケージのsumはまったく別のサブルーチンである。パッケージ変数やサブルーチンはパッケージごとに定義することができる。

自パッケージ内であれば、パッケージ名の指定を行わずに、パッケージ変数やサブルーチンを参照することができる。

<source lang="perl">
package Foo;

our $NUM = 1;

sub sum {
    ...
}

print $NUM;
print sum();
</source>

他のパッケージから参照するには、完全修飾を行う必要がある。mainはデフォルトのパッケージをあらわす。

<source lang="perl">
package Foo;

our $NUM = 1;

sub sum {
    ...
}

package main;

print $Foo::NUM;
print Foo::sum();
</source>

=== オブジェクト ===
Perlでは、上記のリファレンスとパッケージを組み合わせることにより、クラスベースのオブジェクト指向を実現している。

<source lang="perl">
package Class;

# コンストラクタ
sub new {
    my $class = shift;
    my $self  = {@_};
    bless $self, $class;
}

# アクセサ
sub meth {
    my $self = shift;
    $self->{meth} = shift if @_;
    $self->{meth};
}
</source>

オブジェクトを使うときは以下のようにする。

<source lang="perl">
my $obj = Class->new(meth => 'od');
warn $obj->meth; # 'od';
</source>

なぜこれが動くのかというと実は、Perlはこれを以下のように解釈している。

<source lang="perl">
my $obj = Class::new('Class', meth => 'od');
warn Class::meth($obj);
</source>

Perlにおいて、クラスはただのパッケージであり、オブジェクトはただのblessされたリファレンスであり、そしてメソッドは第一引数にオブジェクトをとるただのサブルーチンである。これはPerl 4との互換性を考慮してこのような「後付け」の設計となったのだが、驚くべき柔軟性を示す。これだけで[[継承 (プログラミング)|継承]]も[[委譲]]も出来てしまうのだ。最初から[[オブジェクト指向]]のもとに設計された言語から見ると見た目は変であるが、それらの言語にまさるとも劣らないオブジェクト機能をPerlは持っている。

=== ドキュメンテーション ===

ドキュメンテーションは[[Plain Old Documentation|POD]]を用いて記述する。

<source lang="perl">
=head1 NAME

foo.pl

=head1 DESCRIPTION

this script is ...

=cut

</source>

=== ワンライナー ===

コマンドラインからワンライナーと呼ばれる機能を使って、Perlを実行することができる。

<pre>perl -e 'print "Hello, world!\n"'</pre>

<pre>perl -le 'print "Hello, world!"'</pre>

=== 推奨されている記述 ===

以下の2行をプログラムの先頭に記述することが強く推奨されている。

<source lang="perl">
use strict;
use warnings;
</source>

strict は潜在的な問題をコンパイル時に調べるためのものであり、warnings は警告の出力を有効にするためものである。perl インタプリタを起動するときのコマンドラインオプションの -w とは似ているが同じではない。warnings の方がより細かいので use warnings を使って -w オプションは省略すればよい。

また、use で 5.11.0 以降のバージョン番号を指定した場合にはデフォルトで use strict が有効になるため<ref>http://perldoc.jp/docs/perl/5.12.0/perl5120delta.pod#Implicit32strictures</ref>、書くことが推奨されるのは use warnings のみとなる。

<source lang="perl">
use 5.12.0;
use warnings;
</source>

=== Perl 5.10 で追加された機能 ===

Perl 5.10.0以降では改行を自動的に出力するsayが使えるようになった。

<source lang="perl">
use 5.10.0; # 5.10未満のPerlでの動作を制限するとともに、5.10での追加機能を有効に
say "Hello, world!";
</source>

シェルからは<code>-e</code>オプションの代わりに<code>-E</code>を使用すれば、追加機能を利用できる。

<pre>perl -E 'say "Hello, world!"'</pre>

===複数行の注釈===
[[Plain Old Documentation|POD]]による記法を用いると複数行コメントを書くことができる。(あまり利用されない)

<source lang="perl">
=begin comment
ここは
コメント
です。
=end comment
</source>

=== その他の特徴 ===

* [[スレッド (コンピュータ)|スレッド]]
*: Perlのスレッドはデータが丸ごとコピーされるという点で概念的にUNIXや[[Linux]]の[[fork]]に近い。iThreads（インタープリタスレッド）と呼ばれており、他のシステムにおけるどのスレッドとも実装は異なる。[[シグナル_(ソフトウェア)|シグナル]]と同時に利用することで問題があるとも言われている。もともとWindows版にて[[fork]]のような実装を行うためのコードだったものから、発展している。<ref>http://perldoc.perl.org/perlfork.html perlfork - Perl's fork() emulation</ref>多くの[[Linux]]ディストリビューションではiThreadsをオンにして配布しているが、安全性重視をうたっている[[FreeBSD]]や[[OpenBSD]]の標準ディストリビューションや[[OpenSolaris]]では、iThreadsをオフにしている。
* PerlIOレイヤ
*: [[入出力]]操作に手を加えることができる。各レイヤはC言語で実装できるため高速である。

== モジュール ==
Perlプログラムには、[[モジュール]]によって機能を付加することができる。たとえば、他のプログラムやネットワークとの通信、各種ファイル形式の取り扱い、数学的な計算など、数多くのモジュールが存在する。PerlにはCPANというモジュールを体系的に管理する[[インターネット]]上のシステムがある。インターネットに接続しているならば、CPANにアクセスして、モジュールをインストールすることが可能である。

{{Main|CPAN}}

=== 標準モジュール ===

Perlには標準で利用できるモジュールが数多く存在する。

* [http://search.cpan.org/dist/base/lib/base.pm base] - クラスの継承
* [http://search.cpan.org/dist/perl/lib/Benchmark.pm Benchmark] - ベンチマーク
* [http://search.cpan.org/dist/perl/lib/Carp.pm Carp] - 呼び出し元の観点で例外を発生
* [http://search.cpan.org/dist/PathTools/Cwd.pm Cwd] - カレントディレクトリのパスを取得
* [http://search.cpan.org/dist/Data-Dumper/Dumper.pm Data::Dumper] - 変数の内容を出力
* [http://search.cpan.org/dist/Digest-MD5/MD5.pm Digest::MD5] - MD5値
* [http://search.cpan.org/dist/Digest-SHA/lib/Digest/SHA.pm Digest::SHA] - SHA-1/224/256/384/512  
* [http://search.cpan.org/dist/Encode/Encode.pm Encode] - 文字列のエンコード・デコード
* [http://search.cpan.org/dist/perl/lib/utf8.pm utf8] - utf8プラグマ
* [http://search.cpan.org/dist/Exporter/lib/Exporter.pm Exporter] - 関数のエクスポート
* [http://search.cpan.org/dist/perl/lib/File/Basename.pm File::Basename] - ファイルのベース名とディレクトリ名の取得
* [http://search.cpan.org/dist/perl/lib/File/Copy.pm File::Copy] - ファイルの移動とコピー
* [http://search.cpan.org/dist/File-Path/Path.pm File::Path] - 複数階層のディレクトリの作成と削除
* [http://search.cpan.org/dist/PathTools/lib/File/Spec.pm File::Spec] - ファイル名に対する移植性のある処理
* [http://search.cpan.org/dist/File-Temp/Temp.pm File::Temp] - 一時ファイルの生成
* [http://search.cpan.org/dist/perl/lib/FindBin.pm FindBin] - スクリプトが存在するディレクトリのパスの取得
* [http://search.cpan.org/dist/Getopt-Long/lib/Getopt/Long.pm Getopt::Long] - コマンドライン引数の処理
* [http://search.cpan.org/dist/lib/lib_pm.PL lib] - モジュールの検索パスを追加
* [http://search.cpan.org/dist/Scalar-List-Utils/lib/List/Util.pm List::Util] - 配列に対する処理
* [http://search.cpan.org/dist/libnet/Net/FTP.pm Net::FTP] - FTPクライアント
* [http://search.cpan.org/dist/Scalar-List-Utils/lib/List/Util.pm Scalar::Util] - スカラ値のユーティリティ
* [http://search.cpan.org/dist/Storable/Storable.pm Storable] - データの直列化
* [http://search.cpan.org/dist/perl/ext/Sys-Hostname/Hostname.pm Sys::Hostname] - ホスト名の取得
* [http://search.cpan.org/dist/Time-Piece/Piece.pm Time::Piece] - 日付・時刻の扱い
* [http://search.cpan.org/dist/IO/lib/IO/Socket/INET.pm IO::Socket::INET] - ソケット

=== 代表的なCPANモジュール ===
; テキスト処理
:* [http://search.cpan.org/dist/Text-CSV/lib/Text/CSV.pm Text::CSV] - CSVファイルの解析
:* [http://search.cpan.org/dist/Text-Diff/lib/Text/Diff.pm Text::Diff] - diffコマンド
:* [http://search.cpan.org/dist/Template-Toolkit/lib/Template.pm Template Toolkit] - テンプレートシステム

; データベース
:* [http://search.cpan.org/dist/DBI/DBI.pm DBI] - 汎用[[データベース]]インタフェース
:
; Webアプリケーション
:* [http://search.cpan.org/dist/CGI/lib/CGI.pm CGI] - CGIプログラミング
:* [http://search.cpan.org/dist/Plack/ Plack] - [[PSGI]]のリファレンス実装
:* [http://mojolicio.us/ Mojolicious] - Webフレームワーク
:* [http://search.cpan.org/dist/Catalyst-Runtime/lib/Catalyst.pm Catalyst] - Webアプリケーションフレームワーク
:
; Webアクセス
:* [http://search.cpan.org/dist/libwww-perl/lib/LWP/UserAgent.pm LWP::UserAgent] - WWWクライアント
:
; データ記述言語の処理
:* [http://search.cpan.org/dist/XML-Simple/lib/XML/Simple.pm XML::Simple] - XMLをPerlのデータ構造に変換
:* [http://search.cpan.org/dist/XML-LibXML/LibXML.pod XML::LibXML] - XMLのサポート
:* [http://search.cpan.org/dist/JSON/lib/JSON.pm JSON] - [[JSON]]のサポート
:* [http://search.cpan.org/dist/YAML/lib/YAML.pm YAML] - [[YAML]]のサポート

== 歴史 ==

{|class=wikitable
|+Perlの歴史
!バージョン!!公開日!!内容
|-
|nowrap|1.0
|nowrap|1987年12月18日
|
*6台の {{lang|en|VAX}} 機と6台の {{lang|en|Sun}} 機のためのコンフィギュレーション管理制御システムのレポート作成ツールとして誕生した。
|-
|nowrap|2.0
|nowrap|1988年6月05日
|
*ヘンリー・スペンサー作の美しい正規表現ライブラリを {{lang|en|Perl}} 風にアレンジし、導入した。 
|-
|nowrap|3.0
|nowrap|1989年10月18日
|
*バイナリデータを処理できるようになった。
|-
|nowrap|4.0
|nowrap|1991年3月21日
|
*{{lang|en|O'Reilly&Associates, Inc.}} より {{lang|en|Programming perl}} が発売されたのに合わせて公開された。
|-
|nowrap|5.0
|nowrap|1994年10月17日
|
*リファレンスおよびオブジェクト指向に対応。
*<code>use</code>が導入され追加モジュールの取扱いが大幅に強化された。
|-
|nowrap|5.5.0
|nowrap|1998年7月22日
|
*正規表現の拡張、<code>B::*</code>モジュールによるフックのサポート、<code>qr//</code> 正規表現演算子の追加がなされた。
*{{lang|en|BeOS}} を含む幅広いオペレーティングシステムに移植された。
*日本語圏で最も重要なことは、このバージョンが {{lang|en|JPerl}} がサポートする最後のバージョンということである。したがって、日本語情報処理において今なお使われている。
|-
|nowrap|5.6.0
|nowrap|2000年5月22日
|
*<code>our</code>文やウィークリファレンス、<code>warnings</code>プラグマの導入など、言語コアが大きく拡張された。
*試験的ながら {{lang|en|Unicode}} のサポートを開始した最初のバージョン。
*バージョン番号の構造を変更。サブバージョン（5.6.0の6に相当）が偶数のものが安定版、奇数のものが開発版を意味する。
|-
|nowrap|5.8.0
|nowrap|2002年7月18日
|
*5.8系列の最新版は5.8.9（2008年12月14日）。
*汎用文字エンコーディング操作モジュール <code>Encode</code> が標準ライブラリに加えられ、{{lang|en|Unicode}}および {{lang|en|[[Shift_JIS]]}} などの様々な文字エンコーディングに正式に対応した。
*スレッドや<code>PerlIO</code>レイヤが導入された。
|-
|nowrap|5.10.0
|nowrap|2007年12月18日
|
*公開日は {{lang|en|Perl 1.0}} の公開からちょうど20年目にあたる。
*静的変数を宣言する <code>state</code> 文や、[[switch文|{{lang|en|switch}}文]]に相当する <code>given</code> 文、<code>say</code> などの言語拡張が導入された。
*新しいキーワードの導入による[[互換性]]の問題に対処するため、新しいキーワードの導入を <code>feature</code> プラグマで制御できるようになった。
|-
|nowrap|5.12.0
|nowrap|2010年4月13日
|
*<code>package</code> のバージョン指定構文や未実装部分を表す...演算子（[[ヤダヤダ演算子]]）、後置の <code>when</code> 修飾子などが導入された。
*日付と時刻に関するコアモジュールが[[2038年問題]]に対応した。
|-
|nowrap|5.14.0
|nowrap|2011年5月14日
|
*{{lang|en|Unicode}} 6.0 にほぼ完全に対応。
*IPv6サポートの改善。
*<code>push</code>、<code>pop</code>、<code>unshift</code>、<code>shift</code>、<code>each</code>、<code>keys</code>、<code>values</code> などの配列やハッシュを受け取る関数が、リファレンスを受け取ることができるようになった。
*「<code>package パッケージ名 { ... }</code>」構文の追加。
*値を破壊せずに戻り値として返す正規表現オプション「<code>r</code>」が追加。
|-
|nowrap|5.16.0
|nowrap|2012年5月20日
|
*「<code>use バージョン番号</code>」文の動作が変更された。以前はスクリプトの実行に必要なPerlのバージョンを示すものだったが、「指定したバージョンよりも新しいバージョンの {{lang|en|Perl}} で新たに実装された機能を無効化する」という動作になった。
*「<code>__SUB__</code>」は現在実行中のサブルーチンに対する参照を返す。
*<code>feature</code> プラグマで「<code>unicode_eval</code>」を有効にすると、文字列に対する <code>eval</code> は常に文字列を {{lang|en|Unicode}} として扱う。また「<code>evalbytes</code>」を有効にすると、引数をバイト列として評価する「<code>evalbytes</code>」関数が利用できる。
*<code>substr</code> は、左辺値もしくは潜在的に左辺値とみられるコンテキストで2つもしくは3つの引数付きで呼び出された場合、第一引数を変更する特殊な左辺値スカラを返す。
*{{lang|en|Unicode}} 6.1 対応も強化された。
*デバッガ、<code>CORE</code>名前空間、<code>XS</code>インターフェイスなどでさまざまな機能強化が加わっている。
|-
|nowrap|5.18.0
|nowrap|2013年5月18日
|
*実験的機能を利用するための新しい警告カテゴリ「<code>experimental::feature_name</code>」が追加され、{{lang|en|Perl}} 5.10 で加わったスマートマッチ演算子、レキシカルな「<code>$_</code>」がそのカテゴリに変更された。
*ハッシュの際に使われるシードがランダム化され、<code>keys</code> や <code>values</code>、<code>each</code> といったハッシュを利用する関数が返すキー／値の並び順が実行毎に異なるようになった。
*{{lang|en|Unicode}} 6.2 への対応、新しい<code>DTrace</code>プローブの追加、実験的機能としてレキシカルサブルーチンの追加などが行われた。「<code>\N{...}</code>」表現の扱いがいくつか変わっているほか、垂直タブがホワイトスペースとして扱われなくなっている点など、文字の扱いについていくつかの変更が加わった。
*<code>encoding</code>、<code>CPANPLUS</code>、<code>Log::Message</code>、<code>Log::Message::Config</code>、<code>Log::Message::Handlers</code>、<code>Log::Message::Item</code>、<code>Log::Message::Simple</code>、<code>Object::Accessor</code>などが廃止予定のモジュールとなった。
|-
|nowrap|5.20.0
|nowrap|2014年5月27日
|
*実験的機能として「<code>use feature 'signature'</code>」によるサブルーチンシグネチャ、「<code>use feature 'postderef'</code>」によるPostfix Dereferencingと呼ばれる機能が追加された。Postfix Dereferencingを利用すると、いままで「${ $sref } 」のように表記していたものが「$sref->$*」のように表記できるようになる。
*新たなスライス表記として、キーと値のペアを戻す「%hash{…}」と「%array[…]」というスライス表記が加わった。
*subキーワードのprototype属性がサポートされ、プロトタイプパーシングの一貫性も強化された。
*64ビットプラットフォーム対応が改善され、Perl配列が2**31以上の要素を保持できるようになった。
*正規表現エンジンは2**31以上の文字列に対応できるようになった。
*{{lang|en|Unicode}} 6.3 に対応した。
*コアモジュールとして<code>IO::Socket::IP</code>が追加された。
*rand関数の仕様が変更された。
*一部のコマンドラインオプションの挙動が変更された。
|}

== エピソード ==
Perlは当初、[[新約聖書]]の[[マタイによる福音書]]13章46節の「高価な真珠」にちなんで[[真珠]]を意味する「pearl」と名付けられた。ラリー・ウォールは肯定的な意味を持つ短い名前を選びたいと考えていて、彼によれば3文字および4文字の単語を辞書から探したが良いのが見つからなかったということである。また、彼は妻のグロリアにちなんで名前を付けることも考えたが、家族の会話でまぎらわしいために却下となった。

Perlの正式なリリースの前に、すでに「pearl」という名前のプログラミング言語が存在する[http://www.irt.uni-hannover.de/pearl/index_en.html]ことに気づき、綴りを変更して「Perl」とした。このようにPerlは略語ではなく、もともと意味はないが、あとからいくつかの意味が考えられている。開発者ラリー自身によると、「{{lang|en|'''p'''ractical '''e'''xtraction and '''r'''eport '''l'''anguage}}」（実用的なデータ取得レポート作成言語）という意味を持ち、同時に 「{{lang|en|'''p'''athologically '''e'''clectic '''r'''ubbish '''l'''ister}}」（病的折衷主義のガラクタ出力装置）<ref name="progperl1">プログラミング Perl VOLUME 1 ISBN 4-87311-096-3</ref>という少し皮肉な意味も込められている。

== 処理系 ==
Perlという名称の記述においては、若干の注意が必要である。プログラミング言語としてのPerlを示すときは「Perl」というように、頭文字を大文字にして固有名詞であることをはっきりさせる。この「Perl」という表記では処理系のことは含まれない。Perl 5の現在開発されている唯一の処理系は「perl」という、すべて小文字で記述される名前の処理系である。一般に「perlだけがPerlを解釈することができる」という表現がなされる。「PERL」のようにすべてを大文字にするのは誤りである。

このようにPerl 5現在において、Perlとは言語の名前であると同時に唯一の処理系の名前でもある。この処理系はC言語で書かれている。スクリプトは実行前に[[仮想機械]]向けにコンパイルされ、コンパイルされたバイトコードが実行される（ランタイムコンパイル）。そのため、厳密にはインタプリタとは異なる。

[[Python]]のように一旦生成したバイトコードを保存して再利用することは少ないが、これは現在のPerlのランタイムコンパイルが高速で、バイトコードから実行するメリットがあまりないことが理由の一つである。コンパイル済みコードの[[コードの再利用|再利用]]としてはむしろ[http://perl.apache.org/ mod_perl]のような形式が好まれている。

[http://search.cpan.org/dist/PAR/ PAR] (Perl Archive Toolkit) というPerlスクリプトを実行環境ごとアーカイブし、単一のファイルにまとめるためのツールキットも存在する。[[Jar|JAR]]のPerl版と考えてよい。実行可能ファイルを作ることもできるため、アプリケーションの配布に適する。しかしその場合はPerl実行環境をまるごと含むため、ファイルサイズが大きくなる傾向にある。

Perlの姉妹言語として[[Perl6]]が存在する。Perl6は[[Parrot]]というバーチャルマシンの上で動作する。現在、ParrotCodeへのコンパイルを行うRakudo Starという処理系や[[Haskell]]で書かれた[[Pugs]]という処理系などの複数の実装が公開されている。なおPerl6はPerlと互換性を持たない。

== 代表的なアプリケーション ==
Web アプリケーションや管理ツールの多くが Perl で書かれている。
* [[Movable Type]]
* [[TWiki]]
* [[Bugzilla]]
* [[SpamAssassin]]
* [[Catalyst (ソフトウェア)|Catalyst]] フレームワーク
* [[Autotools#automake|automake]]

== 脚注 ==
<references />

== 参考文献 ==
* [[ラリー・ウォール]]、ジョン・オーワント、トム・クリスチャンセン著、[[近藤嘉雪]]訳『プログラミング [http://www.oreilly.co.jp/books/perl/ Perl]』VOLUME 1 (ISBN 4-87311-096-3), 2 (ISBN 4-87311-097-1), [[オライリー・ジャパン]]、2002年

== 関連項目 ==
{{Portal|FLOSS|[[ファイル:FLOSS_logo.png|41px]]}}
* [[ラリー・ウォール]]
* [[Artistic License]]
* [[グルー言語]]
* [[スクリプト言語]]
* [[軽量プログラミング言語]]

== 外部リンク ==
{{Wikibooks|Perl|Perl}}
* [http://www.perl.org/ The Perl Programming Language] - Perlの公式サイト
* [http://perldoc.perl.org/ Perl programming documentation] - Perlの公式ドキュメント
* [http://perldoc.jp/ perldoc.jp] - Perlの公式ドキュメントの日本語訳
* [http://www.cpan.org/ CPAN] - Perlのモジュールの配布を行うサイト
* [http://www.perl.com/ Perl.com] - [[オライリー]]によるPerlのウェブサイト
* [http://www.activestate.com/activeperl ActivePerl] - [[ActiveState]]社のPerlディストリビューション。[[Windows API#Win32|Win32]]版は[[Microsoft Windows|Windows]]環境で最も利用される。
* [http://search.cpan.org/dist/Perl-Dist-Chocolate/ Chocolate Perl] - Perlのディストリビューションのひとつ
* [http://vanillaperl.com/ Vanilla Perl] - Perlのディストリビューションのひとつ
* [http://strawberryperl.com/ Strawberry Perl] - Perlのディストリビューションのひとつ
* [http://plackperl.org PSGI/Plack] - [[Web Server Gateway Interface|WSGI]]のPerlによる実装
* [http://japan.perlassociation.org/ Japan Perl Association] - YAPC::Asiaを主催する一般社団法人

{{Perl}}
{{FOSS}}

[[Category:スクリプト言語|Perl]]
[[Category:オープンソース|Perl]]
[[Category:Perl|*]]
{{Link GA|de}}
{{Link GA|en}}

[[ml:പേള്‍]]