Perl格式化输出

最新推荐文章于 2024-07-04 19:13:58 发布
原创 最新推荐文章于 2024-07-04 19:13:58 发布 · 296 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

这篇博客介绍了Perl的格式化输出功能，包括如何使用format关键字定义输出模板，以及write函数的应用。内容涵盖默认格式、格式行语法、值域格式和格式变量，并通过实例演示了如何定向输出到文件。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

格式化输出是Perl一大特点，毕竟擅长于文本数据处理。

format模板

Perl支持用format关键字来定义格式化输出的模板，然后使用write按指定模板输出数据。基本语法如下：



  • format FORMATNAME =
     


  • fieldline
     


  • value1, value2, value3
     


  • fieldline
     


  • value1, value2, value3
     


  • .
     



  •  


  • =pod
     


  • FORMATNAME：格式化模板名称
     


  • fieldline：一个格式行，用来定义一个输出行的格式，以@或^开头
     


  • value1..:数据行，向前面一个格式行插入变量value
     


  • .：结束符号
     


  • =cut

     

格式行语法

  • 以@或^开头
  • @、^后的<,>,|长度决定了字段的长度，如果变量超出定义的长度将被截断
  • <, >, |还分别表示左对齐，右对齐，居中对齐
  • ^用于多行文本填充

值域格式

@###.### 表示固定精度数字，一共8个zifu字符宽，小数点前4位，后面3位

格式变量

$~（$FORMAT_NAME） ：当前格式名字

$^（$FORMAT_TOP_NAME）：当前表头格式

$=（$FORMAT_LINES_PER_PAGE）：每页中的行数

$|   ($FORMAT_AUTOFLUSH) ：是否自动刷新输出缓冲区存储

$%（ $FORMAT_PAGE_NUMBER）：设置页码

默认format

默认format是STDOUT。



  •   1 #!/usr/bin/perl -w
     


  •   2 write;

     


  • [root@izuf682lz6444cynn96up0z ~]# ./formatOutput1.pl 
     


  • Undefined format "STDOUT" called at ./formatOutput1.pl line 2.

     

Demo



  •   1 #!/usr/bin/perl -w
     


  •   2 format STUDENT =
     


  •   3 ===================================
     


  •   4 @<<<<<<<<<<<<< @<<<<<<<<<<
     


  •   5 $name, $score
     


  •   6 ===================================
     


  •   7 .
     


  •   8 
     


  •   9 format STUDENT_TOP =
     


  • 10 ===================================
     


  • 11 Name           Score      Page@<
     


  • 12                               $%
     


  • 13 ===================================
     


  • 14 .
     


  • 15 
     


  • 16 select(STDOUT);
     


  • 17 $~ = STUDENT;
     


  • 18 $^ = STUDENT_TOP;
     


  • 19 
     


  • 20 @stuName = ('hunk', 'jack', 'lucy');
     


  • 21 @stuScore = (80, 70 , 60);
     


  • 22 
     


  • 23 $i = 0;
     


  • 24 foreach (@stuName){
     


  • 25     $name = $_;
     


  • 26     $score = $stuScore[$i++];
     


  • 27     write;
     


  • 28 }

     


  • [root@izuf682lz6444cynn96up0z ~]# ./formatOutput2.pl 
     


  • ===================================
     


  • Name           Score      Page1
     


  • ===================================
     


  • ===================================
     


  • hunk           80
     


  • ===================================
     


  • ===================================
     


  • jack           70
     


  • ===================================
     


  • ===================================
     


  • lucy           60
     


  • ===================================

     

定向输出到文件

默认输出是标准输出（STDOUT）也可以输出到指定文件。

方法1

用select改变输出文件句柄（默认是STDOUT）。



  • 1 #!/usr/bin/perl -w
     


  •   2 format STUDENT =
     


  •   3 ==========================
     


  •   4 @<<<<<<<<<<<<< @<<<<<<<<<<
     


  •   5 $name, $score
     


  •   6 ==========================
     


  •   7 .
     


  •   8 
     


  •   9 format STUDENT_TOP =
     


  • 10 ==========================
     


  • 11 Name           Score
     


  • 12 ==========================
     


  • 13 .
     


  • 14 
     


  • 17 @stuName = ('hunk', 'jack', 'lucy');
     


  • 18 @stuScore = (80, 70 , 60);
     


  • 19 
     


  • 20 if(open(HANDLE, ">tmp")){
     


  • 21     select(HANDLE);
     


  • 22     $~ = STUDENT;
     


  • 23     $^ = STUDENT_TOP;
     


  • 24     $i = 0;
     


  • 25     foreach (@stuName){
     


  • 26         $name = $_;
     


  • 27         $score = $stuScore[$i++];
     


  • 28         write; 
     


  • 29     }   
     


  • 30     close HANDLE;
     


  • 31 }  

     


  • [root@izuf682lz6444cynn96up0z ~]# ./formatOutput.pl 
     


  • [root@izuf682lz6444cynn96up0z ~]# cat tmp 
     


  • ==========================
     


  • Name           Score
     


  • ==========================
     


  • ==========================
     


  • hunk           80
     


  • ==========================
     


  • ==========================
     


  • jack           70
     


  • ==========================
     


  • ==========================
     


  • lucy           60
     


  • ==========================

     

