#!/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;
}
#-------------------------------------------------------------/
#函数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;
}