Ребята, подскажите как в перловом скрипе осуществить копирование файлов по маске, например:
Есть файлы в каталоге:
/files/
        2002-8-6 12-46-02-42.jpg  # дата и время скриншота
        2002-8-6 12-46-03-42.jpg
        2002-8-7 17-05-02-33.jpg
        2002-8-7 17-05-03-33.jpg
        2002-8-8 23-49-21-42.jpg    
Нужно раскидать файлики по каталогам, чтобы в один каталог попали файлы с одним месяцем и числом, в другой каталог с другой датой и т.д.
Как на перле такое сделать? Можно и на баше, если кто знает?
Огромное спасибо.

• RE: Ребята, помогите с перл скриптом.,uldus, 16:42 , 06-Авг-02
• RE: Ребята, помогите с перл скриптом.,sector119, 17:39 , 15-Авг-02
• RE: Ребята, помогите с перл скриптом.,pth, 01:54 , 20-Авг-02
  • RE: Ребята, помогите с перл скриптом.,pth, 01:56 , 20-Авг-02

>Ребята, подскажите как в перловом скрипе осуществить копирование файлов по маске, например:

perldoc Time::Local

perldoc -f stat
perldoc -f opendir
perldoc -f readdir
perldoc -f closedir
perldoc -f rename

Этого вполне достаточно.

чет я нибуя не понял! как у тя каталоги должны называться и какие файлы туды должны попасть! сделай пример! мол файлы с таким названием в каталог с таким названием, файлы с другим названием, в каталог с другим названием!

может я и угадал :)

map{print;}glob '*.txt';
map{че делать с твоими файлами}glob 'маска по которой цеплять файлы';

или

for (<*.txt>)
{
print;
}

Примерно так?

my %h = ();

for (<*.jpg>)
{
    /^(\d+-\d+-d+)/ && push( @{ $h{$1} }, $_) };
}

for my $dir (keys %h)
{
    mkdir $dir;
    for ( @{ $h{$dir} } )
    {
        system("cp $_ $dir/$_");
    }
}

Б...ь очепятка, должно быть так:

/^(\d+-\d+-d+)/ && push( @{ $h{$1} }, $_);