Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
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 studying the Monastery: (4)
As of 2014-08-31 09:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls