StructureOfParameters の履歴(No.3)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• StructureOfParameters へ行く。
  • 1 (2005-11-11(Fri) (金) 14:20:20)
  • 2 (2005-11-11(Fri) (金) 14:27:50)
  • 3 (2005-11-17(Thu) (木) 09:55:04)

Table2Csv.pm†

sub Write_Csv†

@table_data†

$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†

sub Trans_Field()†

@fields2d;†

テキストエリアの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 の構造†

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