Просмотр сообщений
1171
Perl / Авторизация на статике...
« : 30 Января 2003, 21:35:31 »
Спасибо...
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
1172
Perl / Авторизация на статике...
« : 30 Января 2003, 20:55:47 »
Я вставляю в статичную страницу, в самом начале, через SSI скрипт, проверяющий куки на наличие верного логина и пароля, если логин и пароль не совпадают - скрипт делает автоматический редирект на страницу авторизации.
Вопрос:
Возмрожно ли при загрузке страницы обойти SSI и все-таки загрузить страницу?
Заранее благодарен.
P.S. На странице авторизации запрашивается логин и пароль и записывается в куки...
Вопрос:
Возмрожно ли при загрузке страницы обойти SSI и все-таки загрузить страницу?
Заранее благодарен.
P.S. На странице авторизации запрашивается логин и пароль и записывается в куки...
1173
Perl / Как вставить перловый скрипт в хтмл форму? Памажите!!!!
« : 27 Января 2003, 13:03:34 »
Либо если у тебя уже есть готовая HTML форма в которую нужно вставить данные из скрипта то ставь в HTML коде:
либо
Только, правда, твой провайдер должен поддерживать SSI
либо
Только, правда, твой провайдер должен поддерживать SSI
1174
Базы данных / Вопрос использования инструментов...
« : 27 Января 2003, 12:57:51 »
День добре!!!
Я пишу скрипт каталога статей, который будет полностью генерить систему в HTML код, т.е. в результате динамика будет только в админ-интерфейсе, остальное все полностью статика. Сами статьи, их разделы и списки представляют собой, небольшую базу данных для админ-интерфейса, т.е. обращение к этой базе только через админ-интерфейс.
И вопрос:
Имеет ли смысл закидывать эту базу в MySQL или PostgreSQL? Вообщем-то как таковое обращение к базе будет производится 1 раз в день максимум, и потом сама по себе база будет небольшая рассчитанная, примерно на 500 статей не более. единственно, что статьи сами по себе являются большим текстовым массивом. И еще, когда ета база болтается просто в текстовом формате в виде файлов, то она раздроблена в соответствии с разделами, т.е. данные находятся в разных местах, что само по себе облегчает регенерацию только определенного раздела (статьи) и то что сам по себе массив данных становится небольшим.
P.S. Мои знакомые программисты говорят, что данный скрипт не будет работать без использования MySQL как минимум, из-за того, что могут возникнуть "тормоза" на сервере. Но зачем Использовать базы данных которые постоянно болтаются в оперативке сервака, если к ним нет практически никакого обращения???
Я пишу скрипт каталога статей, который будет полностью генерить систему в HTML код, т.е. в результате динамика будет только в админ-интерфейсе, остальное все полностью статика. Сами статьи, их разделы и списки представляют собой, небольшую базу данных для админ-интерфейса, т.е. обращение к этой базе только через админ-интерфейс.
И вопрос:
Имеет ли смысл закидывать эту базу в MySQL или PostgreSQL? Вообщем-то как таковое обращение к базе будет производится 1 раз в день максимум, и потом сама по себе база будет небольшая рассчитанная, примерно на 500 статей не более. единственно, что статьи сами по себе являются большим текстовым массивом. И еще, когда ета база болтается просто в текстовом формате в виде файлов, то она раздроблена в соответствии с разделами, т.е. данные находятся в разных местах, что само по себе облегчает регенерацию только определенного раздела (статьи) и то что сам по себе массив данных становится небольшим.
P.S. Мои знакомые программисты говорят, что данный скрипт не будет работать без использования MySQL как минимум, из-за того, что могут возникнуть "тормоза" на сервере. Но зачем Использовать базы данных которые постоянно болтаются в оперативке сервака, если к ним нет практически никакого обращения???
1176
Perl / Perl + PostgreSQL???
« : 22 Января 2003, 11:03:01 »
Подскажите пожалуйста, работает ли Perl с PostgreSQL или нет, потому что я нигде не нашел примеров работы с PostgreSQL на языке Perl, только PhP. Вообще возможна ли работа Perl с PostgreSQL, и насколько он лучше MySQL?
1177
Perl / Мерялка трафика
« : 07 Декабря 2002, 17:14:24 »
Подскажите пожалуйста как написать скрипт на Perl для замеры траффика? У меня есть скрипт на PHP + Perl но расковырять его у меня не получается... интересно что перл-скрипт обращается к модулям CGI и PM... ну CGI-модуль понятно... а вот PM - что это за модуль? Документации по нему я найти не смог. скрипт работает под LINUX. Есть ли возможность написать скрипт на Perl и под систему NT-Server?
1178
Perl / Как правильней сделать
« : 11 Ноября 2002, 09:34:15 »
Спасибо, но я все-таки решил в файл где забиты заголовки категорий забить еще 1 переменную с названием файла, тогда в принципе проверять переменную $categ не обязательно, если что и забьют левое, то толку не будет никакого.
1179
Perl / Как правильней сделать
« : 09 Ноября 2002, 11:59:50 »
Есть скрипт который выводит каталог анекдотов, вставлен в одну HTML страницу SSI и только в ней и вертится, но анекдоты разбиты по разделам (тематике) и каждый раздел в своем txt файле, они подгружаются в зависимости от того какие параметры указаны. Мне пришлось в скрипте создать кучу условий, таких как:
if (categ eq "0001") {$base_file="base/1001.txt"}
if (categ eq "0002") {$base_file="base/1002.txt"}
....
if (categ eq "0101") {$base_file="base/1101.txt"}
У меня есть файл в котором перечислены все эти разделы и заголовки к ним, такого вида:
0001|Раздел 1|end
0002|Раздел 2|end
...
0101|Раздел 101|end
Я хочу избавится от этой кучи условий, но вопрос, что правильней, забить в выше указанный файл еще одну переменную, с названием файла, или же прибавлять к переменной $categ еще один или несколько символов вначале для получения имени файла?
Что безопасней и работать быстрее будет?
if (categ eq "0001") {$base_file="base/1001.txt"}
if (categ eq "0002") {$base_file="base/1002.txt"}
....
if (categ eq "0101") {$base_file="base/1101.txt"}
У меня есть файл в котором перечислены все эти разделы и заголовки к ним, такого вида:
0001|Раздел 1|end
0002|Раздел 2|end
...
0101|Раздел 101|end
Я хочу избавится от этой кучи условий, но вопрос, что правильней, забить в выше указанный файл еще одну переменную, с названием файла, или же прибавлять к переменной $categ еще один или несколько символов вначале для получения имени файла?
Что безопасней и работать быстрее будет?
1180
Perl / Нужен скрипт-редирект на разные URL по расписанию
« : 02 Октября 2002, 14:15:10 »
Я бы сделал так:
#!d:/perl/bin/perl
use CGI ;
$query = new CGI;
$id = $query->param(\'id\');
open (FILE, "$id\\.txt");
@db=;
close (FILE);
$url="";
foreach (@db){
($tmp1,$tmp2,$tmp3,$end)=stlit (/\\|/,$_);
if ($tmp1 ne $tmp2){
$url= tmp3;
$tmp2 += 1;
$_=$tmp1."|".$tmp2."|".$tmp3."|end\\n";
}
}
if ($url eq ""){
open (FILE, ">$id\\.txt");
$db1=;
close (FILE);
($tmp1,$tmp2,$tmp3,$end)=stlit (/\\|/,$db1);
$url=$tmp3;
foreach (@db){
($tmp1,$tmp2,$tmp3,$end)=stlit (/\\|/,$_);
$tmp2 = 0;
$_=$tmp1."|".$tmp2."|".$tmp3."|end\\n";
}
}
open (FILE, ">$id\\.txt");
print FILE @db;
close (FILE);
print "Locate: $url\\n\\n";
#########################
ссылка - blablabla.cgi?id=имя файла
Должны быть файлы следующего вида:
"Сколько раз кликать по ссылке - 1"|0|URL - 1 куда направляется|end
"Сколько раз кликать по ссылке - 2"|0|URL - 2 куда направляется|end
По идее должно работать...
#!d:/perl/bin/perl
use CGI ;
$query = new CGI;
$id = $query->param(\'id\');
open (FILE, "$id\\.txt");
@db=
close (FILE);
$url="";
foreach (@db){
($tmp1,$tmp2,$tmp3,$end)=stlit (/\\|/,$_);
if ($tmp1 ne $tmp2){
$url= tmp3;
$tmp2 += 1;
$_=$tmp1."|".$tmp2."|".$tmp3."|end\\n";
}
}
if ($url eq ""){
open (FILE, ">$id\\.txt");
$db1=
close (FILE);
($tmp1,$tmp2,$tmp3,$end)=stlit (/\\|/,$db1);
$url=$tmp3;
foreach (@db){
($tmp1,$tmp2,$tmp3,$end)=stlit (/\\|/,$_);
$tmp2 = 0;
$_=$tmp1."|".$tmp2."|".$tmp3."|end\\n";
}
}
open (FILE, ">$id\\.txt");
print FILE @db;
close (FILE);
print "Locate: $url\\n\\n";
#########################
ссылка - blablabla.cgi?id=имя файла
Должны быть файлы следующего вида:
"Сколько раз кликать по ссылке - 1"|0|URL - 1 куда направляется|end
"Сколько раз кликать по ссылке - 2"|0|URL - 2 куда направляется|end
По идее должно работать...
1181
Perl / Подскажите где можно найти скрипт двойного каталога
« : 01 Октября 2002, 14:07:13 »
Вот "дополнительных ссылок" честно говоря в линксах не видел.
А проблемы в общем-то и нет, скрипт и так у меня работает на текстовых файлах. Просто подобное я писал в первый раз и не исключено, что некоторые решения можно было-бы сделать проще... я просто хочу сравнить...
А проблемы в общем-то и нет, скрипт и так у меня работает на текстовых файлах. Просто подобное я писал в первый раз и не исключено, что некоторые решения можно было-бы сделать проще... я просто хочу сравнить...
1182
Perl / Подскажите где можно найти скрипт двойного каталога
« : 01 Октября 2002, 13:50:08 »
Феноменального ничего нет... link 2 у меня стоит на toplist.picc.ru , мне интересно решение синхронизации каталогов...
1183
Perl / Подскажите где можно найти скрипт двойного каталога
« : 01 Октября 2002, 13:17:02 »
Я написал на перле скрипт на портал pointinfo.picc.ru , где идет двойной каталог: по учебным заведениям и по специальностям, которые взаимосвязаны друг с другом, все html страницы в каталогах генерятся Perl. Но мне хотелось бы посмотреть, как такие же задачи были решены другими людьми. Поиск примеров скриптов ничего не дал...