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

Question

test1.pl

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

test2.pl

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

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

Answer 1

Использование 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,