Foro - Perl en Español

Buenos días,

A ver si alguien me puede ayudar con este tetris.

Necesito hacer un script en Perl que saque la contraseña de acceso a los enrutadores con su IP y utilizando el complemento a 9.

Tengo esta IP: 10.113.125.8

1- Quitar el primer octeto -> 113.125.8
2- Rellenar con 0 los octetos con menos de 3 dígitos -> 113.125.008
3- Restar de 9 cada dígito -> 999.999.999 - 113.125.008 = 886.874.991
4- Quitar los ...

¡Buen día a todos!

Estoy intentando instalar la librería GD. Si lo hago con la interfaz visual del ppm, no se activan las librerías para FreeType, así que bajé el paquete y corrí el "perl MakeFile.pl", y me indica el siguiente error:

**UNRECOVERABLE ERROR**
Could not find gdlib-config in the search path. Please install libgd 2.0.28 or higher.

Entiendo que ahora hay que bajar ese paquete. Bajé la versión más actual de libgd, pero no ...

Hola, tengo el siguiente formulario en HTML y JavaScript en mi servidor Apache y quería saber cómo hacer un registro desde Perl, pero nunca funciona el registro. Creo que es por lo de "onsubmit" en el <form>.

<form method='post' action='foro_autenticar.php' onSubmit="return noVaciosCampos (this);">
<input type=hidden value='nottrue' name=alfacode>

<input type='hidden' name='secforo' value='3'><input type='hidden' name='idenc' value='0'>
<tr>
<td align=right bgcolor="#FF9933"><b><font face="Arial, Helvetica, sans-serif" size="2">Autor:</font></b></td>
<td bgcolor="#CCCCCC"><font face="Arial, Helvetica, sans-serif" size="2"><input name='autor' type=text value='' size=20 maxlength="18"> ...

Hola.

Estoy creando el típico módulo con una serie de funciones que luego se usarán en otro script. Y tras leer documentación, entiendo que lo mejor es exportar esas funciones, y aquí es donde me aparecen las dudas:

Cuando se usan en el script esas funciones del módulo, se las llama simplemente con el nombre:
use strict;
use warnings;
...
use Mimodulo.pm; # donde está definida la función f_leerTabla(), y que se exporta
... ...

GenOO: A Modern Perl Framework for High Throughput Sequencing analysis
(GenOO: un entorno de trabajo en Perl moderno para el análisis de alto rendimiento de secuencias)

«Background: High throughput sequencing (HTS) has become one of the primary experimental tools used to extract genomic information from biological samples. Bioinformatics tools are continuously being developed for the analysis of HTS data. Beyond some well-defined core analyses, such as quality control or genomic alignment, the consistent development of ...

Amigos, tengo un archivo TXT desde el cual debo tomar los campos para luego armar otro archivo txt separados igualmente por tabulación.

Si bien he realizado la captura de otros archivos separados por ';' o '"' o '|' o lo que sea... pero por tabulación no sé cómo hacerlo. Favor, su ayuda.

El archivo es de esta forma:
Campo1 Campo2 Campo3 Campo4 Campo5 etc…
Campo1 Campo2 Campo3 Campo4 Campo5 etc…
Campo1 Campo2 Campo3 Campo4 Campo5 ...

Hola, compañeros. Estoy creando este script para crear una base datos con Perl usando Linux pero cuando lo corro me sale este error:

DBI connect('driver=Microsoft Access Driver (*.mdb);dbq=new.mdb','root',...) failed: Data source name not found, and no default driver specified (SQL-IM002) at createdb.pl line 18.

Este es el script:

#u!/usr/bin/perl
#use strict;
use warnings;
use v5.10; # Para el uso de la función sy()
use DBI;


say "Script para crear base de datos Acces";

# ...

http://perlenespanol.com/pommo/user/subscribe.php

Deprecated: Function set_magic_quotes_runtime() is deprecated in /home/perl/public_html/pommo/bootstrap.php on line 56

Strict Standards: Declaration of SafeSQL_MySQL::_sql_escape() should be compatible with SafeSQL::_sql_escape() in /home/perl/public_html/pommo/inc/lib/safesql/SafeSQL.class.php on line 242

Strict Standards: Declaration of SafeSQL_ANSI::_sql_escape() should be compatible with SafeSQL::_sql_escape() in /home/perl/public_html/pommo/inc/lib/safesql/SafeSQL.class.php on line 267

Strict Standards: Non-static method PommoHelper::parseConfig() should not be called statically, assuming $this from incompatible context in /home/perl/public_html/pommo/inc/classes/pommo.php on line 71

Strict Standards: Non-static method PommoHelperL10n::init() should not be ...

Hola, compañeros, me gustaría saber cómo hago este script menos iterativo. El profesor me pide que solo reciba root y el usuario. Lo demás se debe de ejecutar en el script. Ver adjunto.

#! /usr/bin/perl

use strict;
my $usrinput;
my $routeftp;
my $routearchivo;

print("\n***********************************************\n\n");
print("\n***********************************************\n\n");
print("\n**************** Kickstart*********************\n\n");
print("\n***********************************************\n\n");
print("\n***********************************************\n\n");

print ksconf "#*********************Kickstart creado con un script******************\n\n";

print "Ingrese la ruta y nombre del archivo kickstart a establecer: \n";
$routearchivo=<>;
chomp($routearchivo);
open(ksconf,">>","$routearchivo")
or die("Archivo no creado"); ...

Hola, mis amigos de Perl internacional, quiero saber cómo puedo crear un log para cuando se ejecute este script guarde la fecha, hora y usuario que corrió este script. Debe ser almacenado en una ruta específica.

#!/usr/bin/perl
use strict;
use warnings;
use Filesys::DiskSpace;

# file system /home or /dev/sda5
my $dir = "/home";

# get data for /home fs
my ($fs_type, $fs_desc, $used, $avail, $fused, $favail) = df $dir;

# calculate free space in % ...