在变量范围内的Perl变量

Question

根据papertype的条件，我将如何范围为该变量？

我已经尝试了几种方法，我得到的错误，我很困惑。

sub paperdisplay_getPaperLink { 
    my ($self, $args) = @_; 
    my $paper = $args->{paper}; 
    my $linktext = $args->{linktext}; 
    my $session = $args->{session}; 

    my $query = $self->request; 
    my $password = $query->param('password'); 

    if ($paper->{Type} eq 'Break') { 
     my $url = $something; 
    } else { 
     my $url = $somethingelse; 
    } 

    my $link = qq(<a title="$linktext" target="other" href="$url">$linktext</a>); 

    return $link; 
} 

Answer 1

你必须声明它在你想使用它的块。如果你声明它的if或else块内，它只会存在那里。块结束时变量将被销毁。

my $url; 
if ($paper->{Type} eq 'Break') { 
    $url = $something 
} else { 
    $url = $somethingelse 
} 
# $url still exists down here 

Answer 2

使用Conditional Operator初始化的变量，而不需要一个if块：

my $url = $paper->{Type} eq 'Break' 
    ? $something 
    : $somethingelse;