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


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