Foro - Perl en Español

Necesito extraer la información que escribe el printf:

El codigo es el siguiente:

#!/usr/bin/perl -w

use Date::Calc qw(:all);

print "Content-type: text/plain\n\n";

@start = (1999,5,27);
@stop = (1999,6,1);

$j = Delta_Days(@start,@stop);

for ( $i = 0; $i <= $j; $i++ )
{
@date = Add_Delta_Days(@start,$i);
printf("%4d/%02d/%02d\n", @date);
}

e imprime esto:

Code: Seleccionar todo

1999/05/27
1999/05/28
1999/05/29
1999/05/30
1999/05/31
1999/06/01

Lo que necesitaría es guardar en un array cada una de esas impresiones, o sea cada uno de los ...

Buenas gente, necesito resolver un problema que requiere más conocimientos sobre Perl de los que tengo, espero que me puedan dar una mano ya que lo necesito para mi trabajo, desde ya muchas gracias.

El problema es el siguiente:

Necesito hacer un socket que reciba información la cual es para que yo agregue a mi firewall (iptables) reglas que permitan conexiones entre dos nodos; los nodos son los que se especifican en la información que ...

Hola me gustaría saber si en Perl se puede modificar el registro de Windows, para crear un nuevo valor en él.

Gracias de antemano.

Hola perleros, necesitaría que me den una mano con esto:

use POSIX qw(strftime);
my $f_aux = 7 * 86400;
my $f_baja = strftime('%Y-%m-%d', localtime(time + $f_aux));
print $f_baja;

Esto lo que hace es sumarle al día de hoy 7 días.
Lo que yo necesitaría no es sumárselo al día de hoy, sino al día que yo ingrese.

Por ejemplo a 2007/5/6 sumarle 7 días y me quede 2007/7/13.

¿Qué forma hay para hacer esto?

Hola Amigos Perlianos:

Estoy haciendo un script que hace un POST a un ASP y me regresa los datos en XML.

Al ver los datos recibidos con el Dumper, me da la siguientes estructura:
$VAR1 = {
'Locations' => {
'Location' => [
{
'location' => 'Test Location',
'resort' => {}
},
{
'location' => 'Palm Island Resort',
'resort' => {}
},
{
'location' => 'Las Brisas Huatulco',
'resort' => {}
},
{
'location' => ...

Soy nuevo en Perl y estoy haciendo un programa que reinicia varios routers pero no me funciona. Tengo un error de variables por lo que hago una consulta porque no puedo ver las variables... ¿Está mal el código?

Muchas gracias

!/usr/local/bin/perl
use Net::Telnet::Cisco;
my @ciscos = ({ip=>'1.1.1.1', user=>'test', pass=>'test1', root=>'root'});
for my $cisco (@ciscos) {

my $session = Net::Telnet::Cisco->new(Host => '$ip');
$session->login($cisco=>'$user', $cisco=>'$pass');
my @output;
#Enable mode
if($session->enable($cisco=>'$root')) {
$session->errmode(sub {die @_ unless $_ =~ ...

Buena tardes, creo que al final no se publicó mi mensaje.

La cuestión es la siguiente:

Necesito tener cifrado un usuario y un password en un documento de texto y que mi script lo recoja, lo descifre y lo utilice para loguearse contra un servidor SSH por ejemplo.

Porque como lo tengo ahora el usuario y el password se ven claramente en el código del script y es un fallo de seguridad que no puedo ...

Hola. Quisiera hacer un split de barra invertida:

@aux= split(?, $Var{'direccion'});

¿Qué tendría que poner en la parte donde está el signo de pregunta para que me realice el split con la barra invertida (\)?

Muchas Gracias

Buenos días.

Estoy intentando instalar Math::Pari pero me pide que tenga instalado el gp/pari

No consigo hacerlo funcionar. Me dice que no encuentra el directorio. Y luego me dice que tampoco encuentra los tests.

Llevo dos días con esto y estoy desesperado.

¿Alguien sabe como hacerlo funcionar?

Un saludo.

Hola a todos.
Mi problema es el siguiente...

¿Cómo puedo hacer para que un handler de un módulo de Perl recupere un parámetro, el código de sesión por ejemplo?

Lo necesito para que cuando desde Apache alguien intente acceder a una carpeta, se lance el handler y recupere los permisos asociados a esa sesión, consultando en una base de datos por ejemplo.

¿Alguna idea?
Muchas gracias a tod@s.