글로벌 심볼 정의 (오류)

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) { 
. 
. 
. 
} 

이 오류 코드의 다음 조각을 얻을 수있다 : 전역 기호 "$ DirA는"

사람이 좀 도와 주시겠습니까 test_switch.tc에서 명시 적으로 패키지 이름이 필요합니다 같은. 내 의도는 내 스크립트에 옵션/스위치를 추가하는 것입니다. "test.pl -A", "test.pl -B"처럼 case stmt로 시작했습니다. 이것에 대한 정보를 입력하십시오.

Answer 1

귀하의 $DirA 및 $DirB는 그들은 그들 만이 my 선언하고있는 if 문의 범위에 정의되어, 글로벌되지 않습니다. 일반적으로 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"; 
}