Perl变量在sub中的作用域

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