请教熟手们解答！！

greatsunlea

请教熟手们解答！！

＃！/usr/bin/perl -w

$string = 'HHUYTHYHYUHHU';
$result = H_to_R($string);
print "I changed all the H's in $string to R's and got $result\n\n";

sub H_to_R{
    my($input) = @_;
    my($string) = $input;
    $string =~ s/H/R/g;
    return $string;
}

这段代码本人已经运行过，能正常运行，不过就是对其中两行不懂，请高手指点：
my($input) = @_;
my($string) = $input;


为何要这样才能实现程序呢？谢谢！！

chenzq1604

这个程序好像有些多余的行吧.

改一下兴许你能看懂:

#!/usr/bin/perl -w

$string = 'HHUYTHYHYUHHU';
$result = H_to_R($string);
print "I changed all the H's in $string to R's and got $result\n\n";

sub H_to_R{
    my($string) = shift(@_);
    $string =~ s/H/R/g;
    return $string;
}

philonis

my($input) = @_;
是因为用括号的方式才能要把只有一个元素的数组中的唯一的元素赋给一个普通变量。。。。憋死我了

greatsunlea

谢谢大家支持！！！