以下脚本仅做学习参考，需加到/etc/crontab文件，每天执行一次的脚本自动执行分段备份/www/users下的网页文件夹。[code]#!/usr/bin/perl
$all_day = `date`;
chdir "/www/users/";
@all = <*>;
@all = sort @all;
$aaa = @all;
if ($aaa%7==0)
{
$x = int($aaa/7);
}
else
{
$x = int($aaa/7)+1;
}
#print "$aaa\n";
#print "$x\n";
if ( $all_day =~ /^Mon/)
{
print $all_day;
for ($i=0;$i<$x;$i++)
{
system "tar czvf /backup/wwwbackup/$all[$i].tar.gz $all[$i] 2> /dev/null";
}
}
elsif ( $all_day =~ /^Tue/ )
{
print $all_day;
for($i=$x;$i<2*$x;$i++)
{
system "tar czvf /backup/wwwbackup/$all[$i].tar.gz $all[$i] 2> /dev/null";
}
}
elsif ( $all_day =~ /^Wed/)
{
print $all_day;
for($i=2*$x;$i<3*$x;$i++)
{
system "tar czvf /backup/wwwbackup/$all[$i].tar.gz $all[$i] 2> /dev/null";
}
}
elsif ( $all_day =~ /^Thu/)
{
print $all_day;
for($i=3*$x;$i<4*$x;$i++)
{
system "tar czvf /backup/wwwbackup/$all[$i].tar.gz $all[$i] 2> /dev/null";
}
}
elsif ( $all_day =~ /^Fri/)
{
print $all_day;
for($i=4*$x;$i<5*$x;$i++)
{
system "tar czvf /backup/wwwbackup/$all[$i].tar.gz $all[$i] 2> /dev/null";
}
}
elsif ( $all_day =~ /^Sat/)
{
print $all_day;
for($i=5*$x;$i<6*$x;$i++)
{
system "tar czvf /backup/wwwbackup/$all[$i].tar.gz $all[$i] 2> /dev/null";
}
}
elsif ( $all_day =~ /^Sun/)
{
print $all_day;
for($i=6*$x;$i<7*$x;$i++)
{
system "tar czvf /backup/wwwbackup/$all[$i].tar.gz $all[$i] 2> /dev/null";
}[/code]
