perl脚本替换文件中的字符串

sub replace_src_to_des
{     
        my $root = "";
        my $ret = "false";
        my $file_path = $_[0];
        my $id_src = $_[1];
        my $id_des = $_[2];

        my $suffix_file = "_bak";
        my $suffix_file1 = "_tmp_bak";
        my $slash = "/";

        printf LOG_FILE_HANDLE "replace_src_to_des:".$root.$slash.$file_path."\n";
        
        open(_HY_FILE_,"<".$file_path) or die ("$file_path : file error!", __FILE__, __LINE__);
        open(_HY_FILE_BAK_,">".$file_path.$suffix_file) or die ("$file_path.$suffix_file : file error!", __FILE__, __LINE__);
        
        while (my $line=<_HY_FILE_>)
        {
            chomp($line);
            
            my $position = index($line, $id_src);
            
            #print "position:".$position."\n";
            
            if($position >= 0)
            {

                #replace the id_src value with id_des
                my $header_line = "";
                my $tail_line = "";
                my $temp_line = "";
                
                printf LOG_FILE_HANDLE "line:".$line."\n";
                
                if($position >= 1)
                {
                    $header_line = substr($line, 0, $position);
                    $tail_line = substr($line, $position+length($id_src), length($line));
                    $temp_line = $header_line.$id_des.$tail_line."\n";
                }
                else
                {
                    $tail_line = substr($line, $position+length($id_src), length($line));
                    $temp_line = $id_des.$tail_line."\n";
                }
                
                printf LOG_FILE_HANDLE "header_line:".$header_line."  tail_line:".$tail_line."\n";
                printf LOG_FILE_HANDLE "temp_line:".$temp_line."\n";
                
                
                syswrite(_HY_FILE_BAK_,$temp_line);

                $ret = "replaced";
            }
            else
            {
                syswrite(_HY_FILE_BAK_,$line."\n");
            }
        }
        close(_HY_FILE_);
        close(_HY_FILE_BAK_);
        system "mv $file_path $file_path$suffix_file1";
        #system "rm -rf $file_path";
        system "mv $file_path$suffix_file $file_path";
        printf LOG_FILE_HANDLE "successful!\n";

        return $ret;
}

replace_src_to_des("build/make/tools/buildinfo.sh", "\$BUILD_DISPLAY_ID", $softVer);