Help for this page

Select Code to Download


  1. or download this
    use Data::Diver qw/ Dive /;
##       if (defined $cg->{'mainsnak'}->{'datavalue'}->{'value'}->{'no
+texist'}) {}  ## THIS LINE
       if ( defined Dive( $cg, qw' mainsnak datavalue value notexist '
+ ) ) {
            
       }
  2. or download this
    $ perl -e "use Data::Diver qw/Dive/; $f{a}{b}{c}=666; print Dive(\%f, 
+qw/a b c Q/); print Dive(\%f, qw/a b c/); "
666