#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'
          },

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS