WWW Mechanize la autorización Top 101 requerida

Aquí hay un pequeño script sobre cómo iniciar sesión en un .página protegida por htaccess. Supongamos que la URL a la que queremos iniciar sesión es:

http (:) // www (.)ejemplo(.) com/ 

Y aquí hay credenciales necesarias para iniciar sesión:

Nombre de usuario: contraseña www: mecanizar 

El script Perl para obtener el contenido de esta página se verá así:

#!/usr/bin/perl use www :: mecanize; my $ mech = www :: mecanize-> new (autocheck => 1); $ url = 'http: // www.ejemplo.com/'; $ mech-> credenciales ('www' => 'mecanize'); $ mech-> get ($ url); imprimir $ mech-> content ();