Como enviar SMS a partir de Perl
O código de exemplo abaixo demonstra como você pode usar requisições HTTP para enviar mensagens SMS a partir de Perl via SMS Gateway. O programa Perl primeiro configura todas as variáveis importantes que serão usadas para enviar a mensagem. Em seguida, ele cria a string para enviar a mensagem e, por último, inicia a requisição HTTP. A mensagem de resposta também será impressa pelo programa.
O que é uma API de SMS em Perl?A API de SMS em Perl garante a capacidade de enviar mensagens SMS a partir de um programa escrito em Perl. Ela usa requisições HTTP e comunicação criptografada SSL para encaminhar a solicitação de envio de SMS para o SMS Gateway.
Pré-requisitos Enviar SMS a partir de Perl- Abra o Bloco de Notas
- Crie um novo arquivo
- Copie e cole o código de exemplo desta página
- Salve o arquivo como HttpApiTester.pl
- Abra o Prompt de Comando
- Navegue até a pasta onde você salvou o arquivo Perl
- Digite 'perl HttpApitester.pl' no Prompt de Comando
- Pressione Enter para executar o arquivo Perl
Exemplo de código-fonte de SMS em Perl
Este exemplo de código-fonte em Perl abaixo é livre para uso, você pode simplesmente implementá-lo em seu projeto, ou pode modificar o código-fonte para usá-lo em outros projetos ou aplicações. Se você quiser apenas executar e testar este exemplo, tudo o que precisa fazer é seguir as instruções acima ou assistir ao vídeo tutorial que demonstra a maneira de criar um arquivo Perl para o código-fonte e executá-lo a partir do Prompt de Comando.
#!/usr/bin/perl
use strict;
use warnings;
use Encode;
require HTTP::Request;
require LWP::UserAgent;
sub main
{
my $username = "john";
my $password = "Xc3ffs";
my $messagetype = "SMS:TEXT";
my $httpUrl = "https://127.0.0.1:9508/";
my $recipient = Encode::encode("utf8", "+36201324567");
my $messagedata = Encode::encode("utf8", "TestMessage");
my $sendString = $httpUrl."api?action=sendmessage"."&username="
.$username."&password="
.$password."&recipient=".$recipient."&messagetype="
.$messagetype."&messagedata=".$messagedata;
print "Enviando requisição html: ".$sendString."\n\n";
my $request = HTTP::Request->new(GET => $sendString);
my $ua = LWP::UserAgent->new (
ssl_opts => { verify_hostname => 0 },
);
my $response = $ua->request($request);
print "Resposta Http recebida :\n";
print $response->content;
}
# Chamar main.
main();
Passo 1 - Abra um aplicativo de editor de texto
Para poder executar o código de exemplo acima, primeiro, você precisa criar um arquivo Perl para isso. Para realizar esta operação, você só precisa ter um editor de texto. Você pode baixar um editor de texto personalizado, mas o aplicativo Bloco de Notas padrão instalado no Windows também pode fazer o trabalho. Então, como a Figura 1 mostra, basta abrir o aplicativo Bloco de Notas a partir do seu desktop.
O próximo passo é obter o código-fonte. Esta é uma tarefa fácil, já que o código pode ser encontrado nesta página, então você só precisa copiá-lo. Então, como você pode ver na Figura 2, basta ir para a seção de código de exemplo nesta página, marcar todo o código-fonte e pressionar Ctrl+C no seu teclado para copiar o código-fonte para a área de transferência.
Em seguida, você precisa colar o código-fonte copiado no seu arquivo de texto vazio. Para fazer isso, você só precisa navegar até o arquivo de texto e pressionar Ctrl+V no seu teclado. Ao realizar esta ação, o código-fonte será colocado no seu arquivo de texto, como demonstra a Figura 3.
Passo 4 - Salve o texto como um arquivo Perl
Para criar o arquivo Perl, você só precisa salvar o arquivo de texto com a extensão dos arquivos Perl. Essa extensão é .pl. Então, selecione a opção 'Salvar como' no Bloco de Notas, como você pode ver na Figura 4, e depois de dar um nome ao arquivo, adicione a extensão '.pl' e clique em 'Salvar'. A operação acabou de criar o arquivo Perl que você precisa para executar o exemplo de SMS em Perl.
O último passo principal do guia é executar o arquivo Perl que você criou anteriormente. Neste caso, você vai executar o exemplo usando o Prompt de Comando. Você pode abrir facilmente o Prompt de Comando abrindo o Explorador de Arquivos e, como na Figura 5, basta digitar 'cmd' na barra de endereços e, por fim, pressionar Enter. Se você navegar até a pasta onde salvou o arquivo Perl no Explorador de Arquivos, o Prompt de Comando usará esse local como padrão, para que você possa executar o arquivo Perl imediatamente.
A última coisa que você precisa fazer é iniciar o comando que executa o arquivo Perl. Este é um comando simples; você só precisa escrever 'perl *nome do arquivo*.pl' no Prompt de Comando, como a Figura 6 mostra. Depois de pressionar Enter, o arquivo Perl executa os comandos internos e envia a mensagem de teste. A solicitação HTTP e a resposta do SMS Gateway serão impressas no Prompt de Comando.
O Ozeki 10 SMS Gateway permite verificar quais mensagens foram enviadas por sua aplicação, já que o serviço HTTP API registra todos os eventos que ocorrem enquanto está ativo. Então, se você abrir o SMS Gateway e selecionar os detalhes do serviço HTTP API, poderá ver os eventos. Como você pode ver na Figura 7, o serviço registrou um evento quando o programa Perl enviou a solicitação HTTP para o serviço.
Os eventos que ocorreram durante o envio da mensagem também podem ser verificados pelos eventos. Para isso, abra a conexão do Usuário HTTP API, que você precisou configurar anteriormente. A Figura 8 demonstra como a conexão lida com a solicitação HTTP e envia a mensagem para o destinatário que você especificou no seu programa de exemplo de SMS em Perl.
Neste artigo, fornecemos informações sobre como enviar mensagens SMS usando Perl. Também incluímos um código de exemplo que você pode usar para iniciar o processo de implementação. Configurar uma solução que possa usar a linguagem Perl para enviar SMS facilitará a implementação da solução de envio de SMS no seu sistema de comunicação.
Se você quiser implementar mais linguagens de programação no seu sistema de comunicação, sinta-se à vontade para visitar os artigos sobre outras linguagens de programação compatíveis com o Ozeki SMS Gateway, como: Java.
Agora, a próxima coisa a fazer é baixar o Ozeki SMS Gateway e configurar esta solução imediatamente! Tudo está pronto para colocá-lo em funcionamento em menos de 10 minutos.
More information