Help for this page

Select Code to Download


  1. or download this
    my $home = $ENV{HOME}
        || $ENV{LOGDIR}
        || (getpwuid($<)[7]
        || die "You're homeless!\n";
  2. or download this
    @a = @b || @c;            # This doesn't do the right thing
@a = scalar(@b) || @c;    # because it really means this.
@a = @b ? @b : @c;        # This works fine though.