сортировка файлов в каталоге

[domashniy]

Естьт такая проблема,  не програмер я и тяжко, помогите.
Нужно отсортировать все файлы в каталоге по убыванию, если известно что 2 первых слова постоянны, а меняется только 3-е слово (чило) (example.tests.1.zip, example.tests.2.zip)
После того как отсортируется, нужно запустить програму и выполнить разорхивирование, начиная с самого большого чилса и до самого маленького.
Прочитал тут кучу примеров, вроде все просто и понятно, но так ничего и не получилось.

[commander]

domashniy

Нужно отсортировать все файлы в каталоге по убыванию

После того как отсортируется, нужно запустить програму и выполнить разорхивирование

 сам то понял что написал?

сформулируй вопрос правильно...

[domashniy]

есть каталог и внем такие файлы
example.tests.1.zip
example.tests.2.zip
example.tests.3.zip
example.tests.4.zip
нужно прочесть все фалы из этот каталого с расширением .zip
дальше разархивировать все эти фалы по убыванию циферок, т.е.
pkunzip example.tests.4.zip
pkunzip example.tests.3.zip
pkunzip example.tests.2.zip
pkunzip example.tests.1.zip

[commander]

domashniy
и это все сделать одним перловым скриптом?
если да... :
то ещё скажи какая у тебя платформа (Unix/Win)?

[domashniy]

win, но можно и под unix

[commander]

domashniy
1. opendir #perldoc -f opendir
2. readdir #perldoc -f readdir
3. sort #perldoc -f sort
4. use Shell #perldoc Shell (http://search.cpan.org/~nwclark/perl-5.8.6/lib/Shell.pm)
5. closedir #perldoc -f closedir
если что не понятно... могу подробнее прокоментировать...

[domashniy]

ага я рад что ты умеешь пользоваться манами, более того наверно и писать умееш по этим манам, и что ?.....

[NeoNox]

domashniy за тебя написать?

[synthez]

domashniy
а зачем их разпаковывать в по убыванию? =)

[AnnA]

действительно непонятно

synthez:
зачем их разпаковывать в по убыванию

а в остальном вот Вам пример:
#!/usr/bin/perl

opendir (G,\'./\') or die $!; @z=grep (/\\.zip/i,readdir G); closedir(G);
print "\\n\\n";
print for sort by_n @z;

sub by_n  { my $aa=(split(/\\./,$b))[2]; my $ab=(split(/\\./,$a))[2]; return ($aa <=> $ab); }

[synthez]

#!/usr/bin/perl -w
use strict;

my (@list);

while (my $file = <*.zip>)
{

push @list, $file;
}

foreach my $tmp (reverse @list)
{

my $dir = $tmp;

$dir =~ s/\\.zip$//;

system("unzip", "-x", $tmp, "-d", "./$dir");
} 

может так?

[domashniy]

AnnA
да я почти так же делал, только более нагромажденно и неумело.
Но вот ваш пример не сортирует, вот что получил
a.b.1.zip a.b.10.zip a.b.12.zip a.b.15.zip a.b.2.zip a.b.3.zip a.b.4.zip a.b.5.zip a.b.6.zip a.b.7.zip a.b.8.zip a.b.9.zip
а нужно так
a.b.15.zip a.b.12.zip a.b.10.zip a.b.9.zip a.b.8.zip a.b.7.zip a.b.6.zip a.b.5.zip a.b.4.zip a.b.3.zip a.b.2.zip a.b.1.zip
NeoNox
да именно написать, как я уже выша сказал я не умею програмировать, и если вы тут все програмеры, то почему бы не помочь ? больше пустых разговоров...ведь написать как AnnA пару строк кода не сложно? да ведь ?

[synthez]

domashniy
да зачем тебе чтобы они лежали отсортированые по убыванию?
смотрятся что ли красивее?

[domashniy]

мне не нужно чтобы они лежали отсортированными ) мне нужно их разархивировать в таком отсортированном порядке, а после еще и обработать уже распакованные файлы.
Но сейчас для меня самая большая проблема что не сортируется ;(((
спасибо за пример, но это немножко не то что мне нужно.

[AnnA]

domashniy
очень странно. смотрите:#!/usr/bin/perl

#opendir (G,\'./\') or die $!; @z=grep (/\\.zip/i,readdir G); closedir(G);
@z=qw(a.b.1.zip a.b.10.zip a.b.12.zip a.b.15.zip a.b.2.zip a.b.3.zip a.b.4.zip a.b.5.zip a.b.6.zip a.b.7.zip a.b.8.zip a.b.9.zip);
print "\\n\\n";
print "\\n", $_ for sort by_n @z;

sub by_n  { my $aa=(split(/\\./,$b))[2]; my $ab=(split(/\\./,$a))[2]; return ($aa <=> $ab); }
perl readdir.cgi

Код: [Выделить]

a.b.15.zip
a.b.12.zip
a.b.10.zip
a.b.9.zip
a.b.8.zip
a.b.7.zip
a.b.6.zip
a.b.5.zip
a.b.4.zip
a.b.3.zip
a.b.2.zip
a.b.1.zip
А приведенный Вами листинг файлов получается, если воспользоваться вариантом
synthez
или в моем примере убрать by_n, т.е. написать так:
print "\\n", $_ for sort @z; а не так, как было:
print "\\n", $_ for sort by_n @z;
мой пример полностью рабочий. видимо Вы что-то «нахимичили» коприуя или подключая его. может покажете весь кусочек кода, который выдал Вам такой листинг файлов, а то гадать - дело неблагодарное.