Начало Вход/Регистрация Помощ Tazi stranica s latinski bukwi
Области
 Новини
 Актуална тема
 Linux портали
 Какво е Линукс?
 Въпроси-отговори
 Форуми
   •Трудова борса
   •Конкурс
 Статии
 Дистрибуции
   •Поръчка на CD
 Made In BG
 Файлове
 Връзки
 Галерия
 Конференции
Настройки
 Външен вид
 Предложения
 Направи си сам
И още ...
 За нас
 Линукс за българи ЕООД
 Линк към нас
 Предложения

Подкрепяно от:
TelePoint - Място за хора със свободни идеи

SiteGround

initLab

Adsys Group

SAP Bulgaria

Въпроси отговори
Въпрос: sms-bg.net skript s perl
[Търси: ]

ВНИМАНИЕ: Използвайте форумите на сайта за дa зададете вашите въпроси.

Към началото |Добави въпрос |Отговори
 
Въпрос
От: valyo Дата: 07/27/2005
 Ideqta mi e slednata.bqh pisal za pra6tane na sms prez
 konzola za gre6ka v raida no sega tova re6enie mi se stori
po dobro ot spomenatite tam.Ideqta mi e slednata:
 Napisah si tozi skript na perl koito polzva saita
 sms-bg.net.Populvam si poletata i tova raboti.lDo tuk
 dobre,no kak da go napravq da simulira natiskane na butona
izprati?
Nqkoi ako si ima na ideq da drasne 1 red molq.
Skripta e:

#!/usr/bin/perl

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
 
my $url_sendsms = "http://sms-bg.net";
my($ua,$request,$response,%field);

undef %field;
$field{MN2}  = "889";
$field{MN3}  = "272850";
$field{FROM} = "Server";
$field{SM}   = "Raid error !!!!";

$ua = LWP::UserAgent->new;
$request = POST $url_sendsms,\%field;
$response =  $ua->request($request);
if($response->is_success) {
 print $response->as_string;
}
else {
 print "Failed: ", $response->status_line, "\n";
}

Mersi predvaritelno.


<< Помощ! Производителност! (4 ) | ip conntract (4 ) >>

 
© 2011-... Асоциация "Линукс за българи"
© 2007-2010 Линукс за българи ЕООД
© 1999-2006 Slavej Karadjov
Ако искате да препечатате или цитирате информация от този сайт прочетете първо това
Външния вид е направен от MOMCHE
Code Version: 1.0.8 H (Revision: 23-09-2011)
 
Изпълнението отне: 0 wallclock secs ( 0.05 usr + 0.01 sys = 0.06 CPU)