perl脚本练习（一）

操作系统为Ubuntu10，

#!/usr/bin/perl
use strict;
use warnings;

print "Hello,World...n";
my $riqi=`date +%d`;
print "today is $riqin";
my @shang=qw( 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 );
my @xia=16..31;
if ($riqi eq "01") {
??????? print "############# Today is 01 ##################n";
??????? foreach (@xia) {
??????? system("echo 44444>GameDB`date +%C%y%m`$_.txt");
??????? system("echo 44444>GameLogDB`date +%C%y%m`$_.txt");
??????? #rsync *$_* rsync://SvcCWRSYNC@192.168.8.55:2878/test/
??????? }
}
else {
??????? print "############# This day is 16 ##################n";
??????? foreach (@shang) {
??????? system("echo 3333>GameDB`date +%C%y%m`$_.txt");
??????? system("echo 3333>GameLogDB`date +%C%y%m`$_.txt");
??????? #rsync *$_* rsync://SvcCWRSYNC@192.168.8.55:2878/test/
??????? }
}

目的：每半个月同步一次日志。