LAMP.ro

Platforma de hosting cu software liber, gratuit, open source.

Cum stergem fisierele vechi in Perl

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: unranked [?]

Data postarii: aprilie 24th, 2009
Autor: Sergiu Tot

Categorii articol: Perl
Etichete articol: Perl
Articolul anterior: Formatarea unui HDD in FreeBSD
Articolul urmator: Restrictionarea accesului la SSH pe baza de IP
Articole asemanatoare:
» Exemplu de crawler in Perl
» Timp maxim de executie pentru un query
» Micsorare transparenta pentru fisierele CSS si JavaScript externe
» Cum citim argumentele din linia de comanda in Perl
» Upgrade semi-automat pentru instalari WordPress multiple

Ai intrebari?

Reclama

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/

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

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

Newsletter

LAMP Recomandã

Parteneri

Cele mai comentate articole