除非定义$ str1，否则PERL PROBLmy $ str1 = 0;

Question

我是perl编程的初学者，当我尝试使用严格和使用警告的代码时，它会抛出一个错误说＆＃34;全局符号$ str1需要显式包名＆＃34;。我们需要使用任何其他要使用的包除非关键字？ ..请帮助

Answer 1

试试这段代码，你需要明确声明$ str1

use strict;
use warnings;
my $str1;
$str1 = 0 unless defined $str1;