用perl写的postgre数据库备份程序（摘录，没有注解）

#!/usr/bin/perl

#文件名：dbback.pl
mon,$day) = fdate(time());
my $deleteFilePattern = "customer_jfc".$year.$mon.$day;
print "$deleteFilePattern/n";
my @dbBackupFile = getPatternFile("customer_jfc".$year,"/usr/local/postgres/bin/dbbackup");
my $fileNO = 0;
my $fileNum = @dbBackupFile;
if(@dbBackupFile > 0){
        my $lastDBbackupFile = $dbBackupFile[$#dbBackupFile];
        if($lastDBbackupFile =~ /$deleteFilePattern/){
                print $lastDBbackupFile."/n";
                my @arrayLastDBbackupFileNO = split(/_/,$lastDBbackupFile);
                my $lastDBbackupFileNO = $arrayLastDBbackupFileNO[2];
                $fileNO = $lastDBbackupFileNO + 1;
        }else{
                $fileNO = 1;
        }
}else{
        $fileNO = 1;