TOP - Perl - 特殊変数 - $%

フォーマット出力時のセレクトされた出力チャンネルの現在のページ番号です。
ページ番号は実際の出力が行われた後からカウントされるため、下の例では0から始まります。

(例)
# ***** 見出し行 *****
format STDOUT_TOP =
Page No.     Line No.
.

for ($i=1; $i<100; $i++)
{
# ***** データ行  →  ページ番号と行番号を並べて出力 *****
format STDOUT = 
@<<<<<<<<<   @<<<<<<<<<
$%,          $i
.

write;
}
実行結果
Page No.     Line No.
0            1
1            2
1            3
     .
     .
     .
1            57
1            58
1            59
Page No.     Line No.
1            60
2            61
2            62
     .
     .
     .
2            97
2            98
2            99


Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.