perl紧急求助!

[xfljt]

本人需要从一个文件里依次读出字符串,如下:
FixedString_NewSS;
TWnd_FrameRectX;
TWnd_InvalRectX;
以";"为结束,然后从一个目录里(包含多个子目录)的文件搜索该关键字,比如
FixedString_NewSS,要求全字匹配,大小写匹配,找到后依次进行替换,替换格式为
xxxabc_FixedString_NewSS.望那位熟悉perl语言的兄弟能提供一下参考代码,不胜
感激!

[xfljt]

有换行符.

[SwordMan2001]

遍历目录,找出所有的文件进行处理既可.
运行: xx.pl <input_str_file> <dir_name>

#! /usr/bin/perl -w

use strict;

# @ARGV = qw(input ./temp); #????

open (hInput, $ARGV[0]) || die "open input fail";

my @m_replaceStrs;
while ($_ = <hInput>) {
/^(\w+);/? push(@m_replaceStrs, $1): next;
}

# use DFS to get all files
my @stack = $ARGV[1];
my $sFile;
while ($sFile = pop(@stack)) {
if (-f $sFile) {
&HandleFile($sFile);
}
elsif (-d $sFile) {
opendir(hDir, $sFile) || die("can't open dir: $sFile -");
while ($_ = readdir(hDir)) {
next if $_ eq '.' || $_ eq '..';
push (@stack, $sFile . '/' . $_);
}
closedir (hDir);
}
}
#########
sub HandleFile # ($sFile)
{
# print $sFile, "\n";
open (hInput, $sFile);
open (hOutput, ">tmp_$$");
while (my $line = <hInput>) {
for (@m_replaceStrs) {
$line =~ s/$_/xxxabc_$_/g;
}
print hOutput $line;
}
close (hInput);
close (hOutput);
rename ("tmp_$$", $sFile);
}

[yakai]

然后从一个目录里(包含多个子目录)的文件搜索该关键字
是文件名还是文件里的内容？

FixedString_NewSS;
TWnd_FrameRectX;

中间是否有换行符？