$a = $a ? $a : "default_value";
[download]

$a ||= "default_value";
[download]

$a = defined $a ? $a : "default_value";
[download]

$a //= "default_value";
[download]

but its available right now as a patch => defined or: // and //=

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.

Note that you have a two different issues here: has a scalar (either a stand-alone scalar, or a value in an array or hash) has ever been assigned to; or, for hashes in particular, whether a key/value pair has ever been created.

Perl has two keywords that answer these questions: defined and exists, respectively. If you actually want to assign or create those values, a good idiom is to use unless:

$a = "default" unless defined $a;
$h{key} = "value" unless exists $h{key};
[download]

If you know that valid values do not include the values that perl considers false (undef, empty string, and 0), you can generally just test the value directly. As an added amusement, you can use the ||= operator to "assign unless true":

$a = "default" unless $a;
$h{key} ||= "value";
[download]

Finally, if you want to extract a value or a default without modifying the original, the tinary arithmetic conditional operator is a nice fit:

my $a_val = defined $a ? $a : "default";
my $h_key_val = exists $h{key} ? $h{key} : "value";
[download]

Again, if you know the values are never "false" in the perl sense, you can dispense with the specific tests and use the || operator:

my $a_val     = $a || "default";
my $h_key_val = $h{key} || "value";
[download]

Finally, there is a useful idiom for assigning default values into hashes, overriding only keys that are explicitly mentioned. This takes advantage of the fact that, when assigning into a hash from a list, later key/value pairs overwrite the same key seen earlier:

sub do_stuff
{
    # get args from the call
    my ( %raw_args ) = @_;

    # build up hash of default arg values
    my %default_args = ( foo => 'bar', baz => 'quux' );

    # now join the two, giving precedence to %raw_args
    my %args = ( %default_args, %raw_args );
}
[download]

Is this what you meant? Taken literally, $a has a defined value, and the tertiary operator is unnecessary, so I presume you are looking for a default value kind of operation.

$a = 'text';
$b = $a || '';
[download]

$a = 0;
$a = $a || "1024";
if ($a == 1024) {
print "ack $a =  1024 rm -rf ~\n";
}
[download]

whoops.


-Waswas

so i could save typing for the repeat of the var when the names are long