loopa2.pl

国际标准协议的

while(1)
{
	system("date>date.txt");

	open(DATE,"date.txt");
	read(DATE,$cur_date,20);
	close(DATE);
	
	$cur_year=(unpack("A4A4A2A4A2",$cur_date))[0];
	$cur_mon=(unpack("A4A4A2A4A2",$cur_date))[2];
	$cur_day=(unpack("A4A4A2A4A2",$cur_date))[4];
	
	$cur_date=$cur_year.$cur_mon.$cur_day;
	
	###数据文件备份
	system("tar cvf accd_backup$cur_day.tar ../accd");
	system("tar cvf shadow$cur_day.tar /etc/passwd /etc/shadow /etc/group");
	system("quotacheck -v -a");
	###数据文件备份
	
	sleep(3600*24);

}
exit(0);