StructureOfParameters の履歴(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• 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)

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'
         },
         {
           'Value' => '+2.50',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'LA139-2:XbyFe'
         },
         {
           'Value' => '+2.27',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'CE140-2:XbyFe'
         },
         {
           'Value' => '+2.45',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'PR141-2:XbyFe'
         },
         {
           'Value' => '+2.22',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'ND142-2:XbyFe'
         },
         {
           'Value' => '+2.20',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'SM152-2:XbyFe'
         },
         {
           'Value' => '+1.97',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'EU153-2:XbyFe'
         },
         {
           'Value' => '+2.31',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'GD158-2:XbyFe'
         },
         {
           'Value' => '+1.98',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'DY164-2:XbyFe'
         },
         {
           'Value' => '+2.04',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'ER166-2:XbyFe'
         },
         {
           'Value' => '+1.96',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'TM169-2:XbyFe'
         },
         {
           'Value' => '+2.76',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'HF180-2:XbyFe'
         },
         {
           'Value' => '+2.65',
           'Entry' => 'A0001',
           'mDelta' => undef,
           'ErrFlag' => undef,
           'Nline' => undef,
           'Source' => undef,
           'pDelta' => undef,
           'Object' => 'LP625-44',
           'Quantity' => 'PB208-1:XbyFe'
         }
       ];