ingen værdi i HASH
Jeg poster et XML sheet ind i mit CGI scriptog benytter XML::Simple der putter alle tags i en HASH tabel.
Nu vil jeg gerne verificere de enkelte data i hver tag (values i HASH), det er ok, men hvis et tag er tomt i XML,
får jeg bare en HASH reference og ikke blank.
Hvordan kan jeg simpelt verificere om der er en værdi(value) i en given tag, specielt hvis den er blank ??
Hvis den har en værdi kan jeg simpelt benytte værdien, men hvis blank er det en 15 tegns reference. !!
[code start]
use CGI qw(:standard);
print header();
my $query = new CGI;
my $xml = $query->param('xml');
use XML::Simple;
my $config = XMLin($xml);
use Data::Dumper; # for test
print Dumper($config);
# følgende virker ikke !!
print "Value er defineret1" if defined ($hash->{tag};
print "Value er defineret2" if exists ($hash->{tag};
print "Value er defineret3" if ($hash->{tag};
[code slut]
Mvh, Brian Birkedal