[source] FTS DDD e DDI
Página 1 de 1
[source] FTS DDD e DDI
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
esse script retorna o ddd ou ddi da cidade
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";
}
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos