|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : kan 2:5050/69.1 22 Jul 2001 08:55:43
To : suckmydick@yandex.ru
Subject : Ускорить выполнение
--------------------------------------------------------------------------------
Я совершенно случайно заметил, что в Среда Июль 18 2001 11:02,
suckmydick@yandex.ru писал All:
s> $ perl -we '$_ = shift;
s> my ($name, $ext) = /^(.*)(?:\.(.*))?$/;
s> print "name=$name\next=$ext\n"' foo.bar
s> Use of uninitialized value in concatenation (.) at -e line 3.
s> name=foo.bar
s> ext=
Hу да. Опять облажался. Следует читать /^(.*?)(?:\.(.*))?$/
>> push @files,$name,$ext if exists $typs{$ext};
s> Че-то я не врублюсь никак, что делает эта строчка? Делает винегрет из имен
s> и расширений, мешая их в одну кучу @files ?
Hу да. Hе могу пpидумать нафиг такое надо, но так было в пеpвоначальном
письме.
C уважением, Анатолий.
[МФ УдГУ] [39-?1] [(Microsoft!=SUXX)&&(LINUX!=RULEZ)] [HZ]
ш И я возвращаюсь сюда, здесь есть куда взлететь, затем что есть куда пасть.
... И аксиомы геометрии опровергались бы, если бы затрагивали интересы людей
--- ifmail v.2.15
* Origin: СоБыСчас (2:5050/69.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
