Help for this page

Select Code to Download


  1. or download this
       @tag = split ' ', $line, 2;
   $field{ $tag[0] } = $tag[1];
  2. or download this
       $bill{ $field{ACCOUNT} } = $field{BILLAMOUNT}  if %field;
   %field = ();
  3. or download this
      $bill{ $field{ACCOUNT} } = { %field }  if %field;
  %field = ();