【Perl】format格式化輸出

語法

format FORMATNAME =
fieldline
value1, value2, value3
fieldline
value1, value2, value3
.
 
=pod
FORMATNAME ：格式化模板名称
fieldline  ：一个格式行，用来定义一个输出行的格式，以@或^开头
value1..    : 数据行，向前面一个格式行插入变量value
.          ：结束符号

---

格式行语法

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

---

值域格式

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

---

格式变量

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

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

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

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

$%（ $FORMAT_PAGE_NUMBER）   ：设置页码

---

默认format

    默认format是STDOUT, 用select改变输出文件句柄,記得和write搭配使用。

---

example

#!/usr/bin/perl -w

   format STUDENT =
   ==========================
   @<<<<<<<<<<<<< @<<<<<<<<<<
   $name, $score
   ==========================
   .
   
   format STUDENT_TOP =
   ==========================
   Name           Score
   ==========================
   .
 
   @stuName = ('hunk', 'jack', 'lucy');
   @stuScore = (80, 70 , 60);
  
   if(open(STUDENT, ">tmp")){
      #select(HANDLE);
      $~ = STUDENT;    #指定格式名字
      $^ = STUDENT_TOP;#指定表頭格式
      $i = 0;
      foreach (@stuName){
          $name = $_;
          $score = $stuScore[$i++];
          write STUDENT;
      }
      close STUDENT;
  }

  result:

==========================
Name           Score
==========================
==========================
hunk           80
==========================
==========================
jack           70
==========================
==========================
lucy           60
==========================