免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 程序设计 › Perl › 请教一个替换文件内容的问题

最近访问板块

发新帖

查看: 1602 | 回复: 2

上一主题

下一主题

请教一个替换文件内容的问题 [复制链接]

论坛徽章:: 0

电梯直达

跳转到指定楼层

1楼 [收藏(0)] [报告]

发表于 2006-02-09 16:14 |只看该作者 |倒序浏览

各位有个问题不知道能不能实现。
现有一个文件test内容如下：
<html>
<title>test page</title>
<body>
$value
</body>
<html>

perl程序如下：
use strict;
my $value="hello world!";
open (FH,"./test.html");
while(my $line=<FH>)
{
print $line;#当$line的内容是$value时，想直接打印“hello world!”，而不是"$value"。能否实现，不用模式匹配。
}
close(FH);

谢谢！

文库|博客

论坛徽章:: 1

荣誉会员
日期:2011-11-23 16:44:17

2楼 [报告]

发表于 2006-02-10 08:41 |只看该作者

while(my $line=<FH>)
{
$line=~s/[\r\n]//;
if(index($line,$match_string) >0){
print "Hello World!!\n";
}

}
close(FH);

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

3楼 [报告]

发表于 2006-02-10 10:39 |只看该作者

回复 2楼 apile 的帖子

谢谢！

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

发新帖

Chinaunix › 论坛 › 程序设计 › Perl › 请教一个替换文件内容的问题

北京盛拓优讯信息技术有限公司. 版权所有京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP