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 · ベストアンサー

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は使えないのですね

回答No.2

BLUEPIXY

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

お礼

ありがとうございます