perlスクリプトを使用すると、いくつかの副スクリプトの1つを使用します。

Question

コマンドラインから実行するメインプログラムmytool.plがあります。いくつかの補助スクリプトspecial1.pl、special2.plなどがあります。それぞれには、サブルーチンとハッシュが含まれています。 MySpecialFunction（）、AnotherSpecialFunction（）、％SpecialDataという名前が付けられているとしましょう。

私は、コマンドラインオプションに従って、mytoolに特殊な* .plファイルの1つの内容をインクルード/使用/インポートするようにしたいと思います。

bash> perl mytool.pl --specialcase=5 

をしてmytoolsはspecial5.plからMySpecialFunction（）を使用し、他のすべての特別* .plのファイルを無視します：たとえば、ユーザーが行います。

これは可能ですか？

使用する特殊ファイルの選択は実行時に行われるため、mytool.plの上部に「use」を追加することはおそらく適切ではないことに注意することが重要です。

注意私は長い時間のCプログラマであり、perlエキスパートではありません。私は明らかに何かを求めているかもしれません。 これは1ヶ月以内にほこりになる、ワンオフプロジェクトのためのものです。 mytool.plも特別な？.pl（またはperl自体）もこの短いプロジェクトの終わりを超えて興味がありません。したがって、私たちは精巧な解決法や、深い魔法を学ぶ必要がある解決法を気にしません。迅速かつ汚れやすい私は、Perlのモジュール機構がこのために過剰なものだと推測していますが、代替案が何であるかは分かりません。

Answer 1

ときuseモジュール、BEGINブロック内のPerlだけrequireのモジュール（およびモジュールはアイテムをエクスポートインポート）。実行時にロードするスクリプトを変更する場合は、requireにご連絡ください。ここで

if ($special_case_1) { 
    require 'special1.pl'; 
    # and go about your business 
} 

はuse対requireを使用する際にgood referenceです。

Answer 2

ハッシュまたは配列を使用して、specialcaseのファイルを.plのファイルに、requireまたはdoの値を必要に応じてマップできます。

#!/usr/bin/env perl 

use strict; use warnings; 

my @handlers = qw(one.pl two.pl); 

my ($case) = @ARGV; 
$case = 0 unless defined $case; 

# check that $case is within range 

do $handlers[$case]; 

print special_function(), "\n";