TOP - Perl - 特殊変数 - $^

フォーマット出力時のセレクトされた出力チャンネルのヘッダ部分のフォーマットの名前です。

(例)
$= = 10;                                        # 1ページあたりの行数を10行に変更
$^ = "TEST_TOP";                                # ヘッダ部分のフォーマットの名前を変更


# ***** 見出し行 *****
format TEST_TOP =
Page No.     Line No.
.

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

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


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