#contents *Csv2Hash.pm [#r5a653b4] **sub _trans_abundance [#d8f94718] *** %elm [#j79ac4de] $VAR1 = { 'LP625-44' => { 'Fe I' => { 'Nline' => '34', 'log-e' => '4.78+-0.13', 'XbyH' => '-2.71+-0.13' }, 'Zr II' => { 'Nline' => '4', 'log-e' => '1.22+-0.12', 'XbyFe' => '+1.31+-0.12' }, } }; *** %ans [#lf6a7a71] $VAR1 = { 'LP625-44' => { 'Abn_Col' => [ 'Element', 'log-e', 'Nline', 'XbyFe', 'XbyH' ], 'Element' => 'Sr II 1.37+-0.16 3 +1.15+-0.16 NULL Y II 0.45+-0.12 2 +0.92+-0.12 NULL Zr II 1.22+-0.12 4 +1.31+-0.12 NULL Ba II 2.26+-0.20 3 +2.74+-0.20 NULL La II 1.02+-0.13 5 +2.50+-0.13 NULL Ce II 1.20+-0.12 26 +2.27+-0.12 NULL Pr II 0.55+-0.12 5 +2.45+-0.12 NULL Nd II 1.00+-0.12 16 +2.22+-0.12 NULL Sm II 0.48+-0.12 16 +2.20+-0.12 NULL Eu II -0.2+-0.20 2 +1.97+-0.20 NULL Gd II 0.70+-0.13 6 +2.31+-0.13 NULL Dy II 0.1+-0.2 4 +1.98+-0.2 NULL Er II 0.3+-0.2 2 +2.04+-0.2 NULL Tm II -0.6+-0.2 1 +1.96+-0.2 NULL Hf II 0.8+-0.2 2 +2.76+-0.2 NULL Pb I 2.0+-0.2 1 +2.65+-0.2 NULL Fe II 4.79+-0.18 3 NULL -2.70+-0.18 ' } }; *Table2Csv.pm [#k873b00e] **sub Write_Csv [#ra0483b4] *** @table_data [#eb2b2363] $VAR1 = [ { 'Object' => 'LP625-44', 'Element' => 'SrII', 'XbyFe' => '0.16' }, { 'Object' => 'LP625-44', 'Element' => 'YII', 'XbyFe' => '0.12' }, { 'Object' => 'LP625-44', 'Element' => 'ZrII', 'XbyFe' => '0.12' }, { 'Object' => 'LP625-44', 'Element' => 'BaII', 'XbyFe' => '0.20' }, *Trans_FIeld.pl [#x8e42c22] **sub Trans_Field() [#wc748cc4] *** @fields2d; [#la000829] テキストエリアの1行がリストの1要素に対応。 各要素は各カラムを要素とするリストのハッシュ。 $VAR1 = [ [ 'LP625-44', 'SrII', '+1.15', '1.37', '3', '0.16' ], [ 'LP625-44', 'YII', '+0.92', '0.45', '2', '0.12' ], [ 'LP625-44', 'ZrII', '+1.31', '1.22', '4', '0.12' ],... *Write_File の @data の構造 [#v66cc9d0] $VAR1 = [ { 'Value' => '+1.15', 'Entry' => 'A0001', 'mDelta' => undef, 'ErrFlag' => undef, 'Nline' => undef, 'Object' => 'LP625-44', 'pDelta' => undef, 'Source' => undef, 'Quantity' => 'SR88-2:XbyFe' }, { 'Value' => '+0.92', 'Entry' => 'A0001', 'mDelta' => undef, 'ErrFlag' => undef, 'Nline' => undef, 'Source' => undef, 'pDelta' => undef, 'Object' => 'LP625-44', 'Quantity' => 'Y89-2:XbyFe' }, { 'Value' => '+1.31', 'Entry' => 'A0001', 'mDelta' => undef, 'ErrFlag' => undef, 'Nline' => undef, 'Source' => undef, 'pDelta' => undef, 'Object' => 'LP625-44', 'Quantity' => 'ZR90-2:XbyFe' }, { 'Value' => '+2.74', 'Entry' => 'A0001', 'mDelta' => undef, 'ErrFlag' => undef, 'Nline' => undef, 'Source' => undef, 'pDelta' => undef, 'Object' => 'LP625-44', 'Quantity' => 'BA138-2:XbyFe' },