Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/01/2018, 12:30
jferrero
Colaborador
 
Fecha de Ingreso: mayo-2006
Ubicación: Valladolid
Mensajes: 515
Antigüedad: 12 años, 10 meses
Puntos: 9
Respuesta: modificar codigo perl para conexion https

Prueba con este código, que es más sencillo:

Código perl:
Ver original
  1. #!/usr/bin/perl
  2. #
  3. # Prueba de carga de peticiones SSL a un mismo host, que se pasa como argumento.
  4. #
  5. # Joaquín Ferrero. 20180120
  6. #
  7. use v5.10;
  8. use strict;
  9. use warnings;
  10.  
  11. use Net::SSLeay 'get_https';
  12.  
  13. my $host = $ARGV[0] // 'localhost';
  14.  
  15. for my $intento (1..100) {
  16.     my ($pagina, $respuesta, %cabeceras_respuesta) = get_https($host, 443, '/');
  17.  
  18.     #say "[$pagina]";
  19.  
  20.     say "Intento $intento: $respuesta";
  21.  
  22.     #use Data::Dumper;
  23.     #say Dumper \%cabeceras_respuesta;
  24. }
Puedes ejecutarlo de forma directa, y entonces probará 'localhost', o puedes pasarle el nombre del dominio como primer argumento:

./test_SSL.PL mi.dominio.com
__________________
JF^D Perl Programming en Español

Última edición por jferrero; 20/01/2018 a las 12:39