perl脚本练习（一）

操作系统为Ubuntu10，

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

print "Hello, World...\n";
my $riqi=`date +%d`;
print "today is $riqi\n";
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://[email protected]: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://[email protected]:2878/test/
        }
}

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