帮忙看一个小脚本关于“替换”

huairpan

此脚本的目的是进行这样的替换：

原文为：
Typically              典型地
in order to         以便
information         信息

替换后的文本为：
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Typically"
        .Replacement.Text = "典型地"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "in order to"
        .Replacement.Text = "以便"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "information "
        .Replacement.Text = "信息"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

————————————————————————————————————
下面是我自己写的脚本

总是出现问题，问题也在下面，由于对perl理解有限，还望高手指点，多谢
————————————————————






#! /usr/bin/perl


open(FILE,"C:\tongyongjiancheng")||die"can not open the file: $!";   #####此行为line4

while (defined ($eachline =<FILE>)) {
     chomp $eachline;
         @array = split (/\t/, $eachline);
         @begining = (Selection.Find.ClearFormatting,
    Selection.Find.Replacement.ClearFormatting,
    With Selection.Find,
        Text == "@array[0]");
         @replaced = (ReplacementText == "@arrary[1]",
        Forward == True,
        Wrap == wdFindContinue,
        Format == False,
        MatchCase == False,
        MatchWholeWord == False,
        MatchByte == True,
        MatchWildcards == False,
        MatchSoundsLike == False,
        MatchAllWordForms == False,
    End With);
open(FILE,">>tongyongreplaced.txt");
        syswrite(FILE,"@begining\n");
        syswrite(FILE,"@replaced\n");  
      
      
}
close FILE;
___________________________________________________________________________

下面是出错信息
can not open the file: Invalid argument at tongyongtihuan.pl line 4.

yybmsrs

windows下用单引号