[PerlChina] 如何根据一个指定文件来对一个目录下的文件进行替换？

有一个指定文件names.txt，共有50行，均为历届总统人名。如：
Bill Clinton
Goerge Bush
...

在另一个目录下，有1000个文件(从file0.txt到file999.txt)，每个文件的内容可能会包含上述文件中的人名。我想把这1000个
文件中任意有上述人名的替换为"Barack Obama"（与时俱进，哈哈）。
下面是我的程序，但输出总是空文件。我是刚刚开始学perl，希望能够得到指点，谢谢！

#!/usr/bin/perl

# Open names.txt file
open(NAMES, "<names.txt");

# Get the handle of all files to be modified
opendir DIR, "newspaper";
@files = readdir DIR;
closedir DIR;

foreach $file (@files)
{
open(FILE, ">$file");
while(<NAMES>)
{
@F = split /\s+/;
print FILE map { s/$F[0]\s$F[1]/John Smith/g; $_; };
close FILE;
}
close FILE;
}

close NAMES;
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina 论坛"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---