Sorry for another mail, but there are too many typos:
> Also untested:
>
> # If no conflict, value is hostname.
> # If conflict, value is arrayref with the two different IPs
> #
> my @res = map {
> ($actual{$_} eq $register{$_})
> ? $_
> : [$actual{$_}, $register{$_}]
>
> } sort keys %register;
>
> foreach my $e (@res) {
> if (ref($e)) {
This should read
unless (ref($e)) {
> print "$e is ok\n";
> }
> else {
> print "$e differs: actual @{[$e->[0]]} <-> register @{[$e->[1]]}\n";
> }
> }
>
> I think this should give you an idea.
> To look op any perl funktion, type:
up, function
>
> perldoc -f FUNCTIONNAME
>
> The man page for operaters:
operators
Nice day to all :-)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
