Foro - Perl en Español

Buenas tardes, necesito ayuda y agradecería mucho su respuesta. Necesito saber si una cadena está encerrada entre comillas. Sé preguntar por el principio pero no por el final, agradecería mucho su respuesta. Buen día.

Hola. Gracias por las sugerencias antes dadas.

Mi duda a aclarar es la siguiente. Necesito las líneas de códido necesarias para poder abrir un determinado archivo TXT y poder realizar comparaciones a las cadenas que estén en la misma. Solo tengo una idea para el tratamiento de las cadenas mediante arreglos y sus posiciones, pero no sé desplazarme, ni qué rutina emplear para hacerlo. La idea de la aplicación es abrir un archivo txt, verificar ...

Hola, que tal.

Tengo un programa que diariamente baja un archivo y lo descomprime en una máquina:

use LWP::Simple; #Llama a la libreria LWP
mirror("http://www.precios.com.mx/pip-files//MatrizDiferencias/PiP_MV20071113_2.zip","PiP_MV20071113_2.zip"); #Trata de descargar el archivo
system('unzip', 'PiP_MV20071113_2.zip'); # Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files//MatrizOmegaH/PiP_MVI20071113_2.zip","PiP_MVI20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVI20071113_2.zip');# Al bajar archivo de la red lo descomprime
mirror("http://www.precios.com.mx/pip-files/OtrosArchivos/psilva/PiP_MVD20071113_2.zip","PiP_MVD20071113_2.zip"); #Trata de descargar el archivo solicitado
system('unzip', 'PiP_MVD20071113_2.zip');# Al bajar archivo de la red lo descomprime ...

Buenas, a ver si me dan una mano. Tengo armada una aplicación para para guardar contactos. Pero lo que necesito es lo siguiente. Yo le envío a Perl un array de JavaScript y creo otro array con los mismos valores en Perl. Luego verifico cada clave del array está en la tabla; si está, la reescribo y sino está, la cargo. Mi problema principal es que necesito una forma de pasarle constantemente el valor del ...

HOLA, QUÉ TAL. ¡MUY BUENAS DÍAS! SOY UN NOVATO QUE BUSCA AYUDA PARA VER SI ME SUELTO EN Perl. LA IDEA EN REALIZAR UNA PEQUEÑA APLICACIÓN QUE MEDIANTE UN ARCHIVO TXT QUE Perl ABRIRÁ, ME PERMITA SACAR CIERTA INFORMACIÓN. MEJOR LES ADJUNTO UN ENUNCIADO. OJO, BUSCO AYUDA PERO ESTOY TRANCADO EN COMO USAR LOS BENDITOS ARRAYS ENTRE LAS POSICIONES DEL ARCHIVO Y COMO DESPLAZARME DENTRO DEL MISMO. AQUÍ LES VA...

Se para la implementación en ...

Saludos, les cuento mi problema...
Tengo el siguiente código....

#/usr/bin/perl -w

use strict;
use IO::Socket;

my @a;
my ($espera, $data, $response, $new_sock, $buf, $leng);
my $host = shift || 'x.x.x.x';
my $port = shift || x;
my $sock = new IO::Socket::INET(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp'
)
|| die "socket error : $!/n"
;

if ($sock) {
while (1) {
comando();
$espera = getc(STDIN);
}
}

sub comando {
@a = ...

¡Hola a todos!

Tengo el siguiente error en la ejecución de un script. No aborta pero me sale esta línea por pantalla cada vez que se cumple el if.

Code: Seleccionar todo

Use of uninitialized value in string eq at ./parserLog.pl line 48.

linea48-->if ($info eq ""){....}

¿A qué puedo inicializar @info para que no me salga un error de este tipo 800 millones de veces?

Gracias por adelantado.

Buenas tardes a todos.

Como bien dice el asunto, me gustaría saber si es posible recorrer un log desde el final hacia atrás, ya que los datos que me interesan están al final del fichero y dicho fichero tiene un millón de líneas y creciendo...

Un saludo y muchísimas gracias por vuestra labor.

Saludos Perleros, tengo un pequeñisimo problema, tengo 8 archivos de 21megas y similares con terminación *.csv y utilizo open ofice para verlos pero me topo con el problema que son demasiadas filas al rededor de 6000 y el programa no despliega todas, que puedo hacer?, existe alguna otra aplicación en donde pueda consultar toda esta información, mi idea era verla en open ofice y hacer un filtro para buscar un dato,

Saludos

...

Hola todos.

En mi actual proyecto accedo secuencialmente a un fichero de log en busca de una fecha en concreto y me preguntaba si no es más eficiente una búsqueda por algún método como quicksort, es decir ir a la mitad del fichero, comparar, si es mayor, ir a la mitad de la mitad anterior, etc...

¿Hay alguna función ya implementada en Perl o hay que implementar el código?

Muchas gracias y un saludo