Re^3: asterisk use

In the subroutine named "wanted" that find2perl creates there is usage of the "&&" operator. If I understand it correctly, it's evaluating each expression, and if they evaluate to "true" it prints $name. Is the last "&&" necessary? There are no expressions after it; just goes to the print statement.

sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -d _ &&
    print("$name\n");
    
}
[download]

Comment on Re^3: asterisk use Download Code

Replies are listed 'Best First'.
Re^4: asterisk use by Hofmator (Curate) on Jan 11, 2007 at 14:38 UTC
`$foo && $bar && print "something";` is equivalent to `print "something" if $foo && $bar;`. The last `&&` is necessary in your code because only that makes the whole thing one expression. -- Hofmator Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: asterisk use
by Hofmator (Curate) on Jan 11, 2007 at 14:38 UTC

$foo && $bar && print "something";

print "something" if $foo && $bar;

&&

-- Hofmator

Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

[reply]
[d/l]
[select]