G'day muthm,

Take a look at ++hv's post from last week which discusses this issue. In particular, his "it acts something like a state variable" aligns with your "keeps its value from the previous call".

The solution he presents is the same as the response you've already received from ++LanX; namely, separate the declaration from the conditional assignment.

>

my $var = "<value>"
        if <condition>;
[download]

Yeah, that's a classic (and FAQ IIRC)

Short answer: my has also an runtime effect° to default the value to undef .

But that is bypassed here by the condition.

Do this instead:

 my $var; 
 $var = "<value>" if <condition>;
[download]

update

°) "undocumented implementation detail" may be more precise

See also

• perlsyn#Statement-Modifiers:

  NOTE: The behaviour of a my, state, or our modified with a statement modifier conditional or loop construct (for example, my $x if ...) is undefined. The value of the my variable may be undef, any previously assigned value, or possibly anything else. Don't rely on it. Future versions of perl might do something different from the version of perl you try it out on. Here be dragons.

Alternatively,

my $var = <condition> ? "<value>" : undef;
[download]

Your example has reinforced my long-held support for Use block if not postfix if (as recommended in Perl Best Practices).

Though a bit longer, I've always found block if to be clearer and easier to understand. The big win comes during code review whenever you want to add an extra statement to the if condition -- that's a simple one line change to a block if, compared to a more violent restructuring of the code from postfix if to block if.

See also the first principle from Re: Big cache (my top ten software development practices):

• Correctness, simplicity and clarity come first. Avoid unnecessary cleverness.

and my longer Coding Standards Links.

Your example has reinforced my long-held support for Use block if not postfix if

Having struggled to understand code that I wrote just a few years ago that used postfix if conditions, I concluded that if I can't understand it quickly, anyone else would have great difficulty simply because they didn't write it. So now I almost exclusively use conditional blocks.

The one major exception is where the condition modifies the condition variable:

my $input = <STDIN>;
$input = 10 if $input > 10;
[download]

or to add a default value

$input = 1 unless $input;
[download]

Bod, I suggest you consider dropping your "major exception" in favour of LanX's excellent advice. That is, I prefer LanX's:

$input //= 1;  # default if undefined
[download]

to your:

$input = 1 unless defined $input;
[download]

See also:

• Set default values with the defined-or operator (Effective Perler)
• How to set default values in Perl (perlmaven)
• Perl Best Practices (reserve postfix if for flow-of-control)

> or to add a default value

> $input = 1 unless $input;

Careful! Many things are false in Perl, like 0 or ""

You probably meant

$input = 1 unless defined $input;

Anyway, both are IMHO better written as

$input ||= 1;  # default if false
               # or 
$input //= 1;  # default if undefined
[download]

Cheers Rolf
_{(addicted to the 𐍀𐌴𐍂𐌻 Programming Language :)
Wikisyntax for the Monastery}