Perl入门（十二）－－格式化输出

使用write函数可以打印出一个定义的格式：

###### 使用write #########
$~ = "MYFORMAT"; # 指定缺省文件变量下所使用的格式
write; #缺省文件变量的打印，即不带任何参数的write，打印$~所指定的格式

format MYFORMAT = # 定义格式MYFORMAT
=================================
      Text #此处注释被打印
=================================
.
# 以点号表示格式化结束，必须是单独的点号换行。

write; # write可以在MYFORMAT定义前后都可以调用

输出（标准输出，即终端）：

=================================
Text #此处注释被打印
=================================
=================================
Text #此处注释被打印
=================================

如果不指定$~的情况：

###### 不指定$~下会打印名为STDOUT的格式 ######
write; #不指定$~的情况下会寻找名为STDOUT的格式

format STDOUT =
~用~号指定的文字不会被打印
----------------
  STDOUT格式
----------------
.

使用文件变量，会打印与文件变量名相同名字的格式：

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

format MYFILE = # 与文件变量同名
=================================
      输入到文件中
=================================
.
close MYFILE;
}

利用select来使用$~中定义的格式：

###### 使用select的write #######
if (open(MYFILE, ">>tmp")) {
select (MYFILE); # 使得缺省文件变量的打印输出到MYFILE中
$~ = "OTHER";
write; # 缺省文件变量，打印到select指定的文件中，必使用$~指定的格式OTHER

format OTHER =
=================================
  使用定义的格式输入到文件中
=================================
.
close MYFILE;
}

输出变量的值：

# 在write中写入变量
$var = 235;
format VAR =
The number is @<<<<<<!
$var
.

$var = 532;
$~ = "VAR";
write; # 根据当前的变量值代替@<<<<<<并进行输出：The number is 532    !　（<为占位符，并且表示左对齐输出）
$var = 836;

除了@<<<，还有其它的值域格式：

# @>>>表示右对齐输出
format RIGHT =
The number is @>>>>>>!
$var
.
$~ = "RIGHT";
write; # The number is

# @|||表示居中输出
format CENTER =
The number is @||||||!
$var
.
$~ = "CENTER";
write; # The number is   836  !

# @##.##表示固定精度
format FIX =
The number is @####.###!
$var
.
$~ = "FIX";
write; # The number is   836.

# @*表示多行文本
$text = "line 1\nline 2";
format MULTILINE =
The text is @*
$text
.
$~ = "MULTILINE";
write; # The text is line 1 （换行）line 2

可以输出不只一个变量：

# 输出多个变量
$a = 5;
$b = 10;
format VARS =
@<<< + @<<< = @<<<.
$a, $b, $a+$b
.
$~ = "VARS";
write; # 5    + 10   = 15  .

在输出到打印机，会需要以页的方式输出：

#准备页的内容
for ($i = 1; $i <= 100; $i++) {
    $content .= "line $i\n";
}
format CONTENT =
@*
$content
.
$~ = "CONTENT";

#页眉
format STDOUT_TOP =
This is page top
.

#write;

# S%表示当前页，可以清零
$% = 0;

# $^设置页眉格式，默认是STDOUT_TOP
$^ = "MYTOP";
format MYTOP =
This is page @<
$%
.

$= = 20; # 设置页长，默认情况下是60

write;

# $-表示当前行离页尾的行数。当$-值为0时，开始新的一页。write会自动减掉该值。
print $-."\n";

@*会将字符串变量全部输出，可以用^<<<来格式化长串输出：

#### 格式化长字符串 ####
$text = "abcdefghijklmnopqrstuvwxyz";

format LONG =
^<<<<
$text; # 输完一行后，输出的字符会出变量中删除掉
^<<<<<<<<<<<<<
$text;
^>>>>>>>>>>>>>>>>>>>>>>
$text;
^<<<<<<<
$text; # $text已经没有内容，输出空行
~^<<<<<
$text; # 最前面的~号避免输出空行
.

$~ = "LONG";
write;

最后一种格式化的方式是使用printf，有以下选项：

域值	含义
%c	单个字符
%d	十进制整数
%e	科学计数法形式的浮点数
%f	普通形式（定点）浮点数
%g	紧缩形式浮点数
%o	八进制整数
%s	字符串
%u	无符号整数
%x	十六进制整数