perl 学习 一个简单的数据

   写了一个数据“备份”脚本，实现一个数据转移的功能，将文件按照月份/业务(可以分多级)/天进行数据存放，目前是按照每天处理一次的方式进行的。目标是按照文件生成时间进行数据分成分业务进行存放。

   代码如下 ：使用了perl一些简单的特性。觉得是我第一次写的比较好的perl程序。自我感觉而已了。

 

#!/usr/bin/perl
use Time::localtime;
#####################       SUB     ##########################
sub backupdata{
 my @tmpPath = @_;
 my $dayPath = $tmpPath[2];
 print $tmpPath[0] , $tmpPath[1] ,"\n" ;
 opendir dire ,  $tmpPath[0] or die "opendir is error \n";
 while ( defined ($filename = readdir(dire)) ) {
  next if $filename eq "." ;
  next if $filename eq ".." ;
  next if -d $filename ;
  if ($tmpPath[3] eq "1") {
   rename $tmpPath[0].$filename , $tmpPath[1].$filename  or die "rename is error \n";
   next ;
  }
  if ($tmpPath[3] eq "2") {
   mkdir $Path if  !-e $tmpPath[1].$dayPath ;
   rename $tmpPath[0].$filename , $tmpPath[1].$dayPath."/".$filename  or die "rename is error \n";
   next ;
  }
 }
 closedir(dire);
}
sub buildPath{
 my @Paths = split /\//,$_[1];
 chdir $_[0] ;
 foreach  $Path(@Paths) {
  print $Path , "\n";
  mkdir $Path if  !-e $Path ;
  chdir $Path ;
 }
}
#####################       ENV     ##########################
$MainPath = "/appdatabak/";
$SourceMainPath = "/jsdata/settle/province/appdatabak/";
%BusiPath = (
 "recv/17901" => "1", "recv/4008" => "1", "recv/DddSta" => "2",  "recv/SmsSta" => "2",
 "recv/hyt" => "1",  "recv/nv" => "1", "recv/QCFromProv" => "1", "recv/iep"  => "1",
 "recv/infodata" => "1", "recv/ngn"  => "1","recv/other" => "1", "recv/smc"  => "1",
 "recv/SettleSta" => "2", "recv/hkrx"  => "1","recv/ipass" => "1", "recv/ptm"  => "1",
 "recv/datum/radius" => "1","recv/datum/vpdn" => "1", "vdatum/card"  => "1", "in/smp"  => "1",
 "send/17901"  => "1", "send/4008" => "1", "send/hyt" => "1" ,
 "send/iep"  => "1", "send/in"  => "1", "send/ngn"  => "1", "send/nv"  => "1", "send/sms"  => "1" 
 );
my $MainPath ;
my $SubPath = sprintf "%4d%02d",$tm->year +1900,$tm->mon +1 ;
my $DayPath =  sprintf "%4d%02d%02d",$tm->year +1900,$tm->mon +1,$tm->mday ;
my $DesPath ;
my $workPath ;
my $SourcePath ;
my $tm = localtime;
#####################       WORK      ##########################
mkdir $MainPath.$SubPath  if  !-e $MainPath.$SubPath ; #check subPath
foreach $key(%BusiPath) {
 buildPath($MainPath.$SubPath , $key);
 $DesPath = $MainPath.$SubPath."/".$key."/";
 backupdata($SourcePath , $DesPath, $DayPath,$BusiPath{$key} );
}