Perl 教程 之 Perl 格式化输出 7

简介: 格式变量

Perl 教程 之 Perl 格式化输出 7

Perl 格式化输出

Perl 是一个非常强大的文本数据处理语言。

Perl 中可以使用 format 来定义一个模板,然后使用 write 按指定模板输出数据。

格式变量

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

输出到其它文件
默认情况下函数write将结果输出到标准输出文件STDOUT,我们也可以使它将结果输出到任意其它的文件中。最简单的方法就是把文件变量作为参数传递给write,如:

write(MYFILE);
以上代码write就用默认名为MYFILE的打印格式输出到文件MYFILE中。

但是这样就不能用$~变量来改变所使用的打印格式。系统变量$~只对默认文件变量起作用,我们可以改变默认文件变量,改变$~,再调用write。

实例

!/usr/bin/perl

if (open(MYFILE, ">tmp")) {
$~ = "MYFORMAT";
write MYFILE; # 含文件变量的输出,此时会打印与变量同名的格式,即MYFILE。$~里指定的值被忽略。

format MYFILE = # 与文件变量同名

  输入到文件中

=================================
.
close MYFILE;
}
执行成功后,我们可以查看 tmp 文件的内容,如下所示:

$ cat tmp

  输入到文件中

=================================

目录
相关文章
|
6月前
|
数据处理 Perl
|
6月前
|
存储 人工智能 BI
|
6月前
|
Perl
|
6月前
|
Perl
|
6月前
|
Perl
|
6月前
|
存储 人工智能 BI
|
6月前
|
人工智能 数据处理 数据格式
|
6月前
|
Perl
Perl 教程 之 Perl 正则表达式 7
Perl教程讲解了其强大的正则表达式功能,用于字符串匹配、查找、替换和提取。示例展示如何使用`/s`删除变量`$string`中的重复字符,输出结果为原字符串。其他实例包括将非数字字符替换为空格,删除tab和空格,以及将数字间字符替换为单个空格。
48 3
|
6月前
|
存储 数据处理 数据格式
|
6月前
|
Perl
Perl 教程 之 Perl 正则表达式 5
Perl正则表达式教程第五节介绍替换操作修饰符:i-不区分大小写,m-^和$匹配每行,o-表达式只执行一次,s-."包含换行符,x-忽略空格,g-替换所有匹配项,e-将替换字符串当作表达式执行。Perl的正则功能极强,影响了多种语言的设计。
37 1

相关实验场景

更多
下一篇
无影云桌面