Çë½ÌÊìÊÖÃǽâ´ð£¡£¡
Çë½ÌÊìÊÖÃǽâ´ð£¡£¡£££¡/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;
ΪºÎÒªÕâÑù²ÅÄÜʵÏÖ³ÌÐòÄØ£¿Ð»Ð»£¡£¡
Ò³:
[1]