Сообщения

1

Perl / как отключить создание страницы?

« : 28 Февраля 2007, 13:42:06 »

этот вопрос больше по html, чем по Perl.
если вы пишите

http://www.captain.at/howto-ajax-form-post-get.php (даже я все сразу поняла ) ну и все же придется немного подправить свой скрипт: сначала необходимо проверить - пришли ли ему параметры. если нет - выводить форму, если пришли - отправлять письмо и выводить форму.

2

Perl / module CGI & start_html()

« : 25 Января 2007, 21:03:31 »

мне вот хостер не дал бы открыть CGI.pm и закоментировать.
отключить можно так:
use CGI qw/-no_xhtml :standard/;

3

Perl / Проверка существования функции

« : 17 Декабря 2006, 16:15:46 »

если вы хотите проверить - есть ли у объекта метод:

Код: [Выделить]

if ($obj->can("method_name")) { .... }

4

Perl / RiSearch - как они так сделали?

« : 11 Декабря 2006, 11:45:55 »

а в конце скрипта есть eval что-то?
если есть - поставте перед ним print

5

Perl / Запуск PHP скрипта из Perl

« : 04 Декабря 2006, 20:50:13 »

мой php тоже оставляет желать лучшего, но всё же - по аналогии - правильно было бы напечатать, то что получили:

Код: [Выделить]


// php
#!/usr/bin/php
//exec("perl ./test.pl",$q);
//print_r($q);
echo "1";
$handle = popen(\'perl -e t.pl\', \'w\');
fwrite($handle,"test"."\\n");
fclose($handle);
echo "$handle 2";
?>


6

Perl / Запуск PHP скрипта из Perl

« : 04 Декабря 2006, 20:35:31 »

Integra,
попробуйте этот вариант:

Код: [Выделить]

// php
#!/usr/bin/php

//exec("perl ./test.pl",$q);
//print_r($q);

echo "1";

$handle = popen(\'perl -e t.pl\', \'w\');
fwrite($handle,"test"."\\n");
fclose($handle);
echo "2";
?>
// запускаемый


#!/usr/bin/perl
my $in = ;
print "Content-Type: text/html\\n\\n";
print , $in;

7

Perl / Вот интересный вопрос...

« : 07 Августа 2006, 11:33:58 »

я бы хранила в виде хэша массивов

8

Perl / Поиск (определение контента)

« : 13 Июля 2006, 18:41:22 »

xmolex:
Только less в windows работать не будет

http://www.greenwoodsoftware.com/less/download.html
и у Вас будет работать.

9

Базы данных / FULLTEXT

« : 12 Июня 2006, 14:35:00 »

не буду спорить. Возможно вы правы, но моя практика показывает совершенно обратное (почти - если поле longtext - поиск в нём не работает. Если text - работает лишь при включенном IN BOOLEAN MODE,
а вот, если varchar - то работае всё, как и должно. пробовала на версии MySQL 4.1.12
Не знаю, может в чём-то ошиблась при указании кодировок, при создании таблиц... Но в общем-то старалась всё делать "как написано".

10

Базы данных / FULLTEXT

« : 08 Июня 2006, 14:09:42 »

AnnA:
вносим данные в поля title [text] и content[longtext]:

\'О компании\',\'Windows XP (кодовое название при разработке — Whistler; внутренняя версия — Windows NT 5.1) — это операционная система\'

 только в одной!
одна запись в таблице.

поиск работает, если к запросу добавить  IN BOOLEAN MODE

а что касается longtext, то в документации написано, что
индекс FULLTEXT можно объявить только для полей типа varchar   и text



в общем - сама спросила - сама ответила.
более-менее разобралась, но всё равно ещё не все вопросы закрыты.

11

Базы данных / FULLTEXT

« : 05 Июня 2006, 20:12:21 »

вот странно. сделала content не longtext, как было раньше, а text.
и всё равно не работает запрос:
SELECT * FROM t WHERE MATCH (title,content) AGAINST (\'версия\').

12

Базы данных / FULLTEXT

« : 05 Июня 2006, 19:42:36 »

всем приветик.
подскажите: нельзя объявить индекс fulltext для столбчика longtext???
странно по-моему. разве нет?
т.е. он, конечно, открывает табличку. принимает данные, но нет поиска.
например, вносим данные в поля title [text] и content[longtext]:

Код: [Выделить]

\'О компании\',\'Windows XP (кодовое название при разработке — Whistler; внутренняя версия — Windows NT 5.1) — это операционная система\'
теперь делаем запрос:

Код: [Выделить]

SELECT * FROM t WHERE MATCH (title,content) AGAINST (\'компании\')
работает.

Код: [Выделить]

SELECT * FROM t WHERE MATCH (title,content) AGAINST (\'версия\')
а вот этот запрос возвращает нулевой результат.
делаем иначе:

Код: [Выделить]

SELECT * FROM t WHERE content LIKE \'%версия%\'
этот сработал!

13

Perl / парсинг html

« : 25 Апреля 2006, 13:25:10 »

Код: [Выделить]

 use HTML::TokeParser;
my $p = HTML::TokeParser->new("index.html");
if ($p->get_tag("title")){
   my $title = $p->get_trimmed_text; # Содержимое