Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Duke

Страницы: [1]
1
Perl / Первую заглавной, остальные строчными
« : 04 Мая 2003, 12:30:47 »
Большое спасибо обоим.

Разница вот лишь в чем, в решении от Mog., откорректированные значения записыватся в массив @model, а в решении от mike, они не записываются (?), хотя решение очень красивое :)

2
Perl / Первую заглавной, остальные строчными
« : 03 Мая 2003, 15:51:55 »
Выручайте, что-то я совсем запарился

исходный текст лежит в массиве @model и состоит из трёх значений (LAND, CRUISER, 100), в цикле по-одному эти словечки извлекаются

исходный текст: LANDCRUISER100
надо получить : LandCruiser100

пишу так:
foreach $key(@model){ ($key)=$key=~/\\u\\w\\L\\w+\\Е/ };

скрипт работает, но ничерта не выводит

3
Perl / как "выбрать" IP из строки?
« : 25 Марта 2003, 07:38:21 »
Спасибо, я разобрался. Всё оказалось оч просто :)

foreach (@ar_allmail) {
#Host 217-106-130-206.siberianet.ru (217.106.130.206) appears to be up.
   ($host, $domen, $ip, $a, $b, $c, $d) = split;
   if ($host eq \'#\') {next;}
   ($ip2)=$ip=~/\\((\\d+\\.\\d+\\.\\d+\\.\\d+)\\)/;
    print "$ip2
";
}

4
Perl / как "выбрать" IP из строки?
« : 24 Марта 2003, 08:40:40 »
Сразу оговорюсь, что регулярные выражения для меня чужды. Я тольк взялся с ними разбираться.

Задача такая.
Один скрипт пингует ийпишники сети, а информацию о "ответивших" записывает в текстовый файл. Вот несколько строк этого файла.

Host 217-106-130-10.siberianet.ru (217.106.130.10) appears to be up.
Host 217-106-130-12.siberianet.ru (217.106.130.12) appears to be up.
Host 217-106-130-13.siberianet.ru (217.106.130.13) appears to be up.
Host 217-106-130-15.siberianet.ru (217.106.130.15) appears to be up.

Другой маленький скриптик бонально читает эти строки из файла и выводит в окно браузера.

Подскажите регулярное выражение которое бы "выбирало" из каждой строки только IP?

Т.е. после его работы в браузере должен быть просто перечень IP-шников:

217.106.130.10
217.106.130.12
217.106.130.13
217.106.130.15

5
Perl / как фильтровать данные из форм?
« : 12 Февраля 2003, 09:16:57 »
чтоб в базу не "сыпали" всякий хлам и для повышения безопасности необходимо фильтровать то что пользователь посылает из формы

наверняка есть какие-то уже написанные универсальные модули программ обрезающие html, java и прочее

поделитесь пожалуйста или хотяб советом помогите

заранее спасибо

6
Perl / ссылки вместо кнопок
« : 07 Февраля 2003, 10:55:55 »
спасибо, работает

...... просто я начинающий, а объять не обяъятное, нельзя
знания собираются не систематически, а от проблеммы к проблемме. И в следствии этого в знаниях мого "дыр" относительно глупых.
Обещаю всё наверстать.

7
Perl / ссылки вместо кнопок
« : 07 Февраля 2003, 08:56:07 »
perl шаблон генерит html таблицу в которой каждая строка краткое описание автомобиля, последнее поле в каждой строке этой таблице это кнопка при нажатии на которую информация из скрытых полей формы передаётся к другому perl шаблону строящему html страницу с подробным описанием автомобилей.

как всё это шило выглядит смотеть здесь -> avto.ssnet.ru  

Так вот в чем вопрос: как сделать так чтоб переход к подробному описанию авто происходил по нажатию на ссылку? Ссылкой, например, являлось название автомобиля.

8
Perl / проверка на наличие файла...
« : 06 Февраля 2003, 12:38:08 »
!!!!!!! ЗАРАБОТАЛО !!!!!!!!!!

огромное спасибо NeoNox

P.S. совсем скоро вернусь еще за порцией знаний

9
Perl / проверка на наличие файла...
« : 06 Февраля 2003, 11:48:21 »
... как её осуществить?

на сервере есть директория с разнообразными JPG файлами. Скрипт обращается к этой директории чтоб отобразить определенные картинки на WEB странице. Соответственно если определенного запрашиваемого файла нет, то выводится противный красный крестик на белом фоне, мол нет такого файла.

Как задать в скрипте проверку на наличее файла с определенным именем, и если его нет, то вставлят вместо него JPG рисунок - шаблон (например с  надписью нет такого изображения).

вот кусок кода

         фото 1
         фото 2
         фото 3";

для каждой записи (строке) в базе соответствует 1, 2 или 3 графических файла названные по ID строки + еденица, двойка или торойка

для ID=55, файлы имеют названия: 551.jpg, 552.jpg, 553.jpg

так вот если не будет файлов 552.jpg, 553.jpg, надо чтоб выводилась картинка "по умолчанию"?

10
Базы данных / Сортировка по дате в MySQl
« : 24 Декабря 2002, 11:50:20 »
Доброе время суток, ребята!

Два вопросика к вам. (по MySQL)

1. Как сделать сортировку по дате с нынешней до самой давней. Так чтоб самая свежанинка первой выводилась. :) т.е.
2002-12-24
2002-12-23
2002-12-15
и т.д., а то он сортирует наоборот -
2002-12-15
2002-12-23
2002-12-24

2. Второй ворос забыл :), загляну попозже......

11
Perl / perl -> mysql -> perl ->html
« : 28 Ноября 2002, 05:47:19 »
Следующая задача.

в базе есть колонка зачения в которой буквенно-цифровые (varchar - или другой тип надо?). Сами значения такие M75, M750, H90 и т.д.

на запрос "SELECT * FROM condenser1 WHERE tke_grup=M75", база вообще не отвечает. Буквы и там, и там на английском (с русским боязно связываться, буду сначала говорить с MySQL на её родном языке :)).

12
Perl / perl -> mysql -> perl ->html
« : 28 Ноября 2002, 05:18:25 »
Сделал самый простой вариант с "заглушкой" - $sql.=" 1=1 ";
Работает.
С массивами и вариантом Макса разбирусь позже.

13
Perl / Perl. Как стереть последние символы в строке?
« : 27 Ноября 2002, 23:17:12 »
Вот задача.

Есть переменная
$a значение которой "and param2>$param2 and param4>$param4"
или
"param2>$param2 and param4>$param4 and"

в первом случае, как стиреть первое слово - "end "
во втором последнее, соответственно? (перед отправкой запроcа в MySQL)

пробовал
s/.../.../
tr/.../.../
но не получилось, плохо я очень в этой скриптологии разбираюсь, а решить задачу надо.
Поможите.:insane:

14
Perl / perl -> mysql -> perl ->html
« : 27 Ноября 2002, 23:09:35 »
2AlieN, спасибо помогло. Встала другая задача.

if($param1){$sql.="param1>$param1";}
if($param2){$sql.="and param2>$param2";}
if($param3){$sql.="and param3>$param3";}
if($param4){$sql.="and param4>$param4";}
if($param5){$sql.="and param5>$param5";}

в результате если выбирут 2 и 4 параметры то получиться

$sql = "and param2>$param2 and param4>$param4"

а такой запрос MySQL обрабатывать отказывается
Как убрать "and" в начале строки "and param2>$param2 and param4>$param4"

15
Perl / perl -> mysql -> perl ->html
« : 24 Ноября 2002, 04:50:25 »
Тут приспичило написать скриптик который вынимал бы из mysql таблицы только те
строки которые удовлетворяли бы параметрам запроса по нескольким параметрам этой строки.
Т.е. таблица 15 колонок - параметры радиоэлементов. Пользователь задает из 15
только 3 (например) - диапазон емкостей, пробивное U и массу искомого
кондёра, и скрипт выдает ему строки из бызы удовлетворяющие его запросу.

Можно сформулировать вопрос так:
Как дать "понять" базе, что если какой-либо параметр не задан, то выбирать информацию из таблицы игнорирую его, но не игнорируя заданные?

Страницы: [1]