perl脚本练习（一）

13544870125

　　操作系统为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://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/
　　}
　　}
　　目的：每半个月同步一次日志。