• linkedu视频
  • 平面设计
  • 电脑入门
  • 操作系统
  • 办公应用
  • 电脑硬件
  • 动画设计
  • 3D设计
  • 网页设计
  • CAD设计
  • 影音处理
  • 数据库
  • 程序设计
  • 认证考试
  • 信息管理
  • 信息安全
菜单
linkedu.com
  • 网页制作
  • 数据库
  • 程序设计
  • 操作系统
  • CMS教程
  • 游戏攻略
  • 脚本语言
  • 平面设计
  • 软件教程
  • 网络安全
  • 电脑知识
  • 服务器
  • 视频教程
  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell
您的位置:首页 > 脚本语言 >perl > Perl合并文本的一段实例代码

Perl合并文本的一段实例代码

作者: 字体:[增加 减小] 来源:互联网

通过本文主要向大家介绍了perl计算文本多少行,perl 处理文本,perl文本编辑器,perl语言编程实例,perl实例精解等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com

有这样一个文本文件,内容有多行如下,数量不定。
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#closead {display:none;}');};
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#footer_win {display:none;}');};
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('.mainad {display:none;}');};
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('.mt5.recommend {display:none;}');};
Lif(__amscript_cd("jbxue.net")){__amscript_wc('.ggAD {display:none;}');};
Lif(__amscript_cd("jbxue.net")){__amscript_wc('.ggSideBox {display:none;}');};
…………
要求合并为:
Lif(__amscript_cd("www.jb51.net")){__amscript_wc('#closead, #footer_win, .mainad, .mt5.recommend {display:none;}');};
Lif(__amscript_cd("jbxue.net")){__amscript_wc('.ggAD, .ggSideBox {display:none;}');};

思路:可以将url视为key,而将合并的字符串视为value,这样存储下来,在打印即可。只是打印的时候有点麻烦,因为这个字符串里面包含了单引号,双引号,小括弧和花括弧,用q##做为字符串界定符即可。

</div>

您可能想查找下面的文章:

  • perl对长度不一文本的行列进行置换的实现代码
  • Perl合并文本的一段实例代码

相关文章

  • 写了个perl的删除程序
  • Perl 获取shell命令的执行结果
  • cpan安装Net::SSH::Perl中遇到的一些问题
  • perl脚本学习指南--读书笔记
  • perl用{}修饰变量名的写法分享
  • 用python下载百度文库的代码
  • perl 基本语法介绍
  • 一个perl扩展正则表达式代码分析
  • Perl ASCII 字符判断
  • Perl集群配置管理系统Rex简明手册

文章分类

  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell

最近更新的内容

    • 用python下载百度文库的代码
    • perl数据库添加、删除、更新、查询操作例子
    • perl中的范围声明our-my-local介绍
    • Perl函数(子程序)学习笔记
    • 为Java程序员准备的10分钟Perl教程
    • [Perl]文字/代码批量替换工具
    • Perl遍历目录和使用Linux命令分析日志的代码实例分享
    • perl调用外部命令(g)awk的方法
    • Perl中的子程序学习笔记
    • perl的logwrapper使用实例代码

关于我们 - 联系我们 - 免责声明 - 网站地图

©2020-2025 All Rights Reserved. linkedu.com 版权所有