#!/usr/bin/perl use strict; my $filespath = "/home/re17830/chksize/checksize_db"; my $date = `date +%y-%m-%d`; my $day = `date +%d`; my $predaycheck = $date--; my $preday = $day--; my $month = `date +%m`; my $premonth = $month--; if ($month == 01) { $premonth = "12"; } chomp(my $prechk = `echo $preday |wc -ck`); if ($prechk == 2) { $preday = "0$predaycheck"; } my $pre_date = "`date +%y-%m`-$preday"; my $newfile = "$filespath/SizeCheck-$date\.dat"; my $oldfile = "$filespath/SizeCheck-$pre_date\.dat"; my @filesystem = `ls -Rlgo /`; open(REWRITE, ">$newfile"); foreach(@filesystem) { chomp(); my @line = split(/ +/); if ($line[0] =~ m/^\//g) { print REWRITE "\n$line[0]\n"; } elsif (($line[0] =~ m/^dr/g) || ($line[0] =~ m/^-r/g)) { print REWRITE "$line[2]\t\t$line[6]\n"; } else { next; } } if ($day == 28) { `rm $filespath/SizeCheck-*-\$premonth\-*`; }