Help for this page

Select Code to Download


  1. or download this
    my $matched=0;
    
    ...
                        print $emp->{'Name'} . "\n";
                        $matched++;}
                    $index++;}}}}
    
  2. or download this
    my $matched=0;
    my $index=0;
    ...
                        --$index;
                        last DN;}}}}
    $index++;}
    
  3. or download this
    %hash= (
        $email => {
            name => 'joe'
            id = > '123' })
    
  4. or download this
    foreach my $email (@array){
        print $email->{'name'};  #ok 
        print $email;}        #error hash refs