Perlモジュール

#!/usr/bin/env perl # モジュールをロードし、モジュールによってエクスポートされた関数を名前空間にインポートします。 # (デフォルトは "main") Hello::World はデフォルトで hello() をエクスポートします。エクスポートは通常、呼び出し元によって制御できます。use Hello::World ;print hello (); # "Hello, world!\n" と出力されますprint hello ( "Milky Way" ); # "Hello, Milky Way!\n" と出力されます

# "package" は、モジュールの機能/データが存在する名前空間です。# "使用する" 場合、ファイル名を指定します。# 複数の単語で構成されている場合は、モジュールの場所を制限します。パッケージHello::World ;# デフォルトでは、Perl では変数を宣言せずに使用できます。 # これは、短いスクリプトや一行のコードには便利です。# しかし、モジュールなどの長いコードでは、タイプミスを検出し、モジュールの外部からアクセスを適切に制限するために、変数を宣言するのが賢明です。 strict プラグマは、変数を宣言することを強制します。use strict ; # 同様に、Perl はデフォルトではほとんどのコンパイラ警告や実行時警告を発行しません。# ほとんどのモジュールなどのより複雑なスクリプトでは、通常、デバッグに非常に役立ちます。 warnings プラグマは、オプションの警告を有効にします。use warnings ; # モジュールのバージョン番号は $ModuleName::VERSION に格納されます。 #組み込みの "use" の特定の形式は、この変数が定義されていることに依存します。私たちの$VERSION = '1.00' ;# エクスポート機能を処理する「Exporter」モジュールから継承します。# ほとんどの手続き型モジュールはこれを利用します。ベース「Exporter」を使用します。# モジュールが呼び出されると、デフォルトでは、関数 "hello" を# 使用コードの名前空間にエクスポートします。私たちの@EXPORT = qw(hello) ;# 等号で始まる行は、埋め込み PODドキュメントを示します。 # POD セクションは =cut ディレクティブで終了し、# 通常のコードとほぼ自由に混在させることができます。=head1 名前Hello::World - 一般的な出力メッセージのカプセル化=head1 概要 use Hello::World;  print hello();  print hello("Milky Way");=head1 説明これは、有名な「Hello, world!」メッセージを表示する手続き型モジュールで、カスタマイズも可能です！=head2 関数以下の関数はデフォルトでエクスポートされます=head3 こんにちは print hello();  print hello($target);有名な挨拶を返します。C<$target>が指定された場合はそれが使用され、指定されていない場合は「world」が挨拶の対象となります。=カット# 関数 hello() を定義します。sub hello { my $target = shift ; $target = 'world' unless defined $target ; return "こんにちは、$target!\n" ; }=head1 著者ジョー ハッカー <joe@joehacker.org>=カット# Perl モジュールは、真の値で終了する必要があります。そうでない場合、ロードされていないとみなされます。慣例として、この値は通常 1 ですが、任意の真の値にすることができます。モジュールは、失敗を示すために false で終了することもできますが、これはめったに使用されず、代わりに die() (エラーで終了) します。1 ;

#!/usr/bin/env perluse Hello::World ; my $hello = Hello::World -> new ; $hello -> print ; # "Hello, world!\n" と出力されます$hello -> target ( "Milky Way" ); $hello -> print ; # "Hello, Milky Way!\n" と出力されますmy $greeting = Hello::World -> new ( target => "Pittsburgh" ); $greeting -> print ; # "Hello, Pittsburgh!\n" と出力されます$hello -> print ; # やはり "Hello, Milky Way!\n" と出力されます

# Perlには特別な「クラス」定義はありません。名前空間がクラスです。package Hello::World ;use strict ; use warnings ; our $VERSION = "1.00" ;=head1 名前Hello::World - 一般的な出力メッセージのカプセル化=head1 概要 use Hello::World;  my $hello = Hello::World->new();  $hello->print; =head1 説明これは、有名な「HW」メッセージを出力できるオブジェクト指向ライブラリです。=head2 メソッド=head3 new  my $hello = Hello::World->new();  my $hello = Hello::World->new( target => $target );挨拶メッセージを保持するオブジェクトをインスタンス化します。 C<$target> が指定されている場合は、C<< $hello->target >> に渡されます。=cut # オブジェクトのコンストラクタは、慣例として new() と呼ばれます。任意の# メソッドでオブジェクトを構築でき、いくつでも作成できます。sub new { my ( $class , %args ) = @_ ; my $self = bless ({}, $class ); my $target = exists $args { target } ? $args { target } : "world" ; $self -> { target } = $target ; return $self ; } =head3 target  my $target = $hello->target;  $hello->target($target);メッセージの現在のターゲットを取得および設定します。=cut sub target { my $self = shift ; if ( @_ ) { my $target = shift ; $self -> { target } = $target ; }return $self -> { target }; } =head3 to_string  my $greeting = $hello->to_string; $greeting を文字列として返します=cut sub to_string { my $self = shift ; return "Hello, $self->{target}!" ; } =head3 print  $hello->print;挨拶を STDOUT に出力します=cut sub print { my $self = shift ; print $self -> to_string (), "\n" ; } =head1 AUTHOR Joe Hacker <joe@joehacker.org> =cut 1 ;