I think your problem is this line:
next if $file =~ /\./;
Any file that has a period in the name will not be removed. I'm assuming
that what you wanted to do was skip . and .. If that is the case, then try
something more like this:
next if $file =~ /^\.{1,2}$/;
-----Original Message-----
From: loan tran
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: 4/5/02 6:17 PM
Subject: Re: Can Unlink Remove Tar and Zip files?
This is how i use the unlink. Please take a look.
Thanks.
-----------
#!/usr/bin/perl
# clean old file
use Carp;
$cur_time = time; # current time in epoch (in
seconds)
$dir = '/opt/sybase/OCT/dump/';
$hour = 10 ;
opendir DIR, $dir || die "Failed to open $dir: $!";
my @files = readdir DIR;
closedir DIR;
unless ($cnt = @files) {
print "No file to rm.\n";
return;
}
foreach $file (@files) {
next if $file =~ /\./;
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
$size, $atime, $mtime, $ctime, $blksize, $blocks) =
stat $file;
$fage = ($cur_time - $mtime) / 3600; # file in
hours (note: 1 hr = 3600 sec)
print "file found: $file ($fage hr)\n";
if ($fage > $hour) {
printf "\nDelete file older than $hour
hrs : %4s %.2f hrs old\n", "$dir"."$file",$fage;
$rc = unlink "$dir"."$file" ;
$stat = $rc ? "success" : "failed";
print "\t$file remove status:
$stat.\n";
}
else {
printf "Too young: %15s [%.2f hr]\n",
$file, $fage;
}
}
opendir DIR, $dir || die "Failed to open $dir:
$!";
my @files = readdir DIR;
$cnt2 = @files;
print "\nTo remove all files that are older
than $hour in directory: $dir\n";
printf "Before delete: %5d\n", $cnt;
printf "Files deleted: %5d\n", $cnt - $cnt2;
printf "After delete : %5d\n", $cnt2;
closedir DIR;
--- drieux <[EMAIL PROTECTED]> wrote:
>
> On Friday, April 5, 2002, at 05:14 , loan tran
> wrote:
> [..]
> > I want to remove *.tar and *.Z file too.
> >
> > Any suggestions?
>
> how were you building your list of files to be
> removed?
>
> i just built both *.tar and *.Z files and was able
> to
> remove them with a perl script using the methods
> listed
> in
>
> perldoc -f unlink
>
>
>
> ciao
> drieux
>
> ---
>
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
>
__________________________________________________
Do You Yahoo!?
Yahoo! Tax Center - online filing with TurboTax
http://taxes.yahoo.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------------------------------------------------------------
This email may contain confidential and privileged
material for the sole use of the intended recipient.
If you are not the intended recipient, please contact
the sender and delete all copies.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
