Релиб / Веб-программирование / Perl / Несколько вопросов по Perl______________________ / Latest Posts

RE: Несколько вопросов по Perl______________________

PoizOn — Tue, 07 Jun 2005 14:19:00 GMT

Для того чтобы использовать redirect надо подключить модуль CGI, как я и написал:use CGI qw/ :standart/;Но достаточно и location.Теперь про алгоритм. Дело в том что хэдер (загоолвок) можно отправить только один за раз вызывания скрипта (сори за некоторую корявость), то есть если у вас в скрипте идет в самом начале location, то он сразу редиректится будет, если text/html - то все последующие location не запишутся в заголовок а запишутся в content. Тут можно делать так:if(что-то) {print "Location:

";} else {print "Content-Type: text/html

";}Для того чтобы работали эти принты не только из начала скрипта - в начале поставьте:$|=1;это отключит буферизацию.В вашем же случае есть смысл сделать не так, а просто после удачного подключения редиректить на страницу с тегами <meta refresh...> где писать об удачном подключении и редиректить снова. Как во многих популярных форумах после добавления сообщения.

RE: Несколько вопросов по Perl______________________

californis — Tue, 07 Jun 2005 14:04:00 GMT

При использованииprint redirect(-uri => $url); Я получаю ошибку:"Undefined subroutine &main::redirect called at /home..... line 40.For help, please send mail to the webmaster (you@yourhost.com), giving this error message and the time and date of the error. "а по поводу второго метода: print "location.."тут следующая проблема:1. прежде всего в самом начале кода я пишу print "ContextType:text/html

"если это заменить на print "location..." (опять же в самом начале) то по окончании кода будет сделан редиректесли же я сделаю print "location... в чредине кода, то ничего не произойдет.вобщем у меня такой алгоритм:1. подключаюсь к базе2. если пароль не верный - вывожу сообщение и никуда дальше не редиректюсь3. что-то делаю.4. если 3 успешно, то вывожу сообщение через print "<script>alert("OK");.." после этого редиректюсь на некоторый адрес.Но тут масса проблем: 1) как я говорил если написать print "ContextType:text/html

" в самом начале кода то alert выскакивает.а если print "ContextType:text/html

" заменить на print location то алерт не выскакивает и вообще не важно ошибка-нет а идет редирект на другой адрес. это не правильно.2) я не могу в середине кода поставить print location - он просто не работает. он работает только если стоит вместо print "ContextType:text/html

"а при попытке заменить print location на print redirect получаю ошибку описанную выше..

RE: Несколько вопросов по Perl______________________

PoizOn — Tue, 07 Jun 2005 09:46:00 GMT

Насчет web services понял, хотя Perl может почти и все . Работать с удаленными данными по http протоколу - легко, но тут тогда речь не об использовании кода с другого сервера - а об запросах и получении данных - но не кода.P.S Насчет редиректа, поясни задачу которую ты хочешь реализовать. В большинстве своем: если у тебя скрипт без операторов условия, то логика выполнения скрипта с редиректом такая:#!/usr/bin/perl$|=1;делаем все что нам нужноprint "Location: $url

";или как вам советовали в другом посте use CGI qw(:standart);print redirect(-uri => $url); Хотя смысла в CGI в данном вопросе я не вижу.Все зависит от задачи. Я к примеру работаю с редиректом в основном так:if(что-то) {print "Location:...

";} else {print Content-Type: text/html

";....}В общем зависит от задачи.

RE: Несколько вопросов по Perl______________________

californis — Tue, 07 Jun 2005 06:33:00 GMT

кстати, а по редиректу как решить ту проблему?

RE: Несколько вопросов по Perl______________________

californis — Mon, 06 Jun 2005 19:04:00 GMT

Например, такой пример:ты разрабатываешь веб сайт на котором ввозишь город, страну, и он показывает тебе точную карту (вроде map.yahoo.com)у тебя есно нет таких карт и данных! да и место это занимает много. и занимаются картами совсем другие люди. и все это дорого- т.к. делаются они-карты с помощью спутников. поэтому ты просто покупаешь доступ к их сервису где есть карты, классы и методы.далее на своем сайте ты уже просто создаешь прокси того класса который будешь использовать, и передаешь лишь входные данные а на выходе получаешь карту от удаленного веб сервиса.есно этим сервисом ты не владеешь. ты лишь как бы арендуешь доступ к использованию его ф-ий. а уже сами сервисы могут быть либо платными либо бесплатными.

