Georgi Ivanov wrote:
> #!/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);
>
> Така ще изтриеш всички фаилове в директорията но не и самата директория
--
Georgi Chorbadzhiyski
http://georgi.unixsol.org/
============================================================================
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
============================================================================
