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

Я просто хочу знать, что это «УНЦ» можно использовать, когда мы возвращаемся к переменной?

Когда я пытаюсь напечатать $ 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"; 
    } 
}