RE: Несколько вопросов по Perl______________________

californis — Mon, 06 Jun 2005 18:48:00 GMT

нет. это не одно и тоже!то что ставится на свою машину либо на машину хостера где лежит твой проект - это лишь плагины.А тут речь о другом. скажем компания А разрабатывает классы и методы для работы с геокартами. А твоя компания Б разрабатывает некий проект в котором нужны все эти ф-ии. Но ты не разрабатываешь их сам, а твой проект просто <b>удаленно </b> обращается на совсем другой хост где находятся классы которые тебе нужны. причем обращение идет не "напрямую" а через некоторый "прокси" который создается (в дот нете это утилита wsdl)и который представляет из себя оболочку тех удаленных классов с которыми ты будешь работать

RE: Несколько вопросов по Perl______________________

PoizOn — Mon, 06 Jun 2005 18:32:00 GMT

На Perl это реализовано через модули. Как правило в стандартную поставку Perl (если версия свежая) входят уже почти все необходимые модули. Те которые не входять - можно либо установить самому, либо просить хостера. На Perl имеется огромное кол-во модулей на все случаи жизни, найти их можно на search.cpan.org. Так что ситуация даже лучше чем с асп, так как эти модули лежат не на каком-то сервере - а на общедоступном архиве.

RE: Несколько вопросов по Perl______________________

californis — Mon, 06 Jun 2005 17:23:00 GMT

Web Service - это в принципе некоторый класс с набором методов физически находящийся на некотором web server, и в случае если у вас есть доступ, то вы можете его использовать в своей программе/проекте.веб_приложении.Например: есть класс лежащий на неком сервере который предоставляет вам методы для работы с географическими картами и позволяет вам также их получать с сервера-владельца.Поэтому в своем проекте у вас нет необходимости писать все это- вы можете воспользоваться тем что уже готово(бесплатно или за плату).В общем с веб серверами я работал только на .NET (asp.net) , но это не изобретение ms, с веб сервисами можно работать на java.

RE: Несколько вопросов по Perl______________________

PoizOn — Mon, 06 Jun 2005 15:48:00 GMT

$dbh=DBI->connect(... {PrintError =>1, RaiseError=>1})в рез-те если ввожу неправильный пароль то ничего не пишется...Здесь есть смысл писать только PrintError, а вторую опцию в ноль, тогда будет писать (в логи веб сервера - если хотите получать в броузер - подключите модуль CGI::Carp qw(fatalsToBrowser)), вторая опция отключает скрипт после любой ошибки. Помимо этого - есть еще глобальные переменные модуля DBI которые так же контролируют ошибки - это $DBI::Err и $DBI::Errstr, если не ошибаюсь. В общем - если хотите серьезно работать с БД - то советую почитать http://search.cpan.org/~timb/DBI-1.48/DBI.pm , модуль предоставляет широкие возможности, в том числе и транзакции и т.п.1. Как работать с web services - незнаю что под этим подразумевается.... Просветите. (я серьезно)Проблема с редиректом. Тут возможно вы не много не првильно решаете задачу, которая требуется. Что конкретно нужно реализовать - может я вам подскажу более правильный алгоритм для Perl

RE: Несколько вопросов по Perl______________________

californis — Mon, 06 Jun 2005 14:11:00 GMT

1. А как работать с Web Services?2. Дело в дефолтных настройках DBI, нужно при коннекте (если хотите ошибки получать) включать некоторые опции:$dbh=DBI->connect(... {Print Error =>1, RaiseError=>1})PrintError - выводит сообщения об ошибкахRaiseError - включает строгий кнтроль, то есть если что-то прошло не так - скрипт останавливается и дальше не выполняется (в основном используется для отладки - по умолчанию отключена)тут у мня проблема:сделал таким образом(т.е. добавил PrintError):$dbh=DBI->connect(... {PrintError =>1, RaiseError=>1})в рез-те если ввожу неправильный пароль то ничего не пишется....3. вторая проблема с редиректом:как и говорилось выше вместо print "ContextType:...."в самом начале я написал print "location: url"далее я делаю что-то и в конце завершаю:print "<script>...alert('TEST');</script>";Так вот, если в первой строке убрать location и оставить просто contexttype то выскочит alert с фразой ТЕСТ.Но мне надо чтобы после этого страница редирекнлась на другой урл.в рез-те, если я верну location я получаю что страница редиректится но фраза "ТЕСТ" в alert не выводится...Как решить эту проблему?