文章分类 | 推荐文章 | 最新文章 | 热点文章 | 最新软件 | 国产软件 | 国外软件 | 汉化补丁 | 设为首页 | 加入收藏

业界资讯 | 图形图像 | 操作系统 | 网络冲浪 | 工具软件 | 办公软件 | 媒体动画 | 精文荟萃 | 认证考试 | 网站建设 | 技术开发 | 专栏

当前位置：abcdown网络学院 → 网络编程 → CGI/Perl → Perl教学第十篇格式化输出

精品广告

推荐TOP10

·在CGI中如何使用cookie的方法

·CGI脚本在WIN2000、WINNT下安装

阅读TOP10

·Linux系统环境下的Socket编程详细解析

·CGI 安全问题

·用机器生成的音乐监控Linux 计算机

·Perl教学目录

·Perl教学第一篇概述

·Perl教学第二篇简单变量

·Perl教学第三篇操作符

·Perl教学第四篇列表和数组变量

·Perl教学第五篇文件读写

·Perl教学第六篇模式匹配

Perl教学第十篇格式化输出

日期：2007年5月10日作者：查看:[大字体中字体小字体]

我们已经见过用print函数将原始的未格式化的文本输出到文件，本章讲述如何用函数write和打印格式来生成格式化的输出。
一、定义打印格式
定义打印格式的关键字为format，语法为：

format formatname =
lines_of_output
.
打印格式名formatname的命名规则与一般变量相同。结束行为一个句号，此行不能有任何其它字符，包括空格，句号必须是该行第一个字符。
打印格式的定义象子程序一样可以放在任何地方，甚至可以放在条件语句中，但是最好把它们集中放在程序的开头或结尾。
二、显示打印格式
打印格式的显示有两步：
1、将系统变量$~设成所要使用的格式
2、调用函数write
例如：

1 : #!/usr/local/bin/perl
2 :
3 : $~ = "MYFORMAT";
4 : write;
5 :
6 : format MYFORMAT =
7 : ===================================
8 : Here is the text I want to display.
9 : ===================================
10: .
结果输出如下：

$ program
===================================
Here is the text I want to display.
===================================
$
如果不用$~指定打印格式，Perl解释器就假定要使用的格式名与要写入的文件变量同名，在本例中，如果不指定使用MYFORMAT，则Perl解释器试图使用名为STDOUT的打印格式。
进入讨论组讨论。

三、在打印格式中显示值
我们使用打印格式的主要原因当然是格式化存贮在简单变量或数组变量中的值从而生成可读性好的输出，这一目的用“值域”来实现。每个值域指定一个值，如变量或表达式，调用write函数时，该值就以值域指定的格式显示。
1、通用的打印格式
打印格式的一个缺点是定义中包含了变量名，例如：

format MYFORMAT =
==========================================================
The winning number is @<<<<< $winnum
==========================================================
.
当调用write输出此格式时，必须记着它使用了变量$winnum。用子程序和局域变量就可以创建更通用的打印格式。下例从STDIN输入一个文件并输出五个出现频率最高的字母及出现次数。

1 : #!/usr/local/bin/perl
2 :
3 : while ($line = ) {
4 : $line =~ tr/A-Z/a-z/;
5 : $line =~ s/[^a-z]//g;
6 : @letters = split(//, $line);
7 : foreach $letter (@letters) {
8 : $lettercount{$letter} += 1;
9 : }
10: }
11:
12: $~ = "WRITEHEADER";
13: write;
14: $count = 0;
15: foreach $letter (reverse sort occurrences
16: (keys(%lettercount))) {
17: &write_letter($letter, $lettercount{$letter});
18: last if (++$count == 5);
19: }

[1] [2] [3] [4] 下一页

上一篇:Perl教学第十一篇文件系统

下一篇:Perl教学第九篇关联数组(哈希表)

相关软件：

相关文章：

·Perl教学第十篇格式化输出

·Perl教学第十篇格式化输出之四

·Perl教学第十篇格式化输出之三

·Perl教学第十篇格式化输出之二

·Perl教学第十篇格式化输出之一

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.abcdown.net

首页 | 本站声明 | 下载帮助 | 发布软件 |

中文版权所有：ABC学院浙ICP备05000717号