方法2

执行write时指定输出的文件handle，用这种方式，指定文件handle的名字必须和format模板的名字相同。



  •   1 #!/usr/bin/perl -w
     


  •   2 format STUDENT =
     


  •   3 ==========================
     


  •   4 @<<<<<<<<<<<<< @<<<<<<<<<<
     


  •   5 $name, $score
     


  •   6 ==========================
     


  •   7 .
     


  •   8 
     


  •   9 format STUDENT_TOP =
     


  • 10 ==========================
     


  • 11 Name           Score
     


  • 12 ==========================
     


  • 13 .
     


  • 14 
     


  • 15 @stuName = ('hunk', 'jack', 'lucy');
     


  • 16 @stuScore = (80, 70 , 60);
     


  • 17 
     


  • 18 if(open(STUDENT, ">tmp")){
     


  • 19     $~ = STUDENT;
     


  • 20     $^ = STUDENT_TOP;
     


  • 21     $i = 0;
     


  • 22     foreach (@stuName){
     


  • 23         $name = $_;
     


  • 24         $score = $stuScore[$i++];
     


  • 25         write STUDENT;
     


  • 26     }
     


  • 27     close STUDENT;
     


  • 28 }

     


  • [root@izuf682lz6444cynn96up0z ~]# ./formatOutput.pl 
     


  • [root@izuf682lz6444cynn96up0z ~]# cat tmp 
     


  • ==========================
     


  • Name           Score
     


  • ==========================
     


  • ==========================
     


  • hunk           80
     


  • ==========================
     


  • ==========================
     


  • jack           70
     


  • ==========================
     


  • ==========================
     


  • lucy           60
     


  • ==========================

     

注意

$~ = STUDENT;和$^ = STUDENT_TOP;必须写在if语{}内。否则会出现“Undefined format "HANDLE" called”这样的错误，说明也有作用域的问题。

