Help for this page

Select Code to Download


  1. or download this
    my $h1;
my $h2;
$h2->{'bar'} = 1;
$h1->{'foo'} = $h2;
  2. or download this
    void
mhash1(key1, h1)
...
    I32 klen1 = strlen(key1);
    if ( hv_exists(h1, key1, klen1) ) {
    }
  3. or download this
    void
mhash2(key1, h1, key2)
...
        printf("%s\n", "found it!");
      }
    }
  4. or download this
    #!/usr/bin/perl
use strict;
...
$h2->{'bar'} = 1;
$h1->{'foo'} = $h2;
MyTest::mhash2('foo', $h1, 'bar');