perl - スクリプトに埋め込まれたperl csvデータ

Question

ファイル生成に使用する perl スクリプトがあります。ルックアップ テーブルを埋め込み、ハッシュまたは配列に読み込みたいと考えています。

例：

__DATA__
a,0,0x0
p,0,0x8
s,0,0x6
pm,0,0x1fc0
pm,1,0x1f80
pm,2,0x1f00

CSV ファイルを読み取るために、既に Text::CSV を使用しています。データをハッシュに読み込むにはどうすればよいですか? 簡単にする場合は、ヘッダー行を追加できます。

Answer 1

特別なファイル ハンドルは、行DATAの直後のスクリプトを指します__DATA__。サブルーチンまたはメソッドのパラメーターとして使用する必要がある場合は、GLOB シジルを使用します。

subroutine(*DATA);