Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.142.197.198] |
|
Сообщ.
#1
,
|
|
|
Вобщем шас перелапачиваю скрипт изначально который был просто архивом ссылок на архив mp3. Проблемка щас в том чтобы икачть в базе сыылок по первой букве. Т.е. в самом исходном скрипте поиск по одной букве был вообще запрещен:
--------------- if ($or_match) { for (0 .. $#{$search_terms}) { next if (length ${$search_terms}[$_] < 2); # Skip single letter words. $tmp .= "m/\Q${$search_terms}[$_]\E/io ||"; } } else { for (0 .. $#{$search_terms}) { next if (length ${$search_terms}[$_] < 2); # Skip single letter words. $tmp .= "m/\Q${$search_terms}[$_]\E/io &&"; } } chop ($tmp); chop ($tmp); ------------------ но заменив 2 на еденичку он есессно искать стал... но, тоже ессесно, не по первой букве, а выдаёт ссылки на все файлы в которых такая буква встречается... а надо чотбы по первой букве (символу). Помогите плз. |
Сообщ.
#2
,
|
|
|
Ну что, никто в perl'e не разбирается? :-/
|
Сообщ.
#3
,
|
|
|
Ты нигде не просишь, чтоб искалось с начала - вот "оно" и ищет где попало.
в операторе match поставь признак поиска от начала: m/^xxxxxx |