CSVとかTAB区切りファイルとかから、アレイハッシュを作るチップ - Lazy Programmer :-p一行目がキーで、それ以降がデータのファイルを想定！ このコードがかっこいい。id:hideden に教えてもらった。 Thanks! @row{ @fields } = split("\t" , $line ); サンプル use strict; use warnings; use Data::Dumper; my $tab = "\t"; my $DATA =<<__TAB__; id${tab}message${tab}status 1${tab}test1${tab}disable 2${tab}test2${tab}enable 3${tab}test3${tab}disable __TAB__ my $is_first_line = 1; my @fields = (); my @data = split("\n" , $DATA ); my @nice_format_data
