Re: lug-bg: iztrivane

[Georgi Ivanov <genius@xxxxxxxxxxxxxx>]

#!/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
============================================================================