|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Poliakov 2:5020/400 16 Oct 2000 11:05:21
To : All
Subject : Re: список файлов
--------------------------------------------------------------------------------
On Sun, 15 Oct 2000 02:28:23 +0400, Timur Sabirzyanov
<Timur.Sabirzyanov@p197.f197.n5080.z2.fidonet.org> wrote:
>Маленький скриптик должен обрабатывать все файлы с некоторым расширением в
>текущей директории, как это попроще сделать?
Дарю.
@your_files = get_dir_entries($your_dir, 'your_mask.*');
foreach (@your_files) { your_function($_); }
#################################################################
#
sub get_dir_entries {
my $dir = shift;
my $mask = shift || '.*';
my $flag = shift || '-f';
my @result = ();
my $file;
my @files;
opendir(DIR, $dir) or die "Can't open dir $dir:$!";
# get an _original_ list of files
@files = grep { !/^\.\.?$/ } readdir(DIR); # skip "." and ".."
foreach $file (@files) {
push(@result, $file)
if (($file =~ /$mask/) and (eval "$flag \"$dir/$file\""));
}
@result;
} # get_dir_entries
Michael Poliakov
--- ifmail v.2.15dev5
* Origin: Nizhniny Novgorod Information Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
