Help for this page

Select Code to Download


  1. or download this
    my %hash = ();
    my $dummy = map( $hash{ $_ } = 1, @array );
    ...
    if ( defined( $hash{ $checkthis )) {
        ...
    }
    
  2. or download this
    my $found = ( $_ eq $checkthis ) && last for ( @array );
    
  3. or download this
    use strict;
    use warnings;
    ...
        else {
            die "Invalid parent reference";
        }