Twitter RSS

Ocazional avem nevoie ca in cadrul unui script Perl sa cautam fisiere vechi. Un exemplu practic de aplicatie rulata in cron pentru a curata directorul /tmp de fisiere nefolosite ale utilizatorilor.

#!/usr/bin/perl
 
use define MAX_DAYS => 1;
 
chdir("/tmp") or die("Utilizatorul curent nu are drept de executie pe /tmpn");
opendir(TMP,"/tmp") or die("Utilizatorul curent nu are drept de citire pe directorul /tmpn");
 
my $now = time;
my $max = 86400*MAX_DAYS;
 
foreach $file (readdir(TMP)){
    if( -f $file ){
        my @stat = stat($file);
        if( $stat[9] < ($now - $max) ){
            unlink($file) or die(”Utilizatorul curent nu are dreptul sa stearga fisierul $filen);
        }
    }
}

Bineinteles, scriptul trebuie rulat ca root. Daca dorim fisiere mai vechi de o zi, modificam valoarea constantei MAX_DAYS sau setam variabila $max cu valoarea in secunde a perioadei limita.

Popularity: 1% [?]

Ai intrebari?

* Te rog sa postezi pe NetHelp orice intrebare care nu are legatura cu articolul.

Retele sociale
Reclamã
Sharing makes you cool!
Categorii
Apache
Articole si tutoriale legate de serverul web Apache.
/articole-tutoriale-apache/

cPanel
Articole si tutoriale legate de utilizarea si administrarea sistemului de gestiune a serverelor de hosting, cPanel.
/articole-tutoriale-cpanel-whm/

DNS
Vezi toate articolele din categoria DNS
/dns-bind-domain-name-services/

Linux
Articole si tutoriale legate de Linux, sisteme BSD sau alte sisteme de operare din familia UNIX.
/articole-tutoriale-linux/

Mail
Vezi toate articolele din categoria Mail
/mail/

MySQL
Articole si tutoriale despre serverul de baze de date MySQL.
/articole-tutoriale-optimizare-mysql/

Perl
Vezi toate articolele din categoria Perl
/perl-practical-extraction-and-report-language/

PHP
Vezi toate articolele din categoria PHP
/php-language-hypertext-preprocessor/

Retele
Tutoriale despre retele de calculatoare, configurarea interfetelor de retea si rutarea IP-urilor.
/retele-networking/

Virtualizare
Articole si tutoriale despre virtualizare si sistemel virtuale create cu Xen sau OpenVZ.
/virtualizare-xen-openvz/

Web hosting
Articole despre serviciile de gazduire web, dedicate sau in regim shared.
/web-hosting/

Webmin / Virtualmin
Articole si tutoriale legate de sistemul de gestiune gratuit Webmin sau modulul Virtualmin.
/webmin-virtualmin/





Newsletter
LAMP Recomandã
NetHelp
SRV.ro
cpadmin.ro
ABCDomenii