Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E '
    my %x = ( a => { b => { d => 4, e => 5 }, c => 3 } );
...
    say $y if defined $y;
' a/b/e
5
  2. or download this
    $ perl -Mstrict -Mwarnings -E '
    my %x = ( a => { b => { d => 4, e => 5 }, c => 3 } );
...
    say $y if defined $y;
' a/c/e
3
  3. or download this
    $ perl -Mstrict -Mwarnings -E '
    my %x = ( a => { b => { d => 4, e => 5 }, c => 3 } );
...
    }
    say $y if defined $y;
' a/d/e