Perl格式化输出用法解析

在学习Perl的过程中，Perl格式化输出问题经常会遇到，我们已经见过用print函数将原始的未格式化的文本输出到文件，本章讲述如何用函数write和打印格式来生成格式化的输出。

成都创新互联公司服务项目包括邛崃网站建设、邛崃网站制作、邛崃网页制作以及邛崃网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，邛崃网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到邛崃省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

Perl格式化输出

一、输出到其它文件

缺省地，函数write将结果输出到标准输出文件STDOUT，我们也可以使它将结果输出到任意其它的文件中。最简单的方法就是把文件变量作为参数传递给write，如：
write(MYFILE);
这样，write就用缺省的名为MYFILE的打印格式输出到文件MYFILE中，但是这样就不能用$~变量来改变所使用的打印格式。系统变量$~只对缺省文件变量起作用，我们可以改变缺省文件变量，改变$~，再调用write，例如：
select(MYFILE);
$~="MYFORMAT";
write;

◆当select改变缺省文件变量时，它返回当前缺省文件变量的内部表示，这样我们就可以创建子程序，按自己的想法输出，又不影响程序的其它部分，如下：

 
 
 
    
  
  
  
  1. subwrite_to_stdout{  
    2. 
  
  
  
  2. local($savefile,$saveformat);  
    3. 
  
  
  
  3. $savefile=select(STDOUT);  
    4. 
  
  
  
  4. $saveformat=$~;  
    5. 
  
  
  
  5. $~="MYFORMAT";  
    6. 
  
  
  
  6. write;  
    7. 
  
  
  
  7. $~=$saveformat;  
    8. 
  
  
  
  8. select($savefile);  
    9. 
  
  
  
  9. }  
    10. 
  
  
  
  10.  
    11.

 

二、Perl格式化输出之分页

在输出到打印机时，可以在每页顶部输出相应的信息，这样的特殊文本叫页眉。定义页眉实际上就是定义名为filename_TOP的打印格式，例如给标准输出文件定义页眉如下：
formatSTDOUT_TOP=
ConsolidatedWidgetsInc.1994AnnualReport

◆在页眉的定义中也可以包含值域，页眉中经常使用的一个特殊值是当前页码，存贮在系统变量$%中，如：
formatSTDOUT_TOP=
Page@<<.
$%

◆我们也可以通过改变系统变量$^改变定义页眉的打印格式名，与$~一样，$^只对当前缺省文件起作用，因此可以与select函数结合使用。
缺省情况下，每页长度为60行，可以通过改变$=来改变页长，如：
$==66;#页长设为66行

此赋值语句必须出现在第一个write语句前。
注：一般使用分页机制时不用print函数，因为当用write输出时，Perl解释器跟踪每页的当前行号。如果必须使用print而又不打乱页计数，可以调整系统变量$-。$-的含义是当前行到页末之间的行数，当$-达到零时，就开始新的一页，调整方法如：
print("Hereisalineofoutput\n");
$--=1;

三、Perl格式化输出之格式化长字符串

