Perl モジュールのさまざまな例
組み込み Perl モジュールとユーザー定義モジュールの使用方法は、チュートリアルのこの部分で説明されています。
例 1: 内蔵モジュールの使用
この例では、Perl の 3 つの組み込みモジュールの使用法が示されています。 「厳格」、「警告」、「5.34.0」です。 「strict」モジュールは、Perl スクリプトを作成するためのさまざまなタイプの制限を有効にするために使用されます。たとえば、このモジュールがスクリプトで使用される場合、「my」キーワードなしで変数を宣言することはできません。 「警告」モジュールは、コード作成者がエラーを理解するのに役立つスクリプトの実行後に、さまざまな種類の警告メッセージを表示するために使用されます。 「5.34.0」モジュールは、スクリプト内でこのモジュールのさまざまな機能を使用するために使用されます。メッセージを改行で出力するために使用される「say」関数は、このモジュールの機能です。
#!/usr/bin/perl
#コーディング制限を有効にする
厳密に使用する ;
#エラーの警告メッセージを表示する
使用 警告 ;
#さまざまなサービスを有効にする
5.34.0を使用してください ;
#「strict」モジュールでは「my」キーワードの使用が必須です
私の$言語 = 「パール」 ;
#「発言」機能の使用を有効にする
言う 「$言語プログラミングを学びましょう。」 ;
出力：
スクリプトを実行すると、次の出力が表示されます。
例 2: ユーザー定義モジュールの使用
Perl ユーザーは、「.pm」拡張子のファイルを作成することで、特定の目的のモジュールを作成できます。この例では、ユーザー定義モジュールが作成され、「use」キーワードを使用して別の Perl スクリプトで使用されます。
ユーザー定義モジュールを作成します。
次のスクリプトを使用して「Bonus.pm」という名前のファイルを作成します。ここで、「package」キーワードは、モジュールであることを定義するために使用されます。このモジュールには、給与と売上高に基づいて従業員のボーナスを計算するサブルーチンが含まれています。 2 つの引数値は、このモジュールが使用される Perl スクリプトから渡されます。最初の引数には給与が含まれ、2 番目の引数には売上金額が含まれます。賞与は給与10000以上の場合売上額の15％、給与7000以上の場合賞与は売上額の10％、給与10000未満の場合賞与は売上額の5％となります。 . 「1;」 true を返すためにモジュールの最後で使用されます。それ以外の場合は、エラーが出力されます。
ボーナス.pm
#!/usr/bin/perl厳密に使用する ;
使用 警告 ;
5.34.0を使用してください ;
パッケージ特典 ;
#ボーナスを計算するサブルーチンを宣言
サブ計算ボーナス
{
# 変数を初期化する
私の給料 = $_ [ 0 ] ;
私の $sales_amount = $_ [ 1 ] ;
私の$ボーナス = 0.0 ;
#ボーナスを計算する
もし ( $給料 > 10000 )
{
$ボーナス = $売上_金額* 0.15 ;
}
エルシフ ( $給料 > 7000 )
{
$ボーナス = $売上_金額* 0.10 ;
}
それ以外
{
$ボーナス = $売上_金額* 0.05 ;
}
#計算されたボーナスを返す
戻る $ボーナス ;
}
1 ;
Perl スクリプトでモジュールをインポートします。
先ほど作成した「ボーナス」モジュールをインポートする以下のスクリプトを使用して Perl ファイルを作成し、スクリプト内で割り当てられた給与と売上金額に基づいて従業員のボーナス額を計算します。
#!/usr/bin/perl厳密に使用する ;
使用 警告 ;
5.34.0を使用してください ;
ボーナスを使用する ;
#変数を初期化する
私の$name = 「ミール・サッビール」 ;
私の給料 = 60000 ;
私の $sal_amount = 9700 ;
#モジュールからサブルーチンを呼び出す
私の$ボーナス = ボーナス::calculate_bonus ( $給料 、 $sal_amount ) ;
私の$salary_with_bonus = $給与 + $ボーナス ;
#売上に基づいて従業員情報を印刷します
言う 「従業員の詳細: \n 」 ;
言う 「名前: $name」 ;
言う 「給与: $salary」 ;
言う 「給与(ボーナスあり): $salary_with_bonus」 ;
出力：
スクリプトを実行すると、次の出力が表示されます。ここでは、「-I」です。ユーザー定義のインポートされたモジュールを見つけるには、スクリプトの実行時にオプションを使用する必要があります。
例 3: 「Require」を使用したユーザー定義モジュールの使用
「require」関数は、Perl スクリプトにモジュールをインポートする別の方法であり、この例で示されています。以前に作成した「Bonus」モジュールは、「require」関数を使用してスクリプトにインポートされます。このスクリプトでは、給与と売上高の値がユーザーから取得されます。スクリプトの他の部分は前の例と似ています。
#!/usr/bin/perl厳密に使用する ;
使用 警告 ;
5.34.0を使用してください ;
ボーナスが必要 ;
#ユーザーからの意見を取り入れます
言う 「従業員名を入力してください:」 ;
ムシャムシャ ( 私の$name = <> ) ;
言う 「給与を入力してください:」 ;
ムシャムシャ ( 私の給料 = <> ) ;
言う 「売上金額を入力してください:」 ;
ムシャムシャ ( 私の $sal_amount = <> ) ;
#モジュールからサブルーチンを呼び出す
私の$ボーナス = ボーナス::calculate_bonus ( $給料 、 $sal_amount ) ;
私の$salary_with_bonus = $給与 + $ボーナス ;
#売上に基づいて従業員情報を印刷します
言う 「従業員の詳細: \n 」 ;
言う 「名前: $name」 ;
言う 「給与: $salary」 ;
言う 「給与(ボーナスあり): $salary_with_bonus」 ;
出力：
スクリプトを実行すると、次の出力が表示されます。
結論
このチュートリアルでは、簡単な例を使用して、Perl の組み込みモジュールとユーザー定義モジュールの両方の使用法を示します。