Loose-Info.com
Last Update 2008/05/18
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