Цитата(zyxerr @ 23.7.2008, 21:24  ) |
| и она работает! но я так и не понял - зачем в ней такая [0] штука? если удалить, то не работает.. |
Зачем [0]? Дело в том, что результат работы регулярного выражения, например, $a =~ /(\d+)_/, зависит от контекста, последний бывает скалярный либо списковый. Оператор <=> требует скаляр, и регулярное выражение вернет ему 1 (есть совпадение) либо 0 (нет). Конструкция же ()[0] (первый элемент списка) потребует от регулярного выражения список. А в списковом контексте регулярное выражение возвращает элементы, захваченные скобками ((\d+), цифры перед подчерком, в данном случае список будет состоять только из одного элемента).
Еще немного про сортировку. В перле сортировка хоть и быстрая, но все же будет много сравнений (в среднем N*ln(N), где N -- количество элементов массива). В твоей сортировке на каждое сравнение нужно оценить от 2 до 4 регулярных выражений. Оценка регулярного выражение -- не самая быстрая операция, и если массив большой, будет задержка.
Немного модифицированная функция несколько улучшит ситуацию, в ней ровно 2 регулярных выражения на каждое сравнение
| Код |
@gif =sort {my ($a1,$a2) = $a=~/(\d+)_(\d+)/; |
Еще лучше оценку регулярных выражений провести заранее и только 1 раз для каждого элемента массива. Это делается примерно так:
| Код |
@gif = map {$_->[0]} |
И, наконец, про разнотипные вопросы -- постить их в одной ветке или создавать новую для каждого вопроса. Хоть я и не модератор, но, очевидно, следует создавать новую ветку для каждого вопроса.
