#!/usr/bin/perl
use warnings;
use strict;
my $dir = '/path/to/files';
chdir($dir) or die "$!\n";
opendir(DH, $dir) or die "$!\n";
my @files = readdir(DH);
shift @files;
shift @files;
for my $i (@files) {
unlink($i);
}
close(DH);
Така ще изтриеш всички фаилове в директорията но не и самата директория
On Monday 26 April 2004 12:34, Georgi Chorbadzhiyski wrote:
> Martin Bossev wrote:
> > Искам да сложа в кронтаб през определен период от време
> > да се трие съдържанието на директория.
> > Проблема е, че в директорията има средно между 15000 и 20000 файла.
> >
> > rm -f ми дава:
> > # rm -f *
> > -bash: /bin/rm: Argument list too long
> >
> > Ще съм благодарен, ако ми кажете как да го направя.
>
> rm -rf /dir ; mkdir /dir
>
> по-лесно решение май няма
--
Aii Data Processing
System Administrator
IT Department
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================
