Perlスクリプトx.plを使って新たに

y.plを作って
y.plの途中に入れたいのですがどうすればいいのでしょうか？
例えば

x.pl:
$x="Hello World\n";
print $x;
$x="Hello Japan\n";

としたときに

y.pl:
$x="こんにちは世界\n";
print $x;
$x="こんにちは日本\n";
print $x;
　　　　　　（ここでx.plを実行したい）
$x="こんにちは世界\n";
print $x;
$x="こんにちは日本\n";
print $x;

といったものです
y.plの中でx.plを使いたいのです

質問のためx.pやy.plは実際より大幅に単純化してます

No.1 ベストアンサー 回答者： leaz024 回答日時： 2005/01/14 00:40

x.pl を実行したいところで、

require "x.pl";
とします。（必要に応じてパスも指定してください。）

ちなみに require されるプログラムは真値を返さなければならないので、プログラムの末尾に
1;
などと書くのが慣例となっています。

この回答へのお礼

ありがとうございます

y.pl:
$x="こんにちは世界\n";
print $x;
$x="こんにちは日本\n";
print $x;

require "x.pl";

$x="こんにちは世界\n";
print $x;
$x="こんにちは日本\n";
print $x;

ですね
phpと違ってincludeは使えないのですね

お礼日時：2005/01/14 00:50

No.2 回答者： BLUEPIXY 回答日時： 2005/01/14 00:43

$x="こんにちは世界\n";

print $x;
$x="こんにちは日本\n";
print $x;
require "x.pl";
$x="こんにちは世界\n";
print $x;
$x="こんにちは日本\n";
print $x;

この回答へのお礼

ありがとうございます

お礼日時：2005/01/14 00:51