Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - ravshaniy

Страницы: 1 ... 11 12 [13]
181
Perl / Запуск PHP скрипта из Perl
« : 05 Декабря 2006, 10:56:44 »
если вы уже апач приплели, то можете просто генерить запрос

Запрос в PHP:
http://www.example.com/\');  ?>
#array file ( string filename [, int use_include_path [, resource context]] )

Запрос в Perl:
use LWP;

my $def_url = shift || http://default.url\';
my ($line) = get_url_content($def_url);
#http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP.pm#The_Response_Object
sub get_url_content {
   my $url = $_[0];
   my $agent = LWP::UserAgent->new;
   my $request = HTTP::Request->new( GET => $url );
   my $response   = $agent->request($request);
   $response->is_success or die "can\'t connect $url", $response->message, "\\n";

   return $response->content();
}

182
Perl / Запуск PHP скрипта из Perl
« : 04 Декабря 2006, 19:35:44 »
Цитировать
Integra:
Попробуйте, так работает. Это таинственный шОманизм интерпертатора php, видимо

даже пытаться не буду, вы ошибаетесь

183
Perl / Запуск PHP скрипта из Perl
« : 04 Декабря 2006, 19:16:22 »
Цитировать
Integra:
echo "other-text";
exec("php result.php &",$ret);
echo $ret[3];
echo "other-text";
?>
Запускаемый скрипт содержит строчки:

я конечно могу ошибаться, но exec ни в перле ни в пхп не возвращает результат своего выполнения в  скрипт который его вызывает. комманда exec создает паралельный процесс, у которого свой собственный вывод. единственное что вы вернете таким методом это 1 в случае безуспешного выполнение exec("php result.php &",$ret); кажется так, но опять же могу ошибаться я новичег

184
Perl / Запуск PHP скрипта из Perl
« : 04 Декабря 2006, 18:46:04 »
а вы бы код написали, так посмотреть, именно что вы делаете?

185
Perl / Запуск PHP скрипта из Perl
« : 04 Декабря 2006, 18:28:01 »
Цитировать
Integra:
линуксового программирования

вот такого конечно я еще не встречал )

программирование таки на мой взгляд это программирование прежде всего если уж на то пошло.

Ну да ладно, не думал что Вы будете настаивать на своем вопросе )

1. прежде всего мне кажется сомнительным запуск php скриптов написаных под веб, и генерящих страницу из коммандной строки. Мне кажется вы потеряете ряд переменных окружения и скрипт может дать ошибку.
* я бы посоветовал | use LWP;
2. не понимаю причем тут потоки ? к этому вопросу. но вообще они легко делаются
но в принципе если вам интересен этот вопрос советую *Линкольн Д.Штайн "Разработка сетевых программ на Perl"*

простите если не понял в чем ваш вопрос

186
Perl / Запуск PHP скрипта из Perl
« : 04 Декабря 2006, 18:04:13 »
хы, мне кажется в решении какого то вопроса, в системном подходе к решению есть такие вещи как анализ - разложение сложной структуры до атомов ). попробуйте разбить ваш вопрос на простые три )

187
Perl / Что за сессии за такие?
« : 04 Декабря 2006, 17:59:52 »
хы долго думал, стоит ли таки вставить свое слово среди монстров ). больше всего я согласен с вот этим высказыванием
Цитировать
NeoNox:
Протокол НТТР изначально проектировался без поддержки механизма информации о состоянии сеансов работы пользователя. Индивидуальные запросы не связаны друг с другом, и НТТР-сервер не располагает средствами распознавания конечных пользователей между сеансами. Поэтому требуется определить способ идентификации пользователя, связать данные предыдущих и текущего сеансов работы пользователя.


А сессии нам как раз нужны для того чтобы изолировать сеанс пользователя.

И при таком раскладе единственно адыкватный выход - передавать броузеру идентификатор, а данные сеанса хранить на сервере. Чем в принципе и пользуются все решения как php так и perl думаю, хотя не знаком, так и ASP.NET

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

188
Perl / Запуск PHP скрипта из Perl
« : 04 Декабря 2006, 17:33:12 »
я имею в виду что узкие круги как то не могут не отметить ветьеватость этого вопроса )

189
Perl / Запуск PHP скрипта из Perl
« : 04 Декабря 2006, 17:31:52 »
хы, как то и даже и не знаешь что в таких случаях сказать ), вроде вопрос серьезный потоки даже вывода, в принципе. я думаю вопрос серьезный и требует обсуждения в узких кругах )

190
Perl / модуль Encode::InCharset, как detect encoding, определение кодировки строки
« : 04 Декабря 2006, 10:57:29 »
Если Вы сталкивались с этой проблемой, подскажите как вы ее решили. я пытаюсь ее решить с помощью модуля
Encode::InCharset

И, честно говоря, пока он ругается \\p{In}

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


use strict;
use utf8;
use Encode::inCharset qw(InCP1251 InCP866 InKOI8_R);
my $item = \'хочу узнать кодировку\';

my @chkCharsets = qw(InCP1251 InCP866 InKOI8_R);

my $itemEnc = get_items_encoding($item, @chkCharsets);

 sub get_items_encoding{
  my ($item, @chkCharsets) = @_;
  my $rs = 0;
  for my $itemEnc(@chkCharsets) {
        unless ($item =~ m/(\\p{$itemEnc})+/o){
           ($rs=$itemEnc)=~ s/^In(.*)$/$1/;
           last;
        }
        print   "$item - no match: $itemEnc\\n";
  }
  return $rs;
 }


Цитировать
Ошибка:
Can\'t find Unicode property definition "InCP1251"

 
вот такой момент

191
Perl / DBI дает ошибку на русский язык
« : 28 Ноября 2006, 19:15:16 »
блин позвольте я сниму этот вопрос, там чтото в другом проблема, отдельным тестом это все сработало

192
Perl / DBI дает ошибку на русский язык
« : 28 Ноября 2006, 18:23:45 »
а я там меняю кстати и в UTF8 и в cp1251 и в KOI8 и даже в CP86 ну чета не помогает эта шняга, меняю через Lingua::RU::Charset

193
Perl / DBI дает ошибку на русский язык
« : 28 Ноября 2006, 17:11:29 »
К сожалению только недавно начал заниматься перлом, и к сожалению тестирую скрипты под win xp, если это имеет значение.
Объясните мне пожалуста одну вещь. почему:
my $item = "asdfasdf";#работает
my $item = "фывафыва"; # дает ошибку DBD::mysql::st execute failed: Data too long for column \'title\' at row 1 at file.pl

use DBI;
use DBD::MySQL;

my $dbh = DBI->connect( $dns, $login, $password, {RaiseError=>1} ) ;
$dbh->do("SET NAMES cp1251");

my $sql = "INSERT $tableName (`title`) VALUES ( ? )";
my $sth = $dbh->prepare("$sql");
$sth->trace(2);
$sth->execute( $item ) || die $sth->errstr;
#`title` - varchar

Спасибо заранее

Страницы: 1 ... 11 12 [13]