Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

Participe do fórum, é rápido e fácil

Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/
Nylon Tecnologia
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[source] FTS DDD e DDI

Ir para baixo

[source] FTS DDD e DDI Empty [source] FTS DDD e DDI

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

[Tens de ter uma conta e sessão iniciada para poderes visualizar 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";
}
hacker fts315
hacker fts315
Membro

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

http://endoffile.umforum.net

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos