in reply to Odd number of elements in hash assignment
Okay, I don't know what you are trying to do, but this may get you closer:
#!/usr//bin/perl use strict; use Data::Dumper; my %Config =( PPingPath => '/home/dean/pping-v1.37/pping ', PPingOptions => '-t 15 -q |', TraceRTPath => '/usr/sbin/traceroute', TRHops => '-m 3 | ', ExternalTarget => q('www.microsoft.com -p 80', 'www.ne +tscape.com -p 80', 'www.silverhand.co.uk -p 80', 'www.demon.net -p 80','www.whitehouse.org -p 80'), Hosts => q('www.netscape.come -p 80', 'www.microsoft.c +om -p 80') ); my @keys = (keys %Config); my @values = (values %Config); my $Dumperl1 = Data::Dumper->new( \@values, \@keys ); print $Dumperl1->Dump(); exit;
Explanation:
Data::Dumper->new takes an array reference (or two) as arguments, not a hash. I suppose it would work like this:
my $Dumperl1 = Data::Dumper->new(\(keys %Config), \(values %Config));
UPDATE:
The above full program yields:
$Hosts = '\'www.netscape.come -p 80\', \'www.microsoft.com -p 80\''; $ExternalTarget = '\'www.microsoft.com -p 80\', \'www.netscape.com -p +80\', \'www.silverhand.co.uk -p 80\', \'www.demon.net -p 80\',\'www.w +hitehouse.org -p 80\''; $TraceRTPath = '/usr/sbin/traceroute'; $PPingOptions = '-t 15 -q |'; $TRHops = '-m 3 | '; $PPingPath = '/home/dean/pping-v1.37/pping ';
J. J. Horner Linux, Perl, Apache, Stronghold, Unix jhorner@knoxlug.org http://www.knoxlug.org/
|
|---|