Foro - Perl en Español

¿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 ...

Hola, buenos días.

Sucede que consumo un Web Service que me regresa un string de tipo XML, pero no sé cómo acceder a los datos.

my $serviceWsdl = "http://192.1.1.1:8080/services/Ws?wsdl";
my $soap = SOAP::Lite->service($serviceWsdl);
mu $param = "valores";
$result = $soap->servicio($param);

Al parecer $result debe contener algo como esto:
<S>
<SEC>
<NONCE></NONCE>
</SEC>
<RES>
<EXITO></EXITO>
<CODIGO></CODIGO>
</RES>
<PAR>
<SOLICITUD>
<EJE_SOL></EJE_SOL>
<NUM_SOL></NUM_SOL>
<FECHA_SOL></FECHA_SOL>
<TITULAR>
<TIPODOCUMENTO></TIPODOCUMENTO>
<DOCUMENTO></DOCUMENTO>
<NOM_TIT></NOM_TIT>
</TITULAR>
<REPRESENTANTE>
<DOCUMENTO></DOCUMENTO>
<NOM_REP></NOM_REP>
</REPRESENTANTE>
<NUM_REG></NUM_REG>
<L_VARIABLES>
<VARIABLE> ...

Hola.

Estoy creando un escriptillo muy sencillo para contar diferentes elementos de un archivo txt y crear otro archivo txt con los resultados del recuento.

La idea es que lo utilicen en mi trabajo compañeros con conocimientos nulos de informática. Además no puedo (prefiero no hacerlo, vamos) instalar nada en esos ordenadores, que son Windows.

Mi idea era crear un directorio en el escritorio que contenga el archivo input.txt, que es el que lee el ...

Buenas tardes, mi pregunta es la siguiente:

Tengo el archivo 1 con la siguiente estructura
A7YWC4 F6QV99
F1N0G5 G3N1Z8
E1BN63 F1MNS2
E1BAX5 F1N253
E1BG32 G5E586
E1B7W8 E1BG45Y un segundo archivo con una estructura similar
A7YWC4 F6QV99
F1N0G5 G3N1Z8
E1BN63 F1MNS2
E1BAX5 F1N253
E1BG32 G5E586
E1B7W8 E1BG45
F1MNS0 F1MY10
E1BE75 E1BNL4
Quiero saber cuántas veces se aparece la línea 1 del archivo 1 en el archivo 2 (contar) para esto ya realicé el siguiente script.

[perl ...

Hola, ¿qué tal?

Me pongo en contacto con ustedes ya que tengo un conflicto para enviar variables de un método a otro.

Les explico de qué trata este proyecto:

Se tiene una interfaz junto con un método que nos permite dar de alta un articulo; al darlo de alta lo guarda en la base de datos, pero además nos genera una etiqueta con un código de barras para escanear cuando hay entrada o salida de ...

Estimados.

Una consulta: ¿Qué librería me recomiendan usar para enviar un archivo de una máquina Windows a una carpeta de otra máquina Windows? ¿Alguna sugerencia? (En Linux yo usaba SCP pero aquí en Windows no he encontrado algo parecido).

De antemano, muchas gracias.
Saludos.

Hola, nuevamente necesito de su gran ayuda. Tengo un archivo que contienen 6 columnas y la última tiene la palabra Calma, la cual debo reemplazar por el valor anterior, pero en algunos casos comienza con esta palabra, en ese caso se debe reemplazar por el valor siguiente.

Este es un extracto del archivo:

2013 2 1 0 0.3 Calma
2013 2 1 100 0.2 350
2013 2 1 200 0.6 344
2013 2 1 ...

Hola estimados. Quisiera que me pudieran ayudar con lo siguiente. Resulta que desde un webservice recibo el siguiente hash:

$VAR1 = {
'DATO1' => 'VALOR1',
'DATO2' => 'VALOR2',
'DATO3' => 'VALOR3',
'DATO4' => 'VALOR5',
'DATO5' =>
};


Si bien ...