从另一个Perl脚本执行一个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。