如何批量设置全局变量？

rossini23

a.pl里面变量了很多变量：
$xxx = 1;
$yyy = 2;
$zzz = 3;
...

b.pl里用do 'a.pl'来使用这些变量，因为b.pl里用了use strict;所以使用上面这些变量都会报错。
有什么快捷的方式把上面定义的变量变为全局变量？
不想一行行加our，这种方式肯定是可以的，但是变量太多。

pitonas

更新，对不起，我错了

pitonas

check...
a,pl

1. $x = 1;
   
2. $y = 2;

复制代码

perl -pe '$_ = "our $_"' a.pl > a.pl

new a.pl

1. our $x = 1;
   
2. our $y = 2;

复制代码

rossini23

回复 3# pitonas


谢了。
不过不允许改a.pl。