Re^4: Data::Dumper is returning empty

Sorry, I used a 5.10 construct. Change

map $_ // '[undef]'
[download]

map defined($_) ? $_ : '[undef]'
[download]

Update:

Concerning the code you posted, you introduced numerous errors:

You're assigning a list of nicdata to a hash.
Your hash is named nicdata, but it does contains the data about multiple nics.
You use @nicdata without ever placing any information in it.
Your array is named nicdata, but it's suppose to contain the data about multiple nics.
You use %nic without ever placing any information in ti.
You pass $platform as an argument as though it can change.

for my $nic (networkInfo()) {
    print "Device: $nic->{device} has IP Address $nic->{ip}\n" .
        "\tMask: $nic->{mask}\n" .
        "\tBroadcast: $nic->{bcast}\n";
    print "Device: $nic->{device} also IPv6 address $nic->{ip6}\n"
        if defined($nic->{device});
}
[download]

Comment on Re^4: Data::Dumper is returning empty Select or Download Code

Replies are listed 'Best First'.
Re^5: Data::Dumper is returning empty by MikeDexter (Sexton) on Jan 19, 2010 at 19:47 UTC
Using the following code gives a different error about scoping Global symbol "%nic" requires explicit package name `for my $nic (networkInfo()) { print "Device: $nic{device} has IP Address $nic{ip}\n" . "\tMask: $nic{mask}\n" . "\tBroadcast: $nic{bcast}\n"; print "Device: $nic{device} also IPv6 address $nic{ip6}\n" if defined($nic->{device}); }` [download]	[reply] [d/l]
Re^6: Data::Dumper is returning empty by ikegami (Patriarch) on Jan 19, 2010 at 19:49 UTC
Copy and paste error on my part. The hash is accessed via the ref in $nic, so $nic needs to be derefed. Fixed in grandparent.	[reply]
Re^7: Data::Dumper is returning empty by MikeDexter (Sexton) on Jan 19, 2010 at 19:53 UTC
what does fixed in grandparent mean?	[reply]
Re^8: Data::Dumper is returning empty by ikegami (Patriarch) on Jan 19, 2010 at 20:21 UTC
Re^9: Data::Dumper is returning empty by MikeDexter (Sexton) on Jan 19, 2010 at 20:32 UTC
Some notes below your chosen depth have not been shown here
Re^5: Data::Dumper is returning empty by MikeDexter (Sexton) on Jan 19, 2010 at 19:38 UTC
Much closer. I had to add a comma to end of that line. Now when it runs I get use of uninitialized value in pattern match (m//) lline 55 and 127 error. Are you sure you would like to delete all *.bak files that exist in: /emc/cccadm/scripts/perl/etc-test yes/no yes No files were found >>> Oper Sys: linux >>> Platform: RedHat >>> Hostname: ccasec1.centera.lab.emc.com Use of uninitialized value in pattern match (m//) at ./sec-test.pl line 55 (#1) (W uninitialized) An undefined value was used as if it were already defined. It was interpreted as a "" or a 0, but maybe it was a mistake. To suppress this warning assign a defined value to your variables. To help you figure out what was undefined, perl tells you what operation you used the undefined value in. Note, however, that perl optimizes your program and the operation displayed in the warning may not necessarily appear literally in your program. For example, "that $foo" is usually optimized into "that " . $foo, and the warning will refer to the concatenation (.) operator, even though there is no . in your program. Use of uninitialized value in pattern match (m//) at ./sec-test.pl line 127 (#1)	[reply]
Re^6: Data::Dumper is returning empty by ikegami (Patriarch) on Jan 19, 2010 at 19:46 UTC
The posted code doesn't have nearly that many lines.	[reply]
Re^7: Data::Dumper is returning empty by MikeDexter (Sexton) on Jan 19, 2010 at 19:51 UTC
I posted only section because the script is getting long now<\p> line 51 `if ($opsys_in =~ /linux/) {` and line 123 `if ($platform =~ /RedHat/) {` If you want the entire script should I put it here?	[reply] [d/l] [select]
Re^8: Data::Dumper is returning empty by ikegami (Patriarch) on Jan 19, 2010 at 19:53 UTC
Re^9: Data::Dumper is returning empty by MikeDexter (Sexton) on Jan 19, 2010 at 19:55 UTC
Re^9: Data::Dumper is returning empty by MikeDexter (Sexton) on Jan 19, 2010 at 20:03 UTC