Perl文件同步实例——写得比较清楚，自己看吧

#!/usr/bin/perl use warnings; use File::Copy; no warnings 'recursion'; ###########################################Main Rountine Begin################################################# #promote enter configure if(@ARGV == 0){ die "Enter configure file path,please :)/n"; } #read input from parameters my %cfg=readConfig($ARGV[0]); #input if(! exists $cfg{NFS_Point}){ die "NFS_Point does not exist in the configure file!/n"; } my $nfsPnt=$cfg{NFS_Point}; if(! exists $cfg{Backup_Dir}){ die "Backup_Dir does not exist in the configure file!/n"; } my $des=$cfg{Backup_Dir}; if(! exists $cfg{Local_Point}){ die "Local_Point does not exist in the configure file!/n"; } my $localMnt=$cfg{Local_Point}; if(! exists $cfg{Log_Dir}){ die "Log_Dir does not exist in the configure file!/n"; } my $logDir=$cfg{Log_Dir}; if(! exists $cfg{Manager_Email}){ die "Manager_Email does not exist in the configure file!/n"; } my $mgrMail=$cfg{Manager_Email}; if(! exists $cfg{CC_Email_List}){ die "CC_Email_List does not exist in the configure file!/n"; } my $ccList=$cfg{CC_Email_List}; #prepare #preare for logging if(! -e $logDir){ mkdir($logDir,0755); } $logFile=$logDir."/Syn_".nowString().".log"; open(my $logFH,">>$logFile");#open log file if(! -e $localMnt){ mkdir($localMnt,0755); } if(system("mount -t nfs -o ro $nfsPnt $localMnt")!=0){ #mount failed die("make sure NFS $nfsPnt or $localMnt exist!"); } #log beginning print $logFH "Synchronization from $nfsPnt to $des begin.../n";#log beginning #synchronizating copyAllFiles($localMnt,$des); markExtra($localMnt,$des); #release system("umount $localMnt")==0 || die("umount $localMnt failed");#unmount rmdir($localMnt);#delete local mount point #logging ending print $logFH "Syschronization from $nfsPnt to $des done!/n"; close $logFH;#close log file handle #send files to manager my $subject="Report for FTP backup on ".nowStringTitle(); system("mail -s /"$subject/" /"$mgrMail/" -c /"$ccList/" < $logFile"); exit 0; ###########################################Main Rountine End################################################# #Copy files from source to destination diretory accroding to mtime sub copyAllFiles{ #$_[0] is src #$_[1] is des opendir(my $srcDH,$_[0]) || die "cannot open $_[0]"; #open source directory if(! -e $_[1]){ mkdir($_[1],0755); #log here**************************** print $logFH "Make Dir: $_[1]/n"; } opendir(my $desDH,$_[1]) || die "cannot open $_[1]"; #open destination directory #travel and copy all modified or new-created files from source to destionation directory. #It should keep the relative location of the files in the destination directory same with the ones in the source directory. while(my $node=readdir($srcDH)){ #skip current and parent directory next if($node eq '.' || $node eq '..'); my $fullSrcName=$_[0]. '/'. $node; #get full name of the file/directory in src my $fullDesName=$_[1]. '/'. $node; #get full name of the file/directory in des if(-d $fullSrcName){ #is directory mkdir($fullDesName,0755) if (! -e $fullDesName); #make sure the corresponding dir exists in the destination #do it in recursive way copyAllFiles($fullSrcName,$fullDesName); }else{ #not directory my @srcFileStat=stat($fullSrcName); my $srcFileMtime=$srcFileStat[9]; if(-e $fullDesName){ my @desFileStat=stat($fullDesName); my $desFileMtime=$desFileStat[9]; if($srcFileMtime > $desFileMtime){ #delete old files in destination unlink($fullDesName); }elsif($srcFileMtime == $desFileMtime) { #unmodified,so continue! next;#continue; }else{ #log here*********************** print $logFH "Problems: $fullSrcName has been modified by others!!!/n"; next;#leave it without being overwriten } } #copy modified files from src to des copy($fullSrcName,$fullDesName); #change mtime for the destination file utime($srcFileMtime,$srcFileMtime,$fullDesName); #log here*********************** print $logFH "Copy File: $fullDesName/n"; }#end of if }#end of while closedir $srcDH; #close directory closedir $desDH; } #check whether word end with mark sub endWithMark{ #check whether $_[0] ends with mark my $mark=".del"; my $len=length($mark); if( length($_[0]) >= $len && substr($_[0],0-$len,$len) eq $mark){ return 1; }else{ return 0; } } #this subroutine must be called after copyAllFiles subroutine #mark the files that does not exist in the corresponding directories in the source sub markExtra{ #$_[0] source file as the sample #$_[1] destination file be marked #open tow directories opendir(my $srcDH,$_[0]) || die "Cannot open $_[0]!"; opendir(my $desDH,$_[1]) || die "Cannot open $_[1]!"; #travel all files while(my $node=readdir($desDH)){ #skip .., . and new-created .del files next if($node eq '..' || $node eq '.' || endWithMark($node) ); #get full names my $srcFullName=$_[0].'/'.$node; my $desFullName=$_[1].'/'.$node; #mark modified files if(! -e $srcFullName){ move($desFullName,$desFullName.'.del'); #log here*********************** print $logFH "Mark Delete: $desFullName/n"; } #do it in a recursive way markExtra($srcFullName,$desFullName) if(-e $srcFullName && -d $desFullName) } #close directory closedir $srcDH; closedir $desDH; } #Convert current local time to string sub nowString{ ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $year+=1900; $mon+=1; return "$year/_$mon/_$mday/_$hour/_$min/_$sec"; } sub nowStringTitle{ ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $year+=1900; $mon+=1; return "$year-$mon-$mday $hour:$min:$sec"; } #reading config file sub readConfig{ my %cfg;#the globe congfigure list open(FILE,$_[0])|| die("can not open $_[0]"); while(my $line=<FILE>){ chomp $line; if('' eq $line){next;} #split words in to key and value @words=split(/[ /t]+/,$line); #check the config if(@words!=2){ #log die "Error Configuration: @words/n"; } #set the words $cfg{$words[0]}=$words[1]; } close(FILE); return %cfg }

 

配置文件

 

NFS_Point 10.182.114.144:/ftpsite/synDemo
Local_Point /local_linux_mnt
Backup_Dir /root/bak
Log_Dir /root/FileSynLog
Manager_Email manager@xxxxx.com
CC_Email_List mgr1.xxxx@xxle.com,mgr2@1234.com

运行在Linux系统下面~~~