位置: 编程技术 - 正文

perl的格式化(Format)报表输出实现代码(perl格式化输出 %s)

编辑:rootadmin

perl有最好的文本数据处理能力.这是大家都知道的.在perl本身有一个别的软件没有的小功能,就是Perl格式.它相当于简单的命令行报表和图表输出.这个需要先声明格式.创建格式的文件句柄.然后由@,^,<,>,|这样的字符构成所谓的”报表”来输出图表.这样可以指定出行的外观.后面接数据项,最后用write来显示格式化的内容.

样例:输出纪录格式输出象下边一样定义:format NAME =FORMLIST.

第一部分,声明.如上.如果省略 NAME,上面的代码将定义格式输出 STDOUT。第二部分,格式行FORMLIST 由一些有序的行组成,每一行都是下面三种类型中的一种:1. 注释,以第一列为 # 来表示.2. 一个格式行,用来定义一个输出行的格式,就是指上面讲的@,^,<,>,|这样的字符3. 参数行,数据行,用来向前面的格式行中插入值,都是perl的变量第三部分, 结束 “.”来表示.

格式行(图形行)语法:格式行中每个被替换的部分分别以 @ 或者 ^ 开头。这些行不作任何形式的变量代换。@ 字段(不要同数组符号 @ 相混淆)是普通的字段。

<, >,| 字段的长度通过在格式符号 @,^ 后跟随特定长度的 <, >,| 来定义,同时<,>,| 还分别表示,左对齐,右对齐,居中对齐。如果变量超出定义的长度,那么它将被截断。

^ 字段,用来进行多行文本块填充。这样它会输出如下:first: aaasecond: bbbthird: ccc

它默认会对字符串$text进行分解,象split.当然,是以$:存的内容做分割符.#(在 @ 或 ^ 后边) 右对齐的另外一种方式,在这些符号后面指定一个数字字段。你可以在这种区域中插入一个 . 来制定小数点的位置。如果这些区域的值包含一个换行符,那么只输出换行符前面的文本。如@.##就是输出二位小数.@* 可以被用来打印多行不截断的值,也就是多行没有格式化的输出.

参数行(数据行)参数行指定参数的顺序必须跟相应的格式行的字段顺序一致。不同参数的表达式需要使用逗号分隔。参数的数据可以是标量数据,也可以是函数的返回值.参数行被处理之前所有的参数表达式都在列表环境中求值,因此单个列表表达式会产生多个列表元素。通过使用圆括弧将表达式括起来,可以使表达式扩展到多行 (因此,圆括弧必须是第一行的第一个标志)。这样就可以将值同相应的格式域对应起来方便阅读。表达式中,空白字符 n,t,和 f 总是被解释成单个空格

格式变量

$~ 中 ($FORMAT_NAME) 格式名字$^ ($FORMAT_TOP_NAME) 当前的表头格式名字存储在$% ($FORMAT_PAGE_NUMBER) 当前输出的页号$= ($FORMAT_LINES_PER_PAGE) 每页中的行数$| ($FORMAT_AUTOFLUSH) 是否自动刷新输出缓冲区存储$^L ($FORMAT_FORMFEED) 在每一页(除了第一页)表头之前需要输出的字符串存储在

注:这些变量以文件句柄为基础设定,因此你需要 select 与特定格式关联的文件句柄来影响这些格式变量

调用输出write最后直接用write函数来显示格式化的文本内容.

多页报表$% 当前输出的页面编号$= 页中的行数$- 还有多少剩下的行数

在使用输出时,最好建一个表的顶部输出.这样看起来会好看很多.

实例代码:输出如下 Page 3 Passwd File Name Login Office Uid Gid Home--------------------------------------------------------------------sshd x /var/run/sshdvde2-net x /var/run/vde2mysql x MySQL /var/lib/mysqloracle x /usr/lib/oracle/xetomcat6 x /usr/share/tomcat6

推荐整理分享perl的格式化(Format)报表输出实现代码(perl格式化输出 %s),希望有所帮助,仅作参考,欢迎阅读内容。

perl的格式化(Format)报表输出实现代码(perl格式化输出 %s)

文章相关热门搜索词:perl-v,perl文件怎么执行,perl exit,perl exit,perl文件怎么执行,perl-v,perl 格式化输出,perl 格式化输出,内容如对您有帮助,希望把文章链接给更多的朋友!

