Как принимать пользовательский ввод при выполнении одного Perl-скрипта из другого

#! /usr/bin/perl
print "enter the user data";
$var=<>;
print "the entered data:$var";

#! usr\bin\perl
$var=`test2.pl`;
print $var;

При выполнении test2.pl не работает. Как это решить?

perl perl-module

Sharmila N babu 21.08.2015 источник

comment

Вы звоните test2.pl в test2.pl, почему? Что вы ожидаете от test2.pl? - serenesat 21.08.2015

arrow_upward
1
arrow_downward

Используйте require для выполнения другой программы. Попробуй это

test1.pl

print "enter the user data ";
chomp($var=<>);
print "the entered data:$var\n";

test2.pl

require "test1.pl";
print "$var\n";

Затем легко получить доступ к $var из test1.pl.

mkHun 21.08.2015