Re: I need to insert spaces and get the values for all the variables

You could load it up into a hash of array references:

use strict;
use warnings;
use Data::Dumper;

my %stuff_from_file;

open (IN, "<input.txt");

while (<IN>) {
    
   my @array = split (/(?<!=)"/, $_);  # Split each line by the " whic
+h is not preceeded by =
    
   foreach my $ele (@array) {
      $ele =~ s/"//;                      # Remove the other "
      my ($key, $val) = split ("=", $ele);
      push @{$stuff_from_file{$key}},$val;
   }
}

print Dumper \%stuff_from_file;

close IN;
[download]

RESULTS:

$VAR1 = {
          'ul' => [
                    '0',
                    '0',
                    '0.00',
                    '0.05'
                  ],
          'w' => [
                   '0',
                   '0',
                   '0',
                   '0',
                   '0.00',
                   '0.00',
                   '0.09',
                   '5.50'
                 ],
          'vgrq' => [
                      '0',
                      '0',
                      '0.00',
                      '58.91'
                    ],
          'r' => [
                   '0',
                   '0',
                   '0.00',
                   '0.00'
                 ],
          'rrqm' => [
                      '0',
                      '0',
                      '0.00',
                      '0.00'
                    ],
          'elped_me' => [
                          '0',
                          '0',
                          '1',
                          '1'
                        ],
          'devce' => [
                       'db',
                       'd',
                       'db',
                       'd'
                     ],
          'dvgqu' => [
                       '0',
                       '0',
                       '0.00',
                       '0.00'
                     ],
          'wrqm' => [
                      '0',
                      '0',
                      '0.00',
                      '35.00'
                    ],
          'rmb' => [
                     '0',
                     '0',
                     '0.00',
                     '0.00'
                   ],
          'vcm' => [
                     '0',
                     '0',
                     '0.00',
                     '0.09'
                   ],
          'wmb' => [
                     '0',
                     '0',
                     '0.00',
                     '324.00'
                   ]
        };
[download]

Comment on Re: I need to insert spaces and get the values for all the variables Select or Download Code

Replies are listed 'Best First'.
Re^2: I need to insert spaces and get the values for all the variables by rahulruns (Scribe) on Sep 10, 2013 at 05:01 UTC
Thank You Jer2911. I am now able to extract the data in a better way and the information you have provided helped me to build a hash	[reply]
Re^3: I need to insert spaces and get the values for all the variables by Jer2911 (Acolyte) on Sep 10, 2013 at 13:02 UTC
Great! Happy coding!	[reply]