Perl - 返回变量时是否可以使用"uc"？

Question

我想问一个简单的问题.我是Perl脚本的初学者,对不起,如果你觉得这个问题很愚蠢.

问题是我可以返回变量并在返回时应用"uc".

这是代码:

my $desc = "";

@names = ("thor-12345-4567");
$size  = @names;

Thor();
print $desc;
sub Thor() {
    if ($size ne "0") {
        return uc ($desc=$names[0]);
    }
    $desc = "NA";
    return $desc;
}

我只是想知道当我们返回变量时可以使用"uc"吗？

当我尝试打印$ desc时,它没有返回大写.

非常感谢你!

Answer 1

避免在函数中分配或依赖全局变量.而是传递参数和返回值.

use strict;
use warnings;

my $desc = Thor("thor-12345-4567");

print $desc;

sub Thor {
    my @names = @_;

    if (@names){
        return uc $names[0];
    } else {
        return "NA";
    }
}