Perl 中如何使用goto语句？

aaronvox

1. 
   
2. 
   
3. AARONVOX:
   
4. 
   
5. while (1)
   
6. {
   
7.     # do something
   
8.     my $xxx = <>;
   
9.     goto AARONVOX if $xxx =~ /Hello/;
   
10. }
    
11. 
    
12. 
    
13. 
    

复制代码