我们已经学过值域@*可以输出多行文本，但它完全将字符串原样输出，不加以格式化。在Perl中对长字符串（包含换行）进行格式化的值域定义很简单，只需把打头的@字符换成^就行了，这种文本格式化中，Perl解释器在一行中放置尽可能多的单词。每当输出一行文本，被输出的子串就从变量中删除，再次在域值中使用该变量就把剩下的字符串继续按格式输出。当内容已输出完毕，该变量就成了空串，再输出就会输出空行，为避免输出空行，可以在值域格式行首加一个~字符。见下例：

 
 
 
    
  
  
  
  1. 1:#!/usr/local/bin/perl  
    2. 
  
  
  
  2. 2:  
    3. 
  
  
  
  3. 3:@quotation=;  
    4. 
  
  
  
  4. 4:$quotation=join("",@quotation);  
    5. 
  
  
  
  5. 5:$~="QUOTATION";  
    6. 
  
  
  
  6. 6:write;  
    7. 
  
  
  
  7. 7:  
    8. 
  
  
  
  8. 8:formatQUOTATION=  
    9. 
  
  
  
  9. 9:Quotationfortheday:  
    10. 
  
  
  
  10. 10:-----------------------------  
    11. 
  
  
  
  11. 11:~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    12. 
  
  
  
  12. 12:$quotation  
    13. 
  
  
  
  13. 13:~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    14. 
  
  
  
  14. 14:$quotation  
    15. 
  
  
  
  15. 15:~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    16. 
  
  
  
  16. 16:$quotation  
    17. 
  
  
  
  17. 17:-----------------------------  
    18. 
  
  
  
  18. 18:.  
    19. 
  
  
  
  19.  
    20.

 运行结果如下：

 
 
 
    
  
  
  
  1. $program  
    2. 
  
  
  
  2. Anysufficientlyadvancedprogramming  
    3. 
  
  
  
  3. languageisindistinguishablefrommagic.  
    4. 
  
  
  
  4. ^D  
    5. 
  
  
  
  5. Quotationfortheday:  
    6. 
  
  
  
  6. -----------------------------  
    7. 
  
  
  
  7. Anysufficientlyadvancedprogramminglanguageis  
    8. 
  
  
  
  8. indistinguishablefrommagic.  
    9. 
  
  
  
  9. -----------------------------  
    10. 
  
  
  
  10. $  
    11. 
  
  
  
  11.  
    12.

 如果把打印格式中行首的~字符去掉，上面的输出结果中就会多一行空行。很明显，当字符串长度不明确时，这种用法很不方便，原因就在于它指明了输出的行数上限，超过这一上限的字符就不会被输出，解决方法很简单，就是在域值格式行首加两个~字符，这样就会持续按格式输出文本直到输出完毕，用此方法把上述程序改写如下：

 
 
 
    
  
  
  
  1. 1:#!/usr/local/bin/perl  
    2. 
  
  
  
  2. 2:  
    3. 
  
  
  
  3. 3:@quotation=;  
    4. 
  
  
  
  4. 4:$quotation=join("",@quotation);  
    5. 
  
  
  
  5. 5:$~="QUOTATION";  
    6. 
  
  
  
  6. 6:write;  
    7. 
  
  
  
  7. 7:  
    8. 
  
  
  
  8. 8:formatQUOTATION=  
    9. 
  
  
  
  9. 9:Quotationfortheday:  
    10. 
  
  
  
  10. 10:-----------------------------  
    11. 
  
  
  
  11. 11:~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    12. 
  
  
  
  12. 12:$quotation  
    13. 
  
  
  
  13. 13:-----------------------------  
    14. 
  
  
  
  14. 14:.  
    15.

这样运行结果相同。

四、用printfPerl格式化输出

还有一种容易掌握和使用的Perl格式化输出函数，那就是printf，它与C语言中的printf基本上是相同的。printf有两个参数，一个是字符串，其中含有一个或多个域值形式，另一个是与各域值相对应的变量值按一定格式替换，如：
printf("ThenumberIwanttoprintis%d.\n",$number);
各种域值形式如下表：

一些使用细节如下：

1、在格式d、o、u或x中，如果整数值较大或可能较大，可加个l字符，意为长整型，如%ld。
2、%字符后加正整数表示该域的最小宽度，如果输出结果宽度不足，则向右对齐，前面用空格补足，如果该正整数以数字0打头，则补足字符为0。若%字符后为负整数，则结果向右对齐。
3、浮点数域值(%c、%f和%g)中可以指定小数点前后的宽度，如%8.3f意为总宽度为8个字符，小数点后（即小数部分）为3个字符，多出的小数部分四舍五入。
4、在整数、字符或字符串的值域中使用如上的小数形式n.m，整数部分n为总宽度，小数部分m为输出结果的最大宽度，这样就保证了输出结果前至少有n-m个空格。

新闻名称：Perl格式化输出用法解析
本文网址：http://www.csdahua.cn/qtweb/news23/4323.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网

成都快上网为您推荐相关内容

小程序开发知识

各行业网站

东方电机技改服务有限公司　　 　小谭网创广告　　 　德阳网站建设　　 　成都企业网站建设公司　　 　成都未宇聚　　 　广汉锦华　　 　兴久牧业　　 　成都网站推广　　 　定制网站建设多少钱　　 　成都网站设计　　 　成都展柜设计公司　　 　网络营销　　 　响应式建站　　 　添翼二手车鉴定评估　　 　乐山网站建设　　 　温江服务器托管　　 　遂宁做网站　　 　成都网站制作　　 　LOGO设计　　 　重庆网站建设