Сообщения

1

Perl / экранирование регулярных

« : 15 Апреля 2005, 14:37:50 »

спасибо проверю ваш код, но мой тоже заработал, оказалось все очень глупо не нужно вот этого было  $b =~ s/-/_/g; т.к. у меня уже правильные диры были, адальше просто лажа шла.
Но спасиб все одно и ваш код проверю

2

Perl / экранирование регулярных

« : 15 Апреля 2005, 13:17:58 »

Вообщем моя ошибка в то что не сказал что мне нужно, в конечном итоге.
Есть dir  в ней есть dir-name1, dir-name2, dir-name3
в dir-name1, 2, 3 есть файлы, мне нужно выбрать только один тип файлов по расширению (например .html)
далее самое интересное.
В этом файле мне нужно поменять все dir-name1 на dir_name1 и только в каталоге dir-name1, для другого нужно сот-но все dir-name2 на dir_name2 и только в каталоге dir-name2
Вот что хотел получить. Но почемуто ничего не вышло.

и еще раз скажу что не программер я ;(( так что не следует ждать от меня великих кодов.
Буду очень признатиелен за грамотно написанный код

3

Perl / экранирование регулярных

« : 14 Апреля 2005, 20:06:57 »

вообщем мои скудные познания опять завели в тупик.
на это раз вроде все правильно написал, но нету счастья
вот что имею

my $logdir = "design_free";
opendir (G,"$logdir") or die $!; @z= (readdir G); closedir(G);
foreach (@z)
   {
   my $a = $_;
   my $b = $_;
   $b =~ s/-/_/g;
   opendir (G2,"$logdir/$a") or die $!; @x=grep (/\\.html/i, readdir G2); closedir(G2);
   foreach (@x)
      {
      my $a2 = $_;
      my $b2 = "$b.html";
open(F1,"$logdir/$a/$a2");
open (new,">$logdir/$a/$b2");
 $l1=;
   while( $l1 || 0)
   {
     $l1 =~ s/$a/$b/g;
     print new "$l1";
     $l1=;
   }
close (new);                                                                    
close(F1);                                                                      
      print "$b2\\n";
      }
   print "$b\\n";
   }

подскажите что не так и как мне быть

4

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

« : 25 Февраля 2005, 13:48:10 »

а что в нем неправильного ?

5

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

« : 25 Февраля 2005, 13:17:31 »

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

opendir (G,"$tmpdir") or die $!; @z=grep (/тутобратный слеш.zip/i,readdir G); closedir(G);
@x = sort by_n @z;
foreach (@x)
{
system `7za.exe e -o$tmplogs $tmpdir/$_`;
system `build.exe`;
}

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

6

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

« : 25 Февраля 2005, 12:24:40 »

то АннА.
Для тестов я сделал отдельный кусок, куда вставил полностью ваш скрипт.
Как первый ваш варинат, так и второй не сортирует.
Может проблема в том что запускаю под Виндами ?

7

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

« : 25 Февраля 2005, 09:56:13 »

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

8

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

« : 25 Февраля 2005, 07:11:11 »

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 пару строк кода не сложно? да ведь ?

9

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

« : 24 Февраля 2005, 14:31:34 »

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

10

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

« : 24 Февраля 2005, 13:50:57 »

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

11

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

« : 24 Февраля 2005, 13:36:17 »

есть каталог и внем такие файлы
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

12

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

« : 24 Февраля 2005, 12:54:39 »

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