Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

fidesachates's scratchpad

by fidesachates (Monk)
on Jan 06, 2011 at 15:55 UTC ( #880841=scratchpad: print w/ replies, xml ) Need Help??

sub checkfiles() { my ($folder,$localfolder,$filesref) = shift; foreach my $file (@$filesref) { chomp($file); if(-f $file) { my @output = `diff $folder/$file $localfolder/ +$file`; my $size = scalar @output; if($size > 0) { print $file."\n"; } } elsif(-d $file) { my $innerfolder = $folder."/".$file; my $innerlocalfolder = $localfolder."/".$file; my @innerfiles = `ls -1 $innerfolder`; checkfiles($innerfolder, $innerlocalfolder, \@ +innerfiles); } } }
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2014-12-29 12:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (187 votes), past polls