Re: check undef

If you have to do these checks again and again, you can think of creating a dedicated sub routine for that.

sub all_defined {
    for my $i ( @_ ) {
        #return 0 if !defined $i;
        return if !defined $i;
    }
    return 1;
}

if ( all_defined( $WCkey, $SCkey, $Pkey, $Wkey, $Ukey ) ) {
    print "bla bla";
}
[download]

Update: modified code; thanks davorg

Comment on Re: check undef Download Code

Replies are listed 'Best First'.
Re^2: check undef by davorg (Chancellor) on Jun 23, 2009 at 09:40 UTC
`return 0` has a potentially dangerous effect. It will evaluate as true if your subroutine is called in list context. Just a bare `return` is usually a better idea. -- See the Copyright notice on my home node. Perl training courses	[reply]
Re^3: check undef by ikegami (Patriarch) on Jun 23, 2009 at 12:16 UTC
Not better, different. Now it breaks under different circumstances.	[reply]

In Section Seekers of Perl Wisdom