替换一行中的某个单词有几种perl的方法啊？

zljjg2000

文件file如下：
2006.5.7 10.10.10.1 hello 10000 ok
2006.4.17 10.10.10.2 abdc 3000 ok
2006.1.2 10.10.10.3 adfa 40000 ok
请问使用perl，如何能将上面这个文件中的“10000”替换成“20000”呢？我写了个开头如下：
#!/usr/local/bin/perl
open(EP,"file")
while(<EP>)
{
}
close(EP);
程序体不知道该如何写，请指教，谢谢！

兰花仙子

原帖由 zljjg2000 于 2006-5-14 10:47 发表
文件file如下：
2006.5.7 10.10.10.1 hello 10000 ok
2006.4.17 10.10.10.2 abdc 3000 ok
2006.1.2 10.10.10.3 adfa 40000 ok
请问使用perl，如何能将上面这个文件中的“10000”替换成“20000”呢？我写了个开 ...

1. s/\s+10000\s+/ 20000 /;

复制代码