RESULTS: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;
$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' ] };
In reply to Re: I need to insert spaces and get the values for all the variables
by Jer2911
in thread I need to insert spaces and get the values for all the variables
by rahulruns
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |