Как правильно выбирать CGI скрипты

[Green Kakadu]

многие ищут по критерию воз-тей: мол делает что мне надо, значит рулезный скрипт, и вовсе не задумываются о его реализации.
На сайте http://perl.com появилась статья:
Finding CGI Scripts ( http://www.perl.com/pub/a/2002/01/23/cgi.html )
О том где найти скрипты, и как выбрать наилуший.
Вот некоторые рекомендации по выбору скрипта:

- используется ли в скрипте ключ -w и прагма strict?
Если да, то хорошо, значит как минимум, программер знал о существовании таковых и смог написать "корректный код", т.к. ключ и пагма strict заставляют интерпритатор Perl быть более настороженным к коду

- используется ли контроль меченных данных?
Ключ -T. Данный режим прежде всего полезен форумам, гостевым книгам, доскам объявлений, т.е. тем, где могут запостить всякую гадость, которую скрипт тупого программера может применить для каких нибудь критичных функций (верх идиотизма - разборка eval    ) В общем, повышаем надежность. Такие ненадежные  данные всегда надо проверять.

- Использует ли скрипт CGI.pm
Это стандартный модуль Perl, который можно найти везде, где есть сам Перл, но некоторые умники предпочитают обрабатывать самостоятельно передаваемые данные... что чревато ошибками и защищенностью скрипта.

- Как часто скрипт обновляется?
Если часто, значит его автор заботится, следит за своим творением и пытается его сделать лучше или хотя бы конкурентноспособным

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

[Green Kakadu]

судя по всему вышеизложенному, хороший CGI скрипт должен как минимум выглядеть так:

#!/usr/bin/perl -Tw
use strict;
use CGI qw/:standart/;
use vars \'$global_var\';

остается лишь немного дописать и скрипт готов.
Давайте сделаем супер грабилку - устроим Yandex на дому.

#!/usr/bin/perl -Tw
use strict;
use LWP::Simple;
use vars \'$url\', \'$html\';
$url=\'http://yandex.ru\';
$html=head($url);#Проверим, жив ли сайт
if ($html){
 $html=get($url);
}
else {$html=\'Яндекс Умер!\'}
$|++;
print "Content-type: text/html\\n\\n";
print $html;

Во, создан супер скрипт проверки Яндекса на живучесть.

Ага и занимать он будет как твой код + CGI.pm т.е. где-то 500 байт + 300 кбайт. Мда. Большое удовольствие интерпритатору интерпритировать всё это...

[Chs]

Ага и занимать он будет как твой код + CGI.pm т.е. где-то 500 байт + 300 кбайт. Мда. Большое удовольствие интерпритатору интерпритировать всё это...

Ну да, лучше изобрести велосипед и сделать разбор параметров и большую часть функций CGI самому, влепив пару-тройку ошибок, сделав только метод гет, потом добавить пост, когда он понадобиться, помучиться с разбором multipart/form-data... В процессе использования своих функций наткнуться на ошибки.
Для приобретения навыков программирования это конечно полезно.
Кстати про експорт только части функций модуля может слышали? Тогда и интерпретатор "получит удовольствие"...

а про CGI::Lite не слышали, что ли?

[flymio]

уууу ... навеяло ...
грабилка запросов яндекса))) некрасиво, зато работает)))


но самое интересное))) - никому не нужна))) о как)))


#!/usr/bin/perl
require IO::Socket;
print "Content-type: text/html\\n\\n";
print "\\n";
for($q=0;$q<=3;$q++)
{
my($host, $port) = ("yandex.ru",80);
$port ||= 80;
my $url = "/last20.html";
my $remote = IO::Socket::INET->new(Proto     => "tcp",
PeerAddr  => $host,
PeerPort  => $port,
);
unless ($remote) {
die "cannot connect to http daemon on $host";
}
$remote->autoflush(1);
print $remote "GET $url HTTP/1.0\\n\\n";
my $response_line = 0;
my $header_terminator = 0;
my @msg = ();
my $i=0;
while ( <$remote>) {
$i++;
if ($i eq 29){$v = $_;last;}
}
close $remote;
$beg=\'\';
$midl = \' · $end = \'\';
open(ST,">>yandex.txt");
while ($v =~ s/$beg(.+?)$midl(.+?) target=_blank>(.+?)$end/ /e)
{print ST "$1;;$3\\n";}
close ST;
}
exit;

[flymio]

так всегда))) на самом интересном месте ... а насчёт грабилки ? ...
какая бы она ни была кривая, она не делает ничего необычного, она просто тупо грабит запросы со страницы,
при этом мы имеем такую интересную информацию, что же ищут пользователи ...


у меня сейчас база (текстовая) уже перевалила 500 мг ... там есть таааакое ... просто жуть)))
особенно запросы по слову моя ...
говорю сразу, они имеют слегка ненормальный характер)))

[Green Kakadu]

там есть таааакое ... просто жуть)))
особенно запросы по слову моя ...
говорю сразу, они имеют слегка ненормальный характер)))

могу себе представить Правда вроде последние пол-года там запросы несколько не те - ну одно и тоже за последний час, очень часто один и тот же запрос крутится несколько раз в течении часа, т.е. частоту того или иного запроса уже не определишь, а вот картину что ищут, да.
Я тоже делал такую

[puh]

Green Kakadu
Очень ценю и уважаю мнение, но...
Если не будем делать ошибок, то не будет и учебы. Очевидно, чтобы стать хорошим Perl-программистом придется наломать дров на начальном этапе.
А у вас разве сразу все было как надо и как следует? Что-то не верится...

[Green Kakadu]

А у вас разве сразу все было как надо и как следует?

у меня и сейчас все криво получается : все что написано в статье, это нечто вроде перевода (хотя и несколько от него и далеко).

А так согласен, используя тот же CGI.pm можно писать скрипты и при этом смутно представлять как же из формы данные получают, что не есть хорошо.
С др. стороны ошибок то действительно меньше будет.

[Xander]

Про них такие ценные статьи имеются?