
No such thing as a small change
	PerlMonks

conditional statement works one way, but not the other (Updated)

by igoryonya (Pilgrim)

on May 15, 2014 at 08:37 UTC ( [id://1086115]=perlquestion: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

if(@files && ! scalar keys %tree){$isChanged = 1;}
    else{foreach my $file (@files){$isChanged = 1 && last if( grep { $
+files_cached{'stats'}{$file}{$_} != $params->{'files'}{'stats'}{$file
+}{$_} } ('mtime', 'ctime', 'size') );}}

Select or download this

(@files && ! scalar keys %tree)?
    ($isChanged = 1):
    (foreach my $file (@files){$isChanged = 1 && last if( grep { $file
+s_cached{'stats'}{$file}{$_} != $params->{'files'}{'stats'}{$file}{$_
+} } ('mtime', 'ctime', 'size') )});

Select or download this

if(@files && ! scalar keys %tree){
    $isChanged = 1;
...
        $isChanged = 1 && last if( grep { $files_cached{'stats'}{$file
+}{$_} != $params->{'files'}{'stats'}{$file}{$_} } ('mtime', 'ctime', 
+'size') );
    }
}

Select or download this

(@files && ! scalar keys %tree)?
    ($isChanged = 1):
    (map { my $file = $_; if( grep { $files_cached{'stats'}{$file}{$_}
+ != $params->{'files'}{'stats'}{$file}{$_} } ('mtime', 'ctime', 'size
+') ){$isChanged = 1; last;} } @files);

Select or download this

(@files && ! scalar keys %tree)?
    ($isChanged = 1):
    (map { my $file = $_; $isChanged = 1 if( grep { $files_cached{'sta
+ts'}{$file}{$_} != $params->{'files'}{'stats'}{$file}{$_} } ('mtime',
+ 'ctime', 'size') ) } @files);

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: perlquestion [id://1086115]
Approved by marto
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having an uproarious good time at the Monastery: (3)

As of 2024-04-26 08:19 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found