Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 特殊変数 - $-

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

(例)
$= = 10; # 1ページあたりの行数を10行に変更 # ***** 見出し行 ***** format STDOUT_TOP = Page No. Line No. Lines Left . for ($i=1; $i<19; $i++) { # ***** データ行 → ページ番号と行番号を並べて出力 ***** format STDOUT = @<<<<<<<<< @<<<<<<<<< @<<<<<<<<<< $%, $i, $- . write; }

実行結果
Page No. Line No. Lines Left 0 1 0 1 2 8 1 3 7 1 4 6 1 5 5 1 6 4 1 7 3 1 8 2 1 9 1 Page No. Line No. Lines Left 1 10 0 2 11 8 2 12 7 2 13 6 2 14 5 2 15 4 2 16 3 2 17 2 2 18 1