LinuxÒÁµéÔ°ÂÛ̳'s Archiver

greatsunlea ·¢±íÓÚ 2007-7-18 18:20

Çë½ÌÊìÊÖÃǽâ´ð£¡£¡

Çë½ÌÊìÊÖÃǽâ´ð£¡£¡

£££¡/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]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.