#!/usr/bin/perl -w

　　###########################################################################

　　# Global definitions

　　###########################################################################

　　use Getopt::Long;

　　$rsync="/usr/local/bin/rsync";

　　$ssh="/usr/local/bin/ssh";

　　$rsync_cmd="$rsync -Rapzq --partial -e $ssh";

　　###########################################################################

　　# Check for help request. Display help page if --help/-h/-? was passed.

　　###########################################################################

　　sub help_page {

　　my $programname = $0;

　　$programname =~ s#^\./##;

　　print "$programname - .\n";

　　print "\nUsage: $programname <-d directory >\n";

　　exit 1;

　　}

　　sub GetParas

　　{

　　my ($argv);

　　

　　$argv = join(' ',@ARGV);

　　$argv = join(' ',@ARGV);

　　&help_page if ( $argv eq "" || $argv =~ m!-h! );

　　GetOptions("d:s");

　　if ($opt_d eq "")

　　{

　　&help_page;

　　exit(1);

　　}

　　return ($opt_d);

　　}

　　sub Env{

　　if ($> != 0)

　　{

　　print ("\nThe command need root permission!\n\n");

　　exit(1);

　　}

　　}

　　###########################################################################

　　#Main routine

　　###########################################################################

　　sub main

　　{

　　 my $help = grep(/^--help$/, @ARGV) || grep (/^-h$/, @ARGV) || grep (/^-\?$/, @ARGV) || 0;

　　 help_page() if $help;

　　 #check user uid

　　 &Env;

　　

　　 my $dirs=&GetParas;

　　#remove file from localhost

　　if (-e "$dirs/delfilelist")

　　{

　　foreach $removefile (`cat $dirs/delfilelist`)

　　{

　　chomp($removefile);

　　if (-e "$removefile")

　　{

　　print "---remove---$removefile\n";

　　system("$rsync_cmd \"$removefile\" $dirs/del/");

　　system("mv \"$removefile\" \"$dirs/del$removefile\" 2>/dev/null");

　　}

　　}

　　}

　　

　　 #copy newfile to localhost

　　 if (-e "$dirs/addfilelist")

　　 {

　　 foreach $filename (`cat $dirs/addfilelist`)

　　 {

　　 chomp($filename);

　　 chdir("$dirs/filedir");

　　 if(! $filename eq "")

　　 {

　　 print "---add---$filename\n";

　　 system("$rsync_cmd .$filename /");

　　 }

　　 }

　　 }

　　

　　

　　 #update localhost file

　　 if (-e "$dirs/updatefilelist")

　　 {

　　 foreach $updatefile (`cat $dirs/updatefilelist`)

　　 {

　　 chomp($updatefile);

　　 chdir("$dirs/filedir");

　　 if ( -e "$updatefile" )

　　 {

　　 print "---update---$updatefile\n";

　　 system("$rsync_cmd .$updatefile /");

　　 }

　　 }

　　 }

　　}

　　&main;
本文来自：http://www.linuxpk.com/6018.html