Определить глобальный символ (ошибка)

Question

Я прошел пару дискуссий, чтобы найти решение, но ни один из них, похоже, не работает в моем случае.

я следующий кусок кода

print ("Choose from the following\n"); 
print ("op1 op2\n"); 

my $x = <>; 
chomp($x);  
print ("x is $x"); 

if ($x eq "op1") 
{ 
my $DirA = "./A"; 
my $DirB = "./B"; # **I want to use this dirA and dir B below (Tried switch stmts but I 
#**get the same error)** 
} 

opendir my($dh), "$DirA" or die "Couldn't open dir DirA!"; 
my @files = readdir $dh; 
closedir $dh; 
system("rm -rf diffs"); 
system ("mkdir diffs\n"); 
foreach my $input (@list) { 
. 
. 
. 
} 

Я получаю эту ошибку: Global символ «$ Дира» требует явного имени пакета в test_switch.tc

Может кто-то пожалуйста, помогите мне с одна и та же. Мое намерение состоит в том, чтобы добавлять опции/переключатели в мой скрипт. Как «test.pl -A», «test.pl -B», для которого я начал с case stmt. Просьба представить материалы по этому вопросу.

Answer 1

Вашего $DirA и $DirB не являются глобальными, они определены только в рамках if заявления, в котором они объявлены с my. В общем случае от the documentation: «A my объявляет, что перечисленные переменные являются локальными (лексически) к охватывающему блоку, файлу или eval». Для того, чтобы использовать их в любом коде, приведенном ниже, вы должны сделать что-то вроде:

my $DirA; 
my $DirB; 

if ($x eq "op1") { 
    $DirA = "./A"; 
    $DirB = "./B"; 
} else { 
    $DirA = ... 
    $DirB = ... 
} 

Обратите внимание на else: вы должны также сделать что-то, если $x является не"op1", потому что, как он стоит, даже если код был запустите, вы получили ошибку при попытке передать неопределенное значение opendir.

Answer 2

Просто объявите переменные до блок if, и они будут доступны после этого.

my $DirA; 
my $DirB; 

if ($x eq "op1") { 
    $DirA = "./A"; 
    $DirB = "./B"; 
}