Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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?
[LanX]: the bets are rather who will leave office first Trump or May
[erix]: Harakiri with a nuke on the white house, that'd clean up the staff there a bit too ;)
[erix]: (sorry, I'm always a bit violent on fridays)
LanX predicts problems for Erix next time he lines up at an US immigration counter
[erix]: but tuesdays just as bad

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (11)
As of 2017-08-18 13:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Who is your favorite scientist and why?



























    Results (302 votes). Check out past polls.

    Notices?