Hi!

I 've written the code below.
There is a problem with "rename": i have the message: "permission denied".

Nevertheless, I have all the rights.

What 's happen ?

Franck
___________________________________________________________________________
#!/usr/bin/perl -w
$now=time;
opendir (INFO,"l:/01_informatique") || die " impossible  d'ouvrir le
répertoire 01_informatique: $!";
while ($fic=readdir INFO)
{
        next if ($fic eq "." or $fic eq "..");
        if (($fic=~/^c/) && ($fic=~/htm$/))
        {
                open (FICHIER,"l:/01_informatique/$fic") || "erreur: $!";
                $age1=(stat(FICHIER))[9];
                $age2=int(($now-$age1)/3600/24);
                rename
("l:/01_informatique/$fic","l:/01_informatique/$fic.old") || die "renomage
impossible: $!" if ($age2>365);
        
                close FICHIER;
        }
        
}
close INFO;
____________________________________________________________________________
_



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to