Perl - 是＆＃34; uc＆＃34;能够在返回变量时使用吗？

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";
    }
}