Receber SMS em Perl

Nesta página, você poderá aprender como usar sua aplicação Perl para receber mensagens SMS. Este exemplo de código Perl é capaz de coletar as mensagens recebidas do SMS Gateway e usá-las na aplicação. Ele realiza essa operação usando requisições HTTP. Este guia mostra como é fácil criar uma aplicação Perl e executá-la no seu computador. Então, vamos começar agora mesmo.

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.

• Perl instalado
• Ozeki 10 SMS Gateway instalado
• Uma conexão HTTP Server configurada

1. Abra o Bloco de Notas
2. Copie e cole o código de exemplo desta página
3. Salve o arquivo como ReceiveSMS.pl
4. Abra o Ozeki SMS Gateway e selecione a conexão HTTP Server
5. Abra o formulário HTML da conexão HTTP Server
6. Envie algumas mensagens de teste
7. Abra o Prompt de Comando
8. Digite 'perl ReceiveSMS.pl' no Prompt de Comando e pressione Enter

O código de exemplo abaixo é livre para uso em sua própria solução ou aplicação e você pode modificá-lo se desejar. O código de exemplo pode coletar as mensagens do SMS Gateway e usá-las na aplicação Perl. Se você quiser testar o exemplo, basta seguir as instruções passo a passo abaixo ou verificar o vídeo que mostra claramente todos os passos que você precisa realizar para executar o exemplo de SMS em Perl.

#!/usr/bin/perl 
use strict; 
use warnings; 
use XML::Simple;
use Data::Dumper;
require HTTP::Request;
require LWP::UserAgent;

sub main
{
    my $username = "john";
	my $password = "Xc3ffs";
	my $httpUrl = "https://127.0.0.1:9508/";
	my $folder = "inbox";
	my $limit = "3";

    my $sendString = $httpUrl."api?action=receivemessage&username="
                    .$username."&password=".$password."&folder="
                    .$folder."&limit=".$limit
                    ."&messagedata=&afterdownload=delete";
    
    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";

	DisplayMessages($response->content)
}

main();

sub DisplayMessages {
	my $data = XMLin(@_);
	my $sender = "";
	my $text = "";
 	if($data->{data}->{message} eq 'No more messages.')	{
 		print "A caixa de entrada está vazia!";
 		return;
 	}

	if (ref($data->{data}->{message}) eq 'ARRAY') {
		foreach my $value (@{ $data->{data}->{message} }) {
			$sender = $value->{originator};
			$text =  $value->{messagedata};
			DisplayMessage($sender,$text);
		}
	} 
	else {
		$sender = $data->{data}->{message}->{originator};
		$text = $data->{data}->{message}->{messagedata};
		DisplayMessage($sender,$text);
	}
}

sub DisplayMessage {
	print $_[0].": ".$_[1]."\n";
}

A primeira coisa que você precisa fazer para completar este guia é criar o arquivo Perl que você deve executar para ver como ele obtém as mensagens SMS do SMS Gateway. Então, neste momento, você precisa abrir o aplicativo Bloco de Notas no seu computador para poder criar o arquivo Perl. Para isso, como na Figura 1, clique em seu ícone na área de trabalho.

Em seguida, você precisa obter o código-fonte Perl desta página para usá-lo no seu computador. Então, basta rolar até a seção de código de exemplo e marcar todo o código-fonte. Depois, como você pode ver na Figura 2, você precisa copiá-lo para a área de transferência. Isso pode ser feito pressionando Ctrl+C no seu teclado.

Passo 3 - Cole o código no arquivo de texto

Depois de copiar o código-fonte Perl desta página, você precisa colocá-lo em um documento de texto. Para fazer isso, basta ir para o aplicativo Bloco de Notas que você abriu anteriormente e, como você pode ver na Figura 3, pressione Ctrl+V no teclado para colar todo o código-fonte no documento de texto.

O código-fonte agora está no documento de texto, mas ainda não tem o formato de arquivo correto. Mas isso não é um grande problema, você pode resolvê-lo facilmente com o Bloco de Notas. Basta selecionar a opção 'Salvar como' e, aqui, depois de dar um nome ao arquivo, use a extensão de arquivo '.pl' como a Figura 4 demonstra. Se você clicar em 'Salvar', o arquivo será salvo no formato Perl correto que você precisa para executar posteriormente.

Depois de configurar o arquivo Perl, você precisa de algumas mensagens na sua pasta de entrada. Para terminar o teste rapidamente, você pode simular mensagens recebidas com a conexão HTTP Server no SMS Gateway. Se você ainda não configurou essa conexão, aqui você pode ver como configurar uma conexão HTTP Server. Então, abra o SMS Gateway e selecione a conexão HTTP Server. No menu da conexão, abra o formulário HTML (Figura 5). Aqui, você pode escrever algumas mensagens para o SMS Gateway definindo o destinatário como 'Ozeki'.

Para executar o código Perl, você precisa do Prompt de Comando, pois ele fornece uma maneira simples de executar o código. Então, primeiro abra o Explorador de Arquivos e navegue até a pasta onde você salvou seu arquivo Perl. Aqui, como você pode ver na Figura 6, digite 'cmd' no Explorador de Arquivos. Se você pressionar Enter, o Prompt de Comando abrirá em uma nova janela.

A última coisa que você precisa fazer é executar o programa Perl. Para isso, você só precisa executar um comando simples no Prompt de Comando. O comando é 'perl *nome_do_arquivo*.pl' como a Figura 7 mostra. Então, basta pressionar Enter para executar o programa de exemplo. O programa imprime a requisição HTTP que foi enviada para o SMS Gateway e também imprime a mensagem de resposta do SMS Gateway. Isso contém todas as mensagens que foram recebidas pelo SMS Gateway.

No artigo acima, você aprendeu sobre como receber SMS usando Perl. Usar um script Perl para coletar mensagens recebidas significa que você pode usar essas mensagens em um projeto PHP. Você pode começar a automatizar o recebimento e envio de SMS com o poder do Perl e do Ozeki SMS Gateway. Graças ao Ozeki SMS Gateway, você não terá problemas de desempenho devido à capacidade de 1000 SMS por segundo do software de gateway. Isso melhorará muito a comunicação dentro da sua organização ou com seus clientes.

Visite nossa página se quiser aprender sobre todas as linguagens de programação que o Ozeki SMS Gateway pode lidar. Você pode acessar o artigo sobre gerenciamento de SMS com Python.

Se você quiser trabalhar com um software de SMS Gateway de alto desempenho, baixe o Ozeki SMS Gateway!