Perl, как перевести скрипт из php в perl?
Добавлено: 2011-05-10 15:14:43
Уважаемые гуру, помогите перенести скрипт из php в Perl .
Собсно на пхп то все пучком, мне нужно на перле это сделать, скока запросов и поисков не делал в гугл и яндых так и не воткнул
, как реализовать на перле.
Вот что на пхп:
На перле наваял примерно такое наскока соображалки хватило.:
он вроде как без ошибок отрабатывает, но ниче не посылает. Блин замаялся, народ мож поможет кто как на перле сделать правильно?
Собсно на пхп то все пучком, мне нужно на перле это сделать, скока запросов и поисков не делал в гугл и яндых так и не воткнул
, как реализовать на перле.Вот что на пхп:
Код: Выделить всё
#!/usr/local/php/bin/php
<?php
$text="Hello бойз энд гёрлс";
$smstext = iconv ('koi8-r', 'utf-8', $text);
$str = "<?xml version='1.0' encoding='UTF-8'?>
<data>
<login>my_login</login>
<password>here_password</password>
<action>send</action>
<text>".$smstext."</text>
<to number='7xxxxxxxxxx'></to>
</data>";
$url = "https://go-to-sms.com:7214/send.xml";
$ch = curl_init($url);
curl_setopt($ch, CURLOPT_URL,$url); // set url to post to
curl_setopt($ch, CURLOPT_FAILONERROR, 1);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);// allow redirects
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1); // return into a variable
curl_setopt($ch, CURLOPT_TIMEOUT, 3); // times out after 4s
curl_setopt($ch, CURLOPT_POST, 1); // set POST method
curl_setopt($ch, CURLOPT_POSTFIELDS, $str); // add POST fields
curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, false);
$result = curl_exec($ch);
curl_close($ch);
header ("Content-type: text/plain");
//echo $result;
?>
Код: Выделить всё
#!/usr/bin/perl -w
use strict;
use LWP;
use HTTP::Request::Common;
my $ua = LWP::UserAgent->new();
$ua->agent("PerlUA/0.1");
my $url = "https://go-to-sms.com:7214/send.xml";
my $request = POST $url;
my $document = $ua->request($request);
if ($document->is_success)
{
print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print "<data>\n";
print "<login>Login</login>\n";
print "<password>password</password>\n";
print "<action>send</action>\n";
print "<text>TEXT</text>\n";
print "<to number='+7xxxxxxxxx'></to>\n";
print "</data>\n";
}
exit(0);