Perl 格式化输出概念详解及示例代码
GbkMobile的博客
09-27 545
在 Perl 中，可以使用各种方式来格式化输出，包括使用内置函数、模块和特定的语法。Perl 格式化输出是一个重要的功能，它可以帮助我们以指定的格式展示数据，使其更易读或符合特定要求。通过灵活运用这些工具，我们可以轻松地将数据以各种各样的格式展示出来，提高代码的可读性和输出的质量。函数的参数列表中提供相应的数据，我们可以将数据以指定的格式输出到屏幕上。函数的参数列表中提供相应的数据，我们可以将数据以指定的格式输出到屏幕上。方法，将数据传递给它进行格式化，最后将格式化后的字符串输出到屏幕上。
Perl的文本艺术：精通格式化输入输出
最新发布
2401_85743969的博客
07-20 811
Perl中的格式化允许开发者定义数据的显示格式，包括对齐、宽度、精度等。格式化可以通过format语句在代码中直接定义，也可以存储在文件中供多次使用。开发者可以定义更复杂的格式，包括对齐、宽度、数字格式化等。示例代码# 使用自定义格式输出$age = 25;write;
perl格式化输出.
09-07
讲述如何用函数write和打印格式来生成格式化的输出。
perl格式化输出
zk1878的专栏
10-31 576
原文：http://man.ddvip.com/web/perl/perl10.htm     第十章 格式化输出 by flamephoenix 一、定义打印格式二、显示打印格式三、在打印格式中显示值  1、通用的打印格式  2、格式和局域变量  3、选择值域格式  4、输出值域字符四、输出到其它文件五、分页六、格式化长字符串七、用printf格式化输出    我们已经见过用...
perl学习笔记八----格式化输出
成长专栏
05-28 4394
 格式化输出在一个perl中可以有多个format。一 打印的基本步骤1、将系统变量＄~设成所要使用的格式      2、调用函数write     函数write将结果输出到标准输出文件STDOUT，我们也可以使它将结果 输出到任意其它的文件中。最简单的方法就是把文件变量作为参数传递给write     例如 write (MYFILE);也可以通过如下方式     例如 select(MYFI
Perl函数write与格式化输出详解
本文主要讲述了如何在 Perl 中利用 `print` 函数和 `write` 函数进行格式化输出，以及 `printf` 和 `sprint` 的作用。 首先，让我们理解 `print` 函数在 Perl 中的基本用法。`print` 通常用于简单地将字符串或变量...
perl语言学习第一篇：将文本perl.txt内容读入，再格式化输出（菜鸟小试牛刀）
qq_41022608的博客
07-26 1058
实习较闲，自学perl，刚看完菜鸟教程，小试牛刀 下面的程序主要是读入perl.txt文件 cat perl.txt 4 karsa 1 uzi 3 xiaohu 2 ming 5 langx 然后格式化输出如下字样 -------------------- id name ------------...
Perl 格式化输出
梦想起飞的地方
11-29 421
杂货铺-你想要的这里都有。www.myarea.top Perl 格式化输出 Perl 是一个非常强大的文本数据处理语言。 Perl 中可以使用 format 来定义一个模板，然后使用 write 按指定模板输出数据。 Perl 格式化定义语法格式如下： format FormatName = fieldline value_one, value_two, value_three fi...
perl格式化输出 范例
weixin_33736048的博客
11-15 229
本文转自 tiger506 51CTO博客，原文链接：http://blog.51cto.com/tiger506/836587，如需转载请自行联系原作者
【Perl】format格式化輸出
lbt_dvshare的博客
05-25 613
語法 format FORMATNAME = fieldline value1, value2, value3 fieldline value1, value2, value3 . =pod FORMATNAME ：格式化模板名称 fieldline ：一个格式行，用来定义一个输出行的格式，以@或^开头 value1.. : 数据行，向前面一个格式行插入变量value . ...
Perl 格式化输出：提升代码可读性的技巧
2402_85761468的博客
07-04 603
Perl 提供了多种工具和方法来实现代码的格式化输出。通过本文的介绍，你应该对 Perl 中的格式化输出有了更深入的了解。合理利用这些工具和技巧，可以显著提升你的 Perl 代码的可读性和用户体验。本文详细介绍了 Perl 中实现代码格式化输出的多种方法，包括使用内置格式化操作符、正则表达式、专门的格式化语法、以及多个有用的 Perl 模块。通过示例代码，展示了如何根据不同的场景选择合适的格式化工具。希望本文能够帮助你更好地掌握 Perl 的格式化输出技巧，提升你的编程能力。
[Perl]格式化輸出及格式定制
元直的博客
05-16 823
一、工具：format模板 Perl支持用format关键字来定义格式化输出的模板，然后使用write按指定模板输出数据。 1、基本语法 (1)格式行語法： 以@或^开头 @、^后的<,>,|长度决定了字段的长度，如果变量超出定义的长度将被截断 <, >, |还分别表示左对齐，右对齐，居中对齐 ^用于多行文本填充 (2)值域行語法： @####....
Perl教学 第十篇 格式化输出
Hank_Huang的专栏
06-16 1947
我们已经见过用print函数将原始的未格式化的文本输出到文件，本章讲述如何用函数write和打印格式来生成格式化的输出。一、定义打印格式定义打印格式的关键字为format，语法为：format formatname =lines_of_output. 打印格式名formatname的命名规则与一般变量相同。结束行为一个句号，此行不能有任何其它字符，包括空格，句号必须是该行第一个字符。打印格式的定义
perl的格式化(Format)报表输出
爱飞的蒲公英
11-21 1707
perl有最好的文本数据处理能力.这是大家都知道的.在perl本身有一个别的软件没有的小功能,就是Perl格式.它相当于简单的命令行报表和图表输出.这个需要先声明格式.创建格式的文件句柄.然后由@,^,,|这样的字符构成所谓的”报表”来输出图表.这样可以指定出行的外观.后面接数据项,最后用write来显示格式化的内容. 样例: 输出纪录格式输出象下边一样定义： format NAME =
Perl创建格式化报告——format
jiangzhao526的专栏
12-16 1248
Perl的全称是“Practical Extraction and Report Language”（使用提取和报表语言），具有非常强大的字串处理能力，可以简化报表的创建。显然，格式化报告是它比较强大的功能之一。           Perl的“格式化”功能允许程序员定义模板，使得程序按照我们制定的格式输出数据。一个格式的声明以关键字format开始，形式为：        
oracle 格式化报表输出,perl的格式化(Format)报表输出实现代码
weixin_39626162的博客
04-06 158
perl有最好的文本数据处理能力.这是大家都知道的.在perl本身有一个别的软件没有的小功能,就是Perl格式.它相当于简单的命令行报表和图表输出.这个需要先声明格式.创建格式的文件句柄.然后由@,^,,|这样的字符构成所谓的”报表”来输出图表.这样可以指定出行的外观.后面接数据项,最后用write来显示格式化的内容.样例:输出纪录格式输出象下边一样定义：format NAME =FORMLIST...
perl格式化模板
浮生终有醒
11-29 1497
#!/usr/bin/env perl use warnings; use strict; use Getopt::Long; use FindBin qw($Bin); use File::Basename qw(basename); use File::Spec::Functions qw(rel2abs); ##### main program ##### my $mainPL = bas
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值