Re: If statement not working

if ($_ = (m/^[\$]\w/)) {
[download]

Solution pointed out below. This is an assignment (using =) clobbering $_ with ~~an empty array~~ the true/false result. An assignment of an undefined thing evaluates to false every time. Similar to if ($_ = ()) or if ($_ = undef).

Update - because I was curious:

perl -MO=Deparse,-P -e 'if($_ = (m/foo/)) { print 'hi' }'
if ($_ = /foo/) {
    print hi $_;
}
-e syntax OK
[download]

A little more insight.

update 2- corrected ty

Comment on Re: If statement not working Select or Download Code

Replies are listed 'Best First'.
Re^2: If statement not working by AnomalousMonk (Archbishop) on Jun 25, 2020 at 18:44 UTC
This is an assignment (using =) clobbering `$_` with an empty array. An assignment of an undefined ... Similar to `if ($_ = ())` or `if ($_ = undef)`. `$_` is clobbered with the true/false result of evaluating the match of the regex against `$_`: c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -e "print 'Enter a string and I will determine the data type: '; chomp($_ = <STDIN>); dd 'A:', $_; ;; if ($_ = (m/^[\$]\w/)) { print qq{\n'$_' is a scalar data type\n}; } dd 'B:', $_; ;; if ($_ = (m/^[\@]\w/)) { print qq{\n'$_' is an array data type\n}; } dd 'C:', $_; " Enter a string and I will determine the data type: $scalar ("A:", "\$scalar") '1' is a scalar data type ("B:", 1) ("C:", "") c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -e "print 'Enter a string and I will determine the data type: '; chomp($_ = <STDIN>); dd 'A:', $_; ;; if ($_ = (m/^[\$]\w/)) { print qq{\n'$_' is a scalar data type\n}; } dd 'B:', $_; ;; if ($_ = (m/^[\@]\w/)) { print qq{\n'$_' is an array data type\n}; } dd 'C:', $_; " Enter a string and I will determine the data type: @ra ("A:", "\@ra") ("B:", "") ("C:", "") [download] Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^3: If statement not working by perlfan (Vicar) on Jun 25, 2020 at 19:59 UTC
ty fixed	[reply]


Think about Loose Coupling
	PerlMonks