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

#!/usr/bin/perl use warnings; use File::<a href="/tag/cop/" target="_blank" class="keywords">cop</a>y; no warnings 'recursion'; ###########################################Main Rountine Begin################################################# #promote enter con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure if(@ARGV == 0){ die "Enter con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure file path,please :)/n"; } #read input from p<a href="/tag/ara/" target="_blank" class="keywords">ara</a>meters my %cfg=readCon<a href="/tag/fig/" target="_blank" class="keywords">fig</a>($ARGV[0]); #input if(! exists $cfg{NFS_Point}){ die "NFS_Point does not exist in the con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure file!/n"; } my $nfsPnt=$cfg{NFS_Point}; if(! exists $cfg{Backup_Dir}){ die "Backup_Dir does not exist in the con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure file!/n"; } my $des=$cfg{Backup_Dir}; if(! exists $cfg{Local_Point}){ die "Local_Point does not exist in the con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure file!/n"; } my $localMnt=$cfg{Local_Point}; if(! exists $cfg{Log_Dir}){ die "Log_Dir does not exist in the con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure file!/n"; } my $logDir=$cfg{Log_Dir}; if(! exists $cfg{Manager_Email}){ die "Manager_Email does not exist in the con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure file!/n"; } my $mgrMail=$cfg{Manager_Email}; if(! exists $cfg{CC_Email_List}){ die "CC_Email_List does not exist in the con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure file!/n"; } my $<a href="/tag/ccl/" target="_blank" class="keywords">ccl</a>ist=$cfg{CC_Email_List}; #prepare #preare for logging if(! -e $logDir){ mkdir($logDir,0755); } $logFile=$logDir."/Syn_".<a href="/tag/Now/" target="_blank" class="keywords">Now</a>String().".log"; open(my $logFH,">>$logFile");#open log file if(! -e $localMnt){ mkdir($localMnt,0755); } if(sy<a href="/tag/stem/" target="_blank" class="keywords">stem</a>("mount -t nfs -o ro $nfsPnt $localMnt")!=0){ #mount <a href="/tag/Failed/" target="_blank" class="keywords">Failed</a> die("make sure NFS $nfsPnt or $localMnt exist!"); } #log beginning print $logFH "Synchronization from $nfsPnt to $des begin.../n";#log beginning #synchronizating <a href="/tag/cop/" target="_blank" class="keywords">cop</a>yAllFiles($localMnt,$des); markExtra($localMnt,$des); #release sy<a href="/tag/stem/" target="_blank" class="keywords">stem</a>("umount $localMnt")==0 || die("umount $localMnt <a href="/tag/Failed/" target="_blank" class="keywords">Failed</a>");#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 ".<a href="/tag/Now/" target="_blank" class="keywords">Now</a>StringTitle(); sy<a href="/tag/stem/" target="_blank" class="keywords">stem</a>("mail -s /"$subject/" /"$mgrMail/" -c /"$<a href="/tag/ccl/" target="_blank" class="keywords">ccl</a>ist/" < $logFile"); exit 0; ###########################################Main Rountine End################################################# #<a href="/tag/cop/" target="_blank" class="keywords">cop</a>y files from source to destination dir<a href="/tag/eto/" target="_blank" class="keywords">eto</a>ry accroding to mtime sub <a href="/tag/cop/" target="_blank" class="keywords">cop</a>yAllFiles{ #$_[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 <a href="/tag/cop/" target="_blank" class="keywords">cop</a>y 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 o<a href="/tag/nes/" target="_blank" class="keywords">nes</a> 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 <a href="/tag/cop/" target="_blank" class="keywords">cop</a>yAllFiles($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 } } #<a href="/tag/cop/" target="_blank" class="keywords">cop</a>y modified files from src to des <a href="/tag/cop/" target="_blank" class="keywords">cop</a>y($fullSrcName,$fullDesName); #change mtime for the destination file utime($srcFileMtime,$srcFileMtime,$fullDesName); #log here*********************** print $logFH "<a href="/tag/cop/" target="_blank" class="keywords">cop</a>y 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 su<a href="/tag/bro/" target="_blank" class="keywords">bro</a>utine must be called after <a href="/tag/cop/" target="_blank" class="keywords">cop</a>yAllFiles su<a href="/tag/bro/" target="_blank" class="keywords">bro</a>utine #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 <a href="/tag/Now/" target="_blank" class="keywords">Now</a>String{ ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $year+=1900; $mon+=1; return "$year/_$mon/_$mday/_$hour/_$min/_$sec"; } sub <a href="/tag/Now/" target="_blank" class="keywords">Now</a>StringTitle{ ($sec,$year) = localtime(time); $year+=1900; $mon+=1; return "$year-$mon-$mday $hour:$min:$sec"; } #reading con<a href="/tag/fig/" target="_blank" class="keywords">fig</a> file sub readCon<a href="/tag/fig/" target="_blank" class="keywords">fig</a>{ my %cfg;#the globe cong<a href="/tag/fig/" target="_blank" class="keywords">fig</a>ure 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 con<a href="/tag/fig/" target="_blank" class="keywords">fig</a> if(@words!=2){ #log die "Error Con<a href="/tag/fig/" target="_blank" class="keywords">fig</a>uration: @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 [email protected]
CC_Email_List [email protected],[email protected]

运行在Linux系统下面~~~