用Perl操作Excel文档的实例代码 在Linux或者Unix上操作(生成)Excel,CPAN上提供了Spreadsheet::WriteExcel和Spreadsheet::ParseExcel这两个模块。下面就来看看Spreadsheet::WriteExcel和Spreadsheet::ParseExcel

perl 删除数组元素的几种方法小结 1.用grep函数函数名grep调用语法@foundlist=grep(pattern,@searchlist);解说与同名的UNIX查找工具类似,grep函数在列表中抽取与指定模式匹配的元素,参数pattern为欲

perl用grep map求交集、并集、补集的实例代码 #!/usr/bin/perl##用grepmap获取两个列表的交集并集、补集#usestrict;my@a=("a","b","c","d","e");my@b=("b","g","f","e");print"列表a数据:@an";print"列表b数据:@bn";my%a=map{$_=1}@a

标签: perl格式化输出 %s

本文链接地址:https://www.jiuchutong.com/biancheng/372455.html 转载请保留说明!

上一篇:python批量下载壁纸的实现代码(python批量下载文件)

下一篇:用Perl操作Excel文档的实例代码(perl怎么用)

  • 出口货物适用什么税率
  • 定期定额户需要做账吗
  • 哪些增值税专用发票可以抵扣进项税
  • 个人所得税租房专项扣除标准
  • 报个税的工资表
  • 2019年新注册公司
  • 企业出现经营异常
  • 报表中利润为什么税后比税前大?
  • 国有企业的所得税怎么算
  • 商砼税率是多少?
  • 金税盘费用到期
  • 红字记账的四种登记方式
  • 金税盘年费怎么做账
  • 哪些会计凭证不需要依法保存
  • 公益捐赠税前扣除政策
  • 广告费预付后收条怎么写
  • 非金融企业利息费用的扣除标准
  • 统一社会信用代码在哪里可以查询
  • 支付境外服务费税务如何处理
  • 现金支票丢了
  • 对方开的销项负数抵扣联怎么处理
  • 去年多计提的个税如何处理
  • 禁止局域网用户访问权限
  • 主办会计工作主要做什么
  • 珠宝加工税率是多少
  • 局域网网速太慢怎么办
  • 个人所得税手续费比例
  • 两台mac怎么一起用
  • 销售方运输发票怎么做账
  • 银行存款的利息收入计入什么科目
  • php从服务器下载文件
  • 房地产企业开始退地的影响
  • 固定资产折旧企业所得税税前扣除标准
  • 非盈利组织固定资产没入帐 怎么调账
  • 开发费用怎么入账
  • php自定义变量的方法是
  • php用户登录界面代码
  • 300秒带你手写一首诗
  • anconda虚拟环境路径
  • springboot aop切面
  • phpcms如何配置404
  • 小规模纳税人进项税额怎么处理
  • 银行存款存款单丢了怎么办
  • js与或运算符
  • 开一般户需要开户许可证吗
  • 企业收到国债专项资金怎么记账
  • 所得税费用影响企业营业利润吗
  • 用mysql的小技巧
  • 股权转让产生的个人所得税
  • 企业所得税交完了转个人
  • 小规模增值税免税政策变化历程
  • 员工为公司垫费合法吗
  • 研发费用 汇算清缴
  • 印花税每月未计提怎么办
  • 路桥费能抵扣增值税吗
  • 总资产利润率一般为多少
  • 增值税为负值时当年可抵扣的进项税
  • 装修工程人工费占总价比例
  • 虚拟模块
  • mysql实时监控工具
  • win2008远程桌面闪退
  • linux忘记密码怎么重启
  • windows102021年更新
  • Mac怎么设置默认视频播放器
  • 如何禁用u盘启动项
  • 如何更改win10管理员账户
  • linux系统中限定系统口令的长度
  • win8操作系统
  • 游戏引擎的重要性
  • vxlan配置实例详解
  • linux文件inode详解
  • 在指定目录查找的文件
  • unity怎么创建字体
  • android studio downloading
  • js中的set
  • 一个超简单的纸飞机
  • 安卓点赞脚本
  • 装饰装修公司需要什么
  • 河南地税网上税务局
  • 交完车船税后地税局都给什么
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设