Foro - Perl en Español

Hola a todos. Les pido su ayuda nuevamente.

Les explico: Al archivo adjunto llamado CO.txt necesito extraerle las líneas 3694-3757 y 6323-6386, guardando cada rango en un archivo.

Cabe destacar que las líneas en cada archivo (que son varios) siempre varían.

Hice el siguiente código, pero en el archivo de salida hay muchas más líneas de las que necesito, pero es lo más cercano que he conseguido.

Nuevamente les agradezco su ayuda y muchas gracias. ...

Buenas tardes, colegas :mrgreen:

Solicito la amable colaboración de alguno de ustedes; requiero con urgencia identificar con qué módulo puedo trabajar una conexión vía SSH. El problema radica en que actualmente la conexión entre el servidor y los switch Juniper se realiza de manera directa (es decir, sin utilizar usuario y contraseña) dado que se realizó el proceso de generar la llave pública del servidor para ...

Hola,

¡Hace tiempo que no venía por aquí!

He estado buscado por Internet y en el foro pero no encuentro la manera de geolocalizar un tweet.
Actualmente estoy mandando un tweet cada cierto tiempo y ahora quisiera añadir la geolocalización.

La localización es siempre la misma, así que si hacen falta coordenadas no hay problema en buscarlas en el Maps o en cualquier otro sitio y añadirlas.

¿Podéis ayudarme?

Saludos y gracias.

Hola, explorer. Por ahí saqué algo que tu usaste:

open my $FILE, '<', $new_name."/".$file;
{
local $/; # activar modo aspiradora
$data_file = <$FILE>;
}

Sé que lo hizo mágicamente, pero no sé qué es lo que pasa. Si no tengo ese modo aspiradora solo me queda la primera línea del manejador en $data_file, pero si lo pongo entonces en la variable $data_file tengo todo el contenido del fichero... ...

¿Cómo puedo copiar un directorio entero en Perl, ojalá sin usar File::Copy...?

La idea es que tengo que clonar un directorio, por decirlo colocándole un nuevo nombre al directorio clonado... :(

¿Existe algún módulo con funciones para mostrar, detener o mirar qué procesos están consumiendo muchos recursos en Linux? Posiblemente existan herramientas, pero quiero un módulo para tener un script que rápidamente yo pueda ejecutar para ver algunos procesos, etc.

Buenos días, ante todo presentarme en el foro, soy nuevo y ya me encuentro con la primera duda.

Tengo un fichero en una sola línea, que tiene a su vez dos ficheros xml y no sé cómo separarlos en ficheros independientes, es decir: que cada uno contenga <Document ......</Document>.

Un saludo y gracias.

<Document xmlns="urn:iso:std:iso:20022:tech:xsd:"><CstmrPmtStsRpt><GrpHdr><MsgId></MsgId><CreDtTm></CreDtTm><InitgPty><Id><OrgId><Othr><Id></Id></Othr></OrgId></Id></InitgPty><CdtrAgt><FinInstnId><BIC></BIC></FinInstnId></CdtrAgt></GrpHdr><OrgnlGrpInfAndSts><OrgnlMsgId></OrgnlMsgId><OrgnlMsgNmId></OrgnlMsgNmId><OrgnlNbOfTxs></OrgnlNbOfTxs><OrgnlCtrlSum></OrgnlCtrlSum>........</Document><Document xmlns="urn:iso:std:iso:20022:tech:xsd:"><CstmrPmtStsRpt><GrpHdr><MsgId></MsgId><CreDtTm></CreDtTm><InitgPty><Id><OrgId><Othr><Id></Id></Othr></OrgId></Id></InitgPty><CdtrAgt><FinInstnId><BIC></BIC></FinInstnId></CdtrAgt></GrpHdr><OrgnlGrpInfAndSts><OrgnlMsgId></OrgnlMsgId><OrgnlMsgNmId></OrgnlMsgNmId><OrgnlNbOfTxs></OrgnlNbOfTxs><OrgnlCtrlSum></OrgnlCtrlSum>........</Document>

¿Cómo están?

Luego de un tiempo y con ayuda del foro pude concluir en forma parcial "https://github.com/marcositu/redhatchecklist", la cual es una aplicación para analizar la configuración de servidores RedHat o sus derivados.

Ahora estoy teniendo un problema; quiero dar la posibilidad de poder obtener un reporte en inglés o español según lo que la persona agregue como argumento.

Estoy armando así:

if ($idioma eq "es" ) {
print F "<h1>analisis de seguridad - ...

Hola, ¿qué tal, compañeros perleros? Tengo un problema con uno de mis módulos que genera etiquetas con barcode, pero al hacer un return de un hash me lo imprime en el navegador y no quiero que aparezca.

Este método del módulo hace bien la función que necesito:
package Modulo_arts;

sub exportar_valores {
my ($self, $dbh) = ( shift, &$connect );

my $numero = ( $dbh->selectall_arrayref("SELECT * FROM TABLA1") );
my $nombre = ( $dbh->selectall_arrayref("SELECT ...

Hola, ¿qué tal, compañeros perleros?

Quiero ver si alguno de ustedes puede ayudarme ya que no he encontrado la manera de solucionar el siguiente error:

DBI connect('./db/names.db','',...) failed: unable to open database file at test.pl line 12.

Resulta que este mismo connect() lo utilizo en otro script.pl (parecido a un módulo.pm) el cual realiza consultas a esta base de datos de manera segura y correcta, pero cuando lo utilizo en un script unitario me marca ...