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

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


Сообщения - DDHR

Страницы: [1] 2
1
Perl / Регулярные выражения
« : 07 Октября 2004, 11:52:39 »
Цитировать
NeoNox:


а не
something

some text [img="id"]


второе:
something <p><img src="1.jpg"><img src="2.jpg"><img src="3.jpg"></p>some text [img="id"]


Цитировать
Phoinix:
Кросспостить нехорошо...



Извините. Буду знать. Но мне показалось, что там ответа я уже не получу... Обычно, если я не получаю ответа на другой стороне, спрашиваю здесь. Кстати, а как тогда быть(на будущие...)? Самому, сейчас скажите додумываться =)? Или впредь спрашивать только в одном месте, а то я не знаю какая у вас политика на этот счёт между сайтами.

2
Perl / Регулярные выражения
« : 06 Октября 2004, 15:49:54 »
Можно ли отследить в сообщении такую штуку:
у юзера в сообщении присутствуют такие теги: ... something [img="1"] [img="2"] [img="3"] some text [img="id"] ...

вот мне нужно чтобы регулярное выражение бы отследило зависимость, например, если встречаются два и более раз [img="...id..."] при этом их разделяют пробел(ы), то вся эта конструкция заменялась бы на такое:

<p><img src="1.jpg"><img src="2.jpg"><img src="3.jpg"></p>

(это как в моём примере, на самом деле цифры 1,2,3 - значения при img), если четыре таких тега соответствено на

<p><img src="1.jpg"><img src="2.jpg"><img src="3.jpg"><img src="4.jpg"></p>

Если такое возможно, то подскажите плз. как это сделать.
Спасибо.

3
Perl / Подпрограмма
« : 06 Мая 2004, 19:15:53 »
Ну, тогда тема закрыта!

4
Perl / Подпрограмма
« : 06 Мая 2004, 19:13:28 »
ВСЁЁЁЁ! УРА!!!! и Браво! :beer:  Вот ошибка:

Я то выборку из таблицы произвожу в подпрограмме, а подключение к БД не делаю (в самой же подпрограмме, а делаю только в основной)... хех... вот поэтому и не работало!

ОГРОМНОЕ Спасибо вам лично за помощь и потраченное на меня время!
_________
PS: а подключение к БД ведь можно в отдельную подпрограмму занести и вызывать в другой подпрограмме?

5
Perl / Подпрограмма
« : 06 Мая 2004, 18:59:58 »
use strict в основной программе использую..., а в подпрограмме его тоже нужно писать?

6
Perl / Подпрограмма
« : 06 Мая 2004, 18:57:58 »
Да, вы правильно поняли. Тут я ошибся с оформлением..., переделал..., изменений нет. Она (осн. программа) как-будто перестаёт работать после вызова фунции.

7
Perl / Подпрограмма
« : 06 Мая 2004, 18:00:45 »
sub cat($cat)
{
          $categories = $dbh->prepare("SELECT * FROM categories WHERE type=\'news\'")|| die "Can\'t prepare statement: $DBI::errstr";
          $categories->execute;

$end=0;

while(@row = $categories->fetchrow_array)
{

if($row[3] == $cat)
{
$end=1;
}

}

           $categories->finish;

undef @row;

if($end != 1)
{

          $categories = $dbh->prepare("SELECT * FROM categories WHERE type=\'news\'")|| die "Can\'t prepare statement: $DBI::errstr";
          $categories->execute;

while(@row = $categories->fetchrow_array)
{

if($row[2] == $cat)
{
$p=$row[1];
$l=$row[2];
}

}

           $categories->finish;
           @names=(@names,$p);
           @cats=(@cats,$l);

}
else
{

$l=$cat;

for ($i=0; $i<10; $i++)
{
$n=0;
          $categories = $dbh->prepare("SELECT * FROM categories WHERE type=\'news\'")|| die "Can\'t prepare statement: $DBI::errstr";
          $categories->execute;
while(@row = $categories->fetchrow_array)
{

if($n==0)
{
$n=0;
}

if($row[3]==$l)
{
$p=$row[1];
$l=$row[2];
@cats=(@cats,$row[3]);
@names=(@names,$row[4]);
$n=1;
}

}
          $categories->finish;

}
@cats=(@cats,$l);
@names=(@names,$p);
}







        @names=reverse @names;
        @cats=reverse @cats;

return (@cats);
}
1;

8
Perl / Подпрограмма
« : 06 Мая 2004, 17:37:30 »
Я тут кое-что выяснил: файл не создаётся если это:

open (FH, ">./debug") or warn "Can\'t open file: $!@";
print FH \'Done!\';
close FH;


написать не после require..., а после вызова подпрограммы из этого модуля:

название подпрограммы($cat); # я её так вызываю (причём в цикле)

вот здесь вобщем перестаёт работать!

9
Perl / Подпрограмма
« : 06 Мая 2004, 16:27:23 »
Да, создаётся.

10
Perl / Подпрограмма
« : 06 Мая 2004, 15:52:35 »
Неа, нет, полный путь не повлиял, я его и так правильно указывал ранее... Да чтож такое та... уже пару дней бьюсь над глупой незадачей...

11
Perl / Подпрограмма
« : 06 Мая 2004, 15:45:34 »
конечно же не на русском =) файл.pl хех =)

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

12
Perl / Подпрограмма
« : 06 Мая 2004, 15:34:29 »
Так он ведь, как я сказал ничего и не выводит после строчки require "../файл.pl"; или вы про саму подпрограмму?

13
Perl / Подпрограмма
« : 05 Мая 2004, 19:45:40 »
хм... сделал всё, как сказали и проблема осталась... дело в том, что в том файле, который я подключаю есть ещё подпрограммы, может это влияет на ход выполнения? или ещё что?

14
Perl / Подпрограмма
« : 05 Мая 2004, 18:14:52 »
То, что вы сказали - это мне пригодится, но проблема в том, что основная программа, после строчки require "../файл.pl"; она вообще ничего не показывает(не выводит на печать), а только то, что до неё!

15
Perl / Подпрограмма
« : 05 Мая 2004, 16:54:40 »
Вот так я в основной программе вызывал подпрограмму:
require "файл";
имя подпрограммы($cat);

Вот то, что по идеи она должна возвращать:
return (@cats и @names);

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