Linux Manpages Online - man.cx manual pages

Perl的一些内部机制、可以帮助我们产生一份简单的格式化图表。经过 perl的处理，你列印的格式可以接近于你所见的外貌。它可以记录如你现在正处在哪个页面，每个页面的行数与何时列印出页面的标题。关键字， format() 格式函数与 write()执行函数是直接引自 FORTRAN语法。详情可参阅 perlfunc。幸运的是列印的格式可读性又有所提高。几乎类似 BASIC 的 PRINT USING。可以把它想象为简单的 nroff(1). 有如子程序与包一样，格式只是语句的声明，而不是执行调用。故它可以放在程式的任何位置（一般最好是把它们集中在一块）。与 perl的其它变量名字类型不同，格式命名有别于一般的独自的定义。也就是说，你有一个名为 Foo的函数，它与另一个格式名称为 Foo的东西是完全不同。但是缺省的格式名称与有关连的文件句柄可用相同的名字。所以缺省的输出格式名称 STDOUT，它的文件句柄名称就是 STDOUT。而对缺省格式名称 TEMP，它的文件句柄名称也可以是 TEMP。虽然名称一样但两者并不相同。输出格式的语法如下：

    format NAME =
    FORMLIST
    .如 省 略 格 式 名 称 ， 格 式 名 称 将 以 标 准 输 出

STDOUT命名。而格式项目将包括了好几个连续横行。每一行属于下列叁种型态之一：

1. 注释（

comment), 以符号 “#”置于每行的开头。

2. 图案行

(picture line)，规定了单一行的格式化外观。

3. 参数行

, 提供一些数值以对应前面的图案行。图案行的输出效果就与我们看到的一样，除了某些值域栏位会给相对应数值取代外，每个输入栏位都以一个 @或 ^ 控制符开头。这些单行内的控制符不能做任何窜改取代 (勿与数组变量 @混淆 )。 @栏位是属于正常形态的栏位，而 ^栏位则用来表示可以输入多行文字。至于该栏位则由 < > 或 ⎪ 符号跟随其后指定向左、右、或居中对齐。并同时跟据该符号的数目，输入指定资料的长度。如变量内容超过限定长度、格式列印时会自动删除多馀的部份。另一种指定向右对齐方式，是使用 #符号来指定一个数字栏位。如此可方便小数点定位。如果输入值里还包含一个换行字元 (0，则仅列印出该换行字元前的资料。最后图案行出现的 @*这个特别符号标记，可以用来列印多行并且不被截掉的数值。接下来的一行、是跟据图案行里的值域栏位输入相应的数值。如果是利用运算式提供数值的话、必须以逗号分隔。因为所有的表示法都会被当成一个串连内容再行处理。所以一个单一的串列表示法也可产生多个串列资料。如果表示法是利用括号围起，可能会展开好几行。若想如是安排，第一行的第一个单字必须是以左括号开始。如果运算式内有小数点的数字类型须要处理、同时图案行的相关符号也指出小数位须列印出来 (除了图案行内的包含小数点 "."的数字控制符号 #外 )。小数点列印出的外貌 , 以当地的运行版本决定 (LC_NUMERIC locale)。也就是说、在德文地区使用小数格示输出时、小数点的显示将是 ","而非 "."。相关资料请参考 perllocale 与 "警告 " 图案行里的栏位如果以 ^控制符开头、格式将会作特殊化处理。如果该栏位是注解栏位又没定义其值、栏位将以空白取代。若是其它型态、则视为一种填补资料的状态。在此、我们不能随便填入任意表示法进去。相反、必须以相关的变量输入字串内容。 perl会尽量将文字放入该栏位、然后把字串的前面部份删去。当你下次使用该字串变量时、可以使用后面的字串部份 (换句话说、在执行 write函数时、字串变量的内容是会改变的 )。正常情况下、你必须使用一类似垂直状的堆块来放置要输入的文字、以便整齐列印出一柱状文字。如你列印的文字太长、想以 "..."取代过长的文字时、你可以借由更改 $: 变量值来取代分隔字元。也就是当你使用 ENGLISH模块时的 $FORMAT_LINE_BREAK_CHARACTERS的意思。使用 ^符号栏位可产生不定长度的记录栏位。如果要列印的文字很短、你想压缩掉文字后的空白、请在想压缩掉的空白地方加上一个 "~"控制符号。如果重复使用两个 "~"符号、则该行会被重复列印、直到该栏位的所有文字列印完毕为止 (如你同时使用 "@"值域栏位的话、切记每次要输入不同的数值 )。列印格示标题的缺省处理方法、是将正使用的格式名称后加上 _TOP字样既可。其内容将会列印至每页的开头部份。请参考 perlfunc/write 函数例如：

 # a report on the /etc/passwd file
 format STDOUT_TOP =
                         Passwd File
 Name                Login    Office   Uid   Gid Home
 ------------------------------------------------------------------
 .
 format STDOUT =
 @<<<<<<<<<<<<<<<<<< @⎪⎪⎪⎪⎪⎪⎪ @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<<<
 $name,              $login,  $office,$uid,$gid, $home
 .

 # a report from a bug report form
 format STDOUT_TOP =
                         Bug Reports
 @<<<<<<<<<<<<<<<<<<<<<<<     @⎪⎪⎪         @>>>>>>>>>>>>>>>>>>>>>>>
 $system,                      $%,         $date
 ------------------------------------------------------------------
 .
 format STDOUT =
 Subject: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
          $subject
 Index: @<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        $index,                       $description
 Priority: @<<<<<<<<<< Date: @<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
           $priority,        $date,   $description
 From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       $from,                         $description
 Assigned to: @<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
              $programmer,            $description
 ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                      $description
 ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                      $description
 ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                      $description
 ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                      $description
 ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<...
                                      $description
 .我 们 也 有 可 能 在 同 一 个 输 出 管 道 同 时 使 用

print 与 write函数。但使用时、必须修改 $-的特殊内置变量值 (使用 English模块的话、则是使用 $FORMAT_LINES-LEFT变量 )。

Format Variables 格式变量 当前的格式名称一向都是存放于 $~这个特殊变量内 ($FORMAT_NAME)，而每页的开头格式则存放在 $^($FORMAT-TOP_NAME)，输出页为 $%($FORMAT_PAGE_NUMBER)，每页行数是 $= ($FORMAT_LINE_PER_PAGE)，自动输出格式是放在 $⎪($OUTPUT_AUTOFLUSH)、要输出到每页开头部份的字串存放在 $^L ($FORMAT-FORMFEED)。这些变量的有效范围，都是以某一个文件句柄为单元。因此、你必须调用 select()函数来调用适当的文件句柄来改变变量内容。

    select((select(OUTF),
            $~ = "My_Other_Format",
            $^ = "My_Top_Format"
           )[0]);难 看 吧 ！ 这 就 是 一 般 用 法 。 如 此 一 来 、 你 至 少 可 用 临 是 变 量 来 存 放 前 一 个 文 件 句柄 。 事 实 上 、 这 已 是 较 好 的 作 法 ， 除 了 可 读 性 提 高 外 、 也 提 供 你 一 个 位 置 暂 停 程式 的 执 行 ， 方 变 你 一 次 到 位 除 错 。

    $ofh = select(OUTF);
    $~ = "My_Other_Format";
    $^ = "My_Top_Format";
    select($ofh);如 果 你 使 用

English模块，你甚至可以输入英文变量名称

    use English ’-no_match_vars’;
    $ofh = select(OUTF);
    $FORMAT_NAME     = "My_Other_Format";
    $FORMAT_TOP_NAME = "My_Top_Format";
    select($ofh);但 你 还 是 要 调 用

select()函数。因此我们建议你用 FileHandle模块。现在你可用小写英文字母的格式名称来处理这些特殊变量。

    use FileHandle;
    format_name     OUTF "My_Other_Format";
    format_top_name OUTF "My_Top_Format";好 多 了 吧 ！

NOTES

因为数值行的内容可能保括任何的表示法 (我们指的是 @ 栏位而非 ^ 栏位 )。因此你可使用其它函数、建立更加复杂的处理方法。好像使用 printf 函数、或自己定义的函数。列如：

    format Ident =
        @<<<<<<<<<<<<<<<
        &commify($n)
    .在 栏 位 输 入 真 正 的

@ 或 ^符号：

    format Ident =
    I have an @ here.
            "@"
    .将 整 行 字 置 中 对 齐 ：

    format Ident =
    @⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪⎪
            "Some text line"
    .我 们 并 无 任 何 内 建 的 方 法 让 你 指 定 如 、 某 个 栏 位 要 对 齐 该 页 面 最 右 等 诸 如 此 类 事项 。 但 你 仍 然 能 列 印 出 你 想 要 的 格 式 。 跟 据 目 前 页 面 直 行 数 目 ， 调 用

eval()函数来处理它：

    $format  = "format STDOUT = \n"
             . ’^’ . ’<’ x $cols . "\n"
             . ’$entry’ . "\n"
             . "\t^" . "<" x ($cols-8) . "~~\n"
             . ’$entry’ . "\n"
             . ".\n";
    print $format if $Debugging;
    eval $format;
    die $@ if $@;它 可 能 列 印 出 下 列 格 式 外 貌 ：

 format STDOUT =
 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $entry
         ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
 $entry
 .下 面 是 一 个 有 点 类 似

fmt(1)的小程式：

 format =
 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
 $_
 .

 $/ = ’’;
 while (<>) {
     s/\s*\n\s*/ /g;
     write;}

Footers 页脚 虽然我们有 $FORMAT_TOP_NAME来记录每页开头部份的格式，却没有一个相对应的方法来自动指定每页的底部格式。问题是、我们并不知到某个格式资料可能会多大，除非你真的去执行它。这是我们将来要处理的重点之一。这是一个暂时的应用方案如果你有一个固定大小的页脚、你可在每次调用 write函数前检查变量 $FORMAT_LINES_LEFT，然后自行印出该资料。还有一个方法，就是开启一个管道。调用 open(MYSELF,”⎪-”) (参考 perlfunc/open() 函数 )。并调用 write函数把资料输往 MYSELF、而不是标准输出 STDOUT。然后利用子串列的标准输入、来重新处理每页开头或结尾所要附加的资料部份。这虽不方便，但还是可办到的。

Accessing Formatting Internals 格式处理的核心 至于低阶格式的机制，你可调用 formlin()函数直接处理 $^A变量 ($ACCUMUNATOR)。例如：

    $str = formline <<’END’, 1,2,3;
    @<<<  @⎪⎪⎪  @>>>
    END

    print "Wow, I just stored ’$^A’ in the accumulator!\n";或 是 设 计 一 个 子 程 式

swrite()。它对于 write 的脚色相当于 sprint 对于 print。

    use Carp;
    sub swrite {
        croak "usage: swrite PICTURE ARGS" unless @_;
        my $format = shift;
        $^A = "";
        formline($format,@_);
        return $^A;}


    $string = swrite(<<’END’, 1, 2, 3);
 Check me out
 @<<<  @⎪⎪⎪  @>>>
 END
    print $string;

WARNINGS 警告

不当处理显示结束格示内容的点操作符号、有时也会同时影响你的网络的电邮功能 (跟据过往经验、错误是必然而不能避免 )。如果使用电邮输出格式内容、你应先处理好结束格式点操作符位置。切勿放置于左边界、以免被 SMTP截去。局部变量 (引用 ”my”定义变量 )、在调用格式化输出时不会被察觉。除非在使用局部变量的串程内另行定义 (5.001版本前并没有局部变量一词 )。格式输出是 perl 语言里维一受制于编程使用地区的部分。如果当前的使用地区使用 LC_NUMERIC，那小数点符号的格式化输出必以当地方式显示。 perl 不会理会当地的所须格式，除非你调用了 use locale。但格式列印又不受控于 use locale。因为 locale 它只在使用的块内有效。同时跟据历史原因、格式的作用域不仅包括在块内。进一步详情参阅 perllocale 本地化文档。格式输出时、程式串内的空白符号 0,相当于一个空白单元。所以你可以想像格式列印相当于先处理变量：

$value =~ tr/\n\t\f/ /; 将强制性另印新行。除非图案行已定义、馀下的空白符号

Manpages

NAME

DESCRIPTION 描述

NOTES

WARNINGS 警告

中文版维护人

中文版最新更新

中文手册页翻译计划