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

[studio-m]

配列のデータをまとめてハッシュに。あわせて読みたい→http://d.hatena.ne.jp/fbis/20080124/1201156328

[kits]

ハッシュスライスを左辺値にとって値のリストを一度で代入

[fbis]

fieldsはループで解析するより始めにshift @dataしてやるのがいいかと思った。