从另一个执行一个 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";

然后从test1.pl 轻松访问$var。