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

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

(例)
# 1ページあたりの行数を10行に変更 $= = 10; # フォーマットの名前を変更 $~ = "TEST"; # ***** 見出し行 ***** format STDOUT_TOP = Page No. Line No. . for ($i=1; $i<19; $i++) { # ***** データ行 → ページ番号と行番号を並べて出力 ***** format TEST = @<<<<<<<<< @<<<<<<<<< $%, $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