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://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/
}
}
目的：每半个月同步一次日志。
页:
[1]