Perlゼミ

__DATA__ - データセクション

__DATA__より下に書かれたものは、データセクションと呼ばれます。データセクションを利用すると入力ファイルの内容を、プログラムの中に記述することができます。

# プログラム

__DATA__
kimoto,39
tanaka,29

DATAファイルハンドル

データセクションに記述された内容は、DATAという特殊なファイルハンドルを使って読み込むことができます。

while (my $line = <DATA>) {
  print "$line";
}

__DATA__
kimoto,39
tanaka,29

while文を使って、データセクションに記述された内容を1行づつ、取得しています。

編集したいテキストデータを、データセクションにコピーアンドペーストして、DATAファイルハンドルで読み込んで編集すれば、作業が楽です。

__DATA__とDATAファイルハンドルのサンプル

__DATA__とDATAファイルハンドルのサンプルのサンプルです。

use strict;
use warnings;

# カンマをタブに変更
while (my $line = <DATA>) {
  chomp $line;
  my @items = split(/,/, $line);
  
  print join("\t", @items) . "\n";
}

__DATA__
kimoto,39
tanaka,29