Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

[source] FTS DDD e DDI

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[source] FTS DDD e DDI

Mensagem por hacker fts315 em Dom Set 02, 2012 12:12 am

[Você precisa estar registrado e conectado para ver esta imagem.]

esse script retorna o ddd ou ddi da cidade

Código:
#!/usr/bin/perl
#by hacker fts315

use LWP::UserAgent;

slogan();

print "1 - DDD\n";
print "2 - DDI\n\n";

print "digite: ";

$op = <stdin>;

if($op == 1)
{
  ddd();
}
elsif($op == 2)
{
  ddi();
}

sub slogan
{
    print "================================================\n";
   print "                FTS DDD e DDI \n";
    print "================================================\n\n";
}

sub ddd
{
  print "digite o estado: ";
  $est = <stdin>;
  print "digite a cidade: ";
  $cid = <stdin>;
  chomp($est);
  chomp($cid);
  print "\n";
  $info = LWP::UserAgent->new->post("http://wwp.brasilcenter.com.br/pr5e/WWWConsulta.asp",["idioma" => "p","tc" => "3","estado"=>$est,"cidade"=>$cid]);
  @fts = $info->content =~ /<pre>(.*\d\d).*<b>/sg;
  print $fts[0];
  print "\n";
}

sub ddi
{
  print "digite o pais: ";
  $pais = <stdin>;
  print "digite a cidade: ";
  $cid = <stdin>;
  chomp($pais);
  chomp($cid);
  print "\n";
  $info = LWP::UserAgent->new->post("http://wwp.brasilcenter.com.br/pr5e/WWWConsulta.asp",["idioma" => "p","tc" => "4","pais"=>$pais,"cidade"=>$cid]);
  @fts = $info->content =~ /<pre>(.*)<\/pre>/sg;
  print $fts[0];
  print "\n";
}


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
hacker fts315
Membro

Mensagens : 53
Pontos : 4161
Reputação : 32
Data de inscrição : 12/08/2012

Ver perfil do usuário http://endoffile.umforum.net

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum