perl实现php中str_replace()函数

#!/usr/bin/perl -w
#-------------------------------------------------------------/
#函数str_replace可以将一个变量中的特定内容换成指定内容。
#Auther:BENNETT/RUFENG
#DATE:28/12/2012
#-------------------------------------------------------------/
my $str1="1234567890"; #被换变量
my $str2="three";      #替换量
my $str3=&str_replace("3",$str2,$str1); #调用str_replace函数
print $str3; #调换结果
sub str_replace{
my ($search, $replace, $subject) = @_;
my $pos = index($subject, $search); 
while($pos > -1) { 
substr($subject, $pos, length($search), $replace); 
$pos = index($subject, $search, $pos + length($replace)); 
} 
return $subject; 
}