Просмотр сообщений
1
Флейм / Парсер поисковика
« : 15 Сентября 2006, 03:42:39 »
можно я оставлю все вышесказанное без внимания - мне жалко свое и ваше время.
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Страницы: [1]
2
Perl / Парсер поисковика
« : 14 Сентября 2006, 22:20:01 »Цитировать
ondr:
нарвешься на Transfer-Encoding: chunked
смени HTTP/1.1 --> HTTP/1.0 либо обрабатывай принятое согласно версии протокола
это был лишь пример, программировать правильные вещи поверьте я умею.
вместе с модулями я бы еще посоветовал http://rfc.net/rfc2616.html
3
Perl / Как предать параметры в perl-скрипт
« : 14 Сентября 2006, 22:07:56 »Цитировать
ondr:
ну что же,
приведу часто используемую цитату на данном форуме: "изобретение велосипеда не преследуется по закону"
похоже вы решили меня преследовать ... (:
4
Флейм / Парсер поисковика
« : 14 Сентября 2006, 22:05:25 »
ой мама, я опять попал на форум где все "долгожители" пинают в грудь себя пяткой.
достаточно обширный опыт в хостинге, различных isp + различные maillists (если слышали о таком), в том числе не только русскоязыные...
отказ от правил протокола в _целом_ я не описал, опять же заострю ваше внимание на первом посте человека, начавшего сей тред - "набросать скрипт". вы же почему это приняли за продакшн. так вот на продакшн я пишу за очень хорошие деньги и совсем не так как вы это увидели в этом треде или где-то еще ... еще раз скажу, что это лишь пример, а скрипт который бы следовал всем правилам и rfc я не стал бы писать за просто так.
это очень похоже на давно известное про миллион леммингов или мух. цитировать не буду.
не все модули _всегда_ отвечают нуждам человека, но я ни в коем случае не осудил ваш метод - метод использования модуля - вы же не понятно из каких соображений тут же раскритиковали мое не предложив кроме _чужих_ модулей _ничего взамен_ ...
если вы самостоятельно не понимаете пропасти между этими вещами (понятиями) - это ваша личная проблема. человек лишь хотел помощи, а _никто_ так ничего толкового ему не сказал... я видел один оффтопик по теме (зачем-то) SEO или прочей ерунды, но никак не относящегося с вопросу человека. или вас больше волнуует что его за это забанят, или все-таки вопрос? если "что его забанят" тогда зачем отвечать в тред если реальной, читай никакой, помощи вы ему не оказали.
перечитаю их еще раз,только не понятно к чему вы это...
Цитировать
ondr:
откуда цифры? источник
и аргументируйте - какую они играют роль в отказе от следования правилам протокола?
достаточно обширный опыт в хостинге, различных isp + различные maillists (если слышали о таком), в том числе не только русскоязыные...
отказ от правил протокола в _целом_ я не описал, опять же заострю ваше внимание на первом посте человека, начавшего сей тред - "набросать скрипт". вы же почему это приняли за продакшн. так вот на продакшн я пишу за очень хорошие деньги и совсем не так как вы это увидели в этом треде или где-то еще ... еще раз скажу, что это лишь пример, а скрипт который бы следовал всем правилам и rfc я не стал бы писать за просто так.
Цитировать
ondr:
пользуйтесь,
но есть и общепринятые методы
это очень похоже на давно известное про миллион леммингов или мух. цитировать не буду.
не все модули _всегда_ отвечают нуждам человека, но я ни в коем случае не осудил ваш метод - метод использования модуля - вы же не понятно из каких соображений тут же раскритиковали мое не предложив кроме _чужих_ модулей _ничего взамен_ ...
Цитировать
ondr:
а если незнакомый человек вас попросит его скинуть с крыши?
если вы самостоятельно не понимаете пропасти между этими вещами (понятиями) - это ваша личная проблема. человек лишь хотел помощи, а _никто_ так ничего толкового ему не сказал... я видел один оффтопик по теме (зачем-то) SEO или прочей ерунды, но никак не относящегося с вопросу человека. или вас больше волнуует что его за это забанят, или все-таки вопрос? если "что его забанят" тогда зачем отвечать в тред если реальной, читай никакой, помощи вы ему не оказали.
Цитировать
ondr:
ps: прочитайте правила форума, они тут рядом прилеплены
перечитаю их еще раз,только не понятно к чему вы это...
5
Флейм / Парсер поисковика
« : 14 Сентября 2006, 21:53:31 »
Смущает ваш стаж в it в целом
читайте про свои сомнения:
http://sysoev.ru/apache/chunked.html - в самом низу ... правда там цифр не приведено...
спорить с вами не буду, бо я вам ничего не должен - не согласны, это опять же ваши проблемы.
читайте про свои сомнения:
http://sysoev.ru/apache/chunked.html - в самом низу ... правда там цифр не приведено...
спорить с вами не буду, бо я вам ничего не должен - не согласны, это опять же ваши проблемы.
6
Perl / Строка в имени переменной
« : 14 Сентября 2006, 20:56:16 »
perldoc -q variable says:
...
How can I use a variable as a variable name?
Beginners often think they want to have a variable contain the name of
a variable.
Что не есть совсем правильно, так же не есть совсем правильно решить проблему через хеш переменных - хеш-хешей.
Но предложенное
${$tmp} = ... является в этом случае наиболее правильным, но вместо $tmp можно было использовать sprintf опять же не вводя лишнюю переменную.
...
How can I use a variable as a variable name?
Beginners often think they want to have a variable contain the name of
a variable.
Что не есть совсем правильно, так же не есть совсем правильно решить проблему через хеш переменных - хеш-хешей.
Но предложенное
${$tmp} = ... является в этом случае наиболее правильным, но вместо $tmp можно было использовать sprintf опять же не вводя лишнюю переменную.
7
Perl / Как предать параметры в perl-скрипт
« : 14 Сентября 2006, 19:00:35 »
этот скрипт, вернее эту часть я пользую уже довольно продолжительное время.
прекрасно работает.
если внимательно посмотрите на скрипт который я привел - там есть sub get_args -> вызывать надо сабу
прекрасно работает.
если внимательно посмотрите на скрипт который я привел - там есть sub get_args -> вызывать надо сабу
8
Флейм / Парсер поисковика
« : 14 Сентября 2006, 18:51:05 »
ondr:
если вы довольно активный пользователь РУнета, то обязаны знать что 90% использует russian apache который этим не болеет.
те модули что вы привели это конечно хорошо, но я пишу себе сам свои модули, за которые я же и буду отвечать. если вам не понравился _пример_ еще раз конкретизирую _пример_, то это только ваша личная проблема.
напомню, что вначале треда человек попросил "набросать", а не "написать".
если вы довольно активный пользователь РУнета, то обязаны знать что 90% использует russian apache который этим не болеет.
те модули что вы привели это конечно хорошо, но я пишу себе сам свои модули, за которые я же и буду отвечать. если вам не понравился _пример_ еще раз конкретизирую _пример_, то это только ваша личная проблема.
напомню, что вначале треда человек попросил "набросать", а не "написать".
9
Perl / Парсер поисковика
« : 14 Сентября 2006, 17:41:04 »
вообще должно сработать...
use Socket;
my $term_escaped = $ARGV[0];
my $proto = getprotobyname(\'tcp\');
my $host = "www.google.ru";
my $port = 80;
my $request = sprintf("GET /search?q=%s HTTP/1.1
Accept: */*
AcceptCharset: *
Accept-Language: ru
Host: $host
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Proxy-Connection: Keep-Alive
", $term_escaped);
socket(SOCK, PF_INET, SOCK_STREAM, $proto);
my $iaddr = gethostbyname($host);
my $paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
my $old_fh = select(SOCK);
$| = 1;
select($old_fh);
print SOCK $request;
while(<SOCK>){
push(@results, $1) if /<a.*class=l.*href=\\"(\\S+)\\".*>.*<\\/a>.*/;
# my @results = <SOCK>;
}
my $i = 1; my $max = 5;
while ($i <= $max) {
printf("%s" ,$results[$i]));
$i++;
}
use Socket;
my $term_escaped = $ARGV[0];
my $proto = getprotobyname(\'tcp\');
my $host = "www.google.ru";
my $port = 80;
my $request = sprintf("GET /search?q=%s HTTP/1.1
Accept: */*
AcceptCharset: *
Accept-Language: ru
Host: $host
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Proxy-Connection: Keep-Alive
", $term_escaped);
socket(SOCK, PF_INET, SOCK_STREAM, $proto);
my $iaddr = gethostbyname($host);
my $paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
my $old_fh = select(SOCK);
$| = 1;
select($old_fh);
print SOCK $request;
while(<SOCK>){
push(@results, $1) if /<a.*class=l.*href=\\"(\\S+)\\".*>.*<\\/a>.*/;
# my @results = <SOCK>;
}
my $i = 1; my $max = 5;
while ($i <= $max) {
printf("%s" ,$results[$i]));
$i++;
}
10
Perl / глюки Spreadsheet::ParseExcel
« : 14 Сентября 2006, 17:35:19 »
во первых, хорошая практика использовать locale
perldoc perlllocale
во вторых, очень хорошая практика использовать printf
perldoc -f printf; perldoc -f sprintf
также хорошая практика использовать разные методы локализации проблемы, которая имеет место быть
попробуйте сделать такой же скрипт (с использованием eq \'Третья\') для формата CSV думаю проблема сохранится
perldoc perlllocale
во вторых, очень хорошая практика использовать printf
perldoc -f printf; perldoc -f sprintf
также хорошая практика использовать разные методы локализации проблемы, которая имеет место быть
попробуйте сделать такой же скрипт (с использованием eq \'Третья\') для формата CSV думаю проблема сохранится
11
Perl / преобразование спец. символов в html сущности.
« : 14 Сентября 2006, 17:29:58 »
perldoc -q taint
Ав ообще очень хорошо понимать тему perldoc perlre, ибо пригодится.
очень хорошая практика все что можно переводить в taint режим
perldoc perlsec
Ав ообще очень хорошо понимать тему perldoc perlre, ибо пригодится.
очень хорошая практика все что можно переводить в taint режим
perldoc perlsec
12
Perl / Как предать параметры в perl-скрипт
« : 14 Сентября 2006, 17:26:39 »
судя по всему вы не сможете слету написать свой модуль который за вас будет делать работу.
поэтому используйте:
0. use CGI;
~$ perl -mCPAN -e \'install CGI\'
~$ perldoc CGI
довольно хорошо изложено
1. mod_rewrite (rewritemap) http://cyberperl.ru/index.php?option=com_content&task=view&id=38&Itemid=1 довольно подробно и просто изложено
и на заметку, скрипту _любому_ данные передаются как STDIN, не нужно изобретать велосипед а просто почитать документацию.
если метод GET это QUERY_STRING, если метод POST это STDIN
вопросы? perl-at-ipchains.ru
sub get_args() {
my(%r);
if ($ENV{"REQUEST_METHOD"} eq "GET") {
$ENV{"QUERY_STRING"} =~ tr/+/ /;
$ENV{"QUERY_STRING"} =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge
;
my(@params) = split("&",$ENV{"QUERY_STRING"});
for ($i = 0;$i < scalar(@params);$i++) {
($option,$value) = split("=",$params[$i]);
$r{$option}=$value;
}
}
if ($ENV{"REQUEST_METHOD"} eq "POST") {
read(STDIN,$temp,$ENV{"CONTENT_LENGTH"});
$temp =~ tr/+/ /;
$temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
my(@params) = split("&",$temp);
for ($i = 0;$i < scalar(@params);$i++) {
($option,$value) = split("=",$params[$i]);
$r{$option}=$value;
}
}
return %r;
}
поэтому используйте:
0. use CGI;
~$ perl -mCPAN -e \'install CGI\'
~$ perldoc CGI
довольно хорошо изложено
1. mod_rewrite (rewritemap) http://cyberperl.ru/index.php?option=com_content&task=view&id=38&Itemid=1 довольно подробно и просто изложено
и на заметку, скрипту _любому_ данные передаются как STDIN, не нужно изобретать велосипед а просто почитать документацию.
если метод GET это QUERY_STRING, если метод POST это STDIN
вопросы? perl-at-ipchains.ru
sub get_args() {
my(%r);
if ($ENV{"REQUEST_METHOD"} eq "GET") {
$ENV{"QUERY_STRING"} =~ tr/+/ /;
$ENV{"QUERY_STRING"} =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge
;
my(@params) = split("&",$ENV{"QUERY_STRING"});
for ($i = 0;$i < scalar(@params);$i++) {
($option,$value) = split("=",$params[$i]);
$r{$option}=$value;
}
}
if ($ENV{"REQUEST_METHOD"} eq "POST") {
read(STDIN,$temp,$ENV{"CONTENT_LENGTH"});
$temp =~ tr/+/ /;
$temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
my(@params) = split("&",$temp);
for ($i = 0;$i < scalar(@params);$i++) {
($option,$value) = split("=",$params[$i]);
$r{$option}=$value;
}
}
return %r;
}
Страницы: [1]