• Publicidad

Ayuda con script y expresiones regulares

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Ayuda con script y expresiones regulares

Notapor herald-x » 2012-12-03 12:04 @544

Hola, necesito expresiones regulares para filtrar los dominios con WWW y sin WWW de una página que imprime lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using javascript Syntax Highlighting
{"status":"Success", "resultsMethod":"database", "lastScrape":"2012-11-25 18:55:32", "domainCount":"56", "remoteAddress":"www.google.com", "remoteIpAddress":"74.125.224.177", "domainArray":[["74.125.224.177", ""], ["amazon.com", ""], ["android.com", ""], ["froogle.de", ""], ["gogle.com", ""], ["googel.com", ""], ["googl.com", ""], ["google-analytics.com", ""], ["google.al", ""], ["google.ba", ""], ["google.bg", ""], ["google.ca", ""], ["google.cl", ""], ["google.co.cr", ""], ["google.co.in", ""], ["google.co.nz", ""], ["google.co.th", ""], ["google.co.uk", ""], ["google.com", ""], ["google.com.br", ""], ["google.com.hk", ""], ["google.com.mx", ""], ["google.com.tr", ""], ["google.com.tw", ""], ["google.com.vn", ""], ["google.de", ""], ["google.dk", ""], ["google.gd", ""], ["google.gr", ""], ["google.it", ""], ["google.jo", ""], ["google.kz", ""], ["google.lk", ""], ["google.mu", ""], ["google.net", ""], ["google.pl", ""], ["google.ps", ""], ["google.ro", ""], ["google.se", ""], ["google.sk", ""], ["google.us", ""], ["googlee.com", ""], ["googlegroups.com", ""], ["googlelabs.com", ""], ["googleventures.com", ""], ["goolge.com", ""], ["news.google.es", ""], ["picasa.google.com", ""], ["www.googel.com", ""], ["www.google.ch", ""], ["www.google.co.in", ""], ["www.google.com", ""], ["www.google.com.hk", ""], ["www.google.dz", ""], ["www.google.fr", ""], ["wwwgoogle.com", ""]]}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Como resultado quiero que imprima todos los dominios de la siguiente forma:

http://www.google.com
http://www.google.ne.jp
....,etc

Espero su respuesta, gracias (:
herald-x
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2012-12-01 12:32 @564

Publicidad

Re: Ayuda con script y expresiones regulares

Notapor explorer » 2012-12-03 12:43 @572

¿Eso lo imprime una página web? Me gustaría saber cuál...

¿Qué formato es eso? ¿JSON?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Ayuda con script y expresiones regulares

Notapor herald-x » 2012-12-03 12:49 @576

Sí, es formato JSON. Es un reverse IP para saber las web alojadas dentro del servidor de la web elegida.

http://www.yougetsignal.com/tools/web-sites-on-web-server/php/get-web-sites-on-web-server-json-data.php?remoteAddress=www.google.com


Saludos. Espero puedas ayudarme, (:
herald-x
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2012-12-01 12:32 @564

Re: Ayuda con script y expresiones regulares

Notapor explorer » 2012-12-03 17:34 @773

Entonces es facilísimo...
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use v5.14;
  3. use autodie;
  4.  
  5. use JSON;
  6. use File::Slurp;
  7.  
  8. my $json = read_file('code_33192.json');
  9. my $ref  = decode_json $json;
  10.  
  11. for my $dominio (@{ $ref->{domainArray} }) {
  12.     say $dominio->[0];
  13. }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados