Foro - Perl en Español

Hola buenas,

Tengo una cadena de caracteres que es una dirección (path) de la cual quiero extraer dos datos. La cadena de caracteres es la siguiente:

C:\Users\Gordoa\Documents\UNI\4ºCurso\ProyectoFinGrado\server\public_html\AndroidDataMining\iLogand\ID-357841036752224\com.android.deskclock_3404.out

Los dos datos que quiero extraer son:
-El número que va seguido del ID-
-Y el com.android.deskClock

Hay que decir que el número siempre es del mismo tamaño, pero el segundo dato que quiero extraer puede tener diferente longitud.

¡Gracias de antemano!

Muy buenas, gente. Soy un aficionado a bash y hace poco empecé con Perl. Hoy mismo estuve haciendo algo en el trabajo.

Lo que tengo es lo siguiente: Un archivo de texto XML, y una cadena de caracteres aleatoria por la cual buscar.

He probado de varias maneras y no logré que Perl me imprima la cadena aun así yo sabiendo que la misma existe en el archivo.

El script que tengo es algo así: ...

Hola,
tengo un problema, nuevamente...

Base de datos Oracle, una tabla, un select, siguiente resultado:

lugar abrev
----------------------
HUALPEN THN
HUALPéN CCH
HUALPÿƿÿ©N CCH
HUALPÈN CCH
HUALPÉN CCH

hago este select y lo pongo en un hash, mi llave es lugar

my %arr_lugar=();
... ...
foreach $registro (@$data_sql){ # recorre los registros a procesar
$arr_lugar{$registro->} = $registro->;
}

al recorrer el hash y desplegar la información almacenada, el resultado es el siguiente:

lugar abrev
----------------------- ...

Hola, buenas tardes, perleros,

Una consulta: ¿existe la posibilidad en Perl de generar un programa que abra un fichero plano o CSV y coja los datos de temperatura (también latitud y longitud) y luego interpole estos datos de temperatura y luego los pinte con colores a partir de una paleta de colores (RGB) sobre una mapa?

¿Si alguien tiene alguna idea o puede guiarme?

Buena verbena.

Muchas gracias, saludos.

Saludos,

Soy bastante nuevo en Perl, de hecho no sé nada. El problema que tengo es que necesito sacar de un archivo de texto varias cadenas de texto.

El archivo es algo así:

Jun 19 07:17:15 VERBOSE chan_sip.c: -- Registered SIP '50206' at 10.75.16.25 port 43932
Jun 19 07:17:15 NOTICE chan_sip.c: Peer '50206' is now Reachable. (30ms / 2000ms)
Jun 19 07:17:15 VERBOSE netsock.c: == Using SIP RTP TOS bits 184
Jun ...

Hola.

Me gustaría saber cómo hacer un script Perl para conseguir la página de login del administrador de una web.

Hola a todos, como ya sabrán soy nuevo en el foro y también en el manejo del Perl :D

Navegando por la lista de tutoriales me interesó mucho el de "crear robots que naveguen
en Internet". Empecé a hacer el tutorial, copié y pegué el código que se mostraba tal
cual en mi Perl.

#!c:/perl/bin

#Iniciamos nuestros módulos
use Win32::OLE;
use Win32::SAM;

#Obligamos a hacer ...

Hola, quisiera saber cómo configuro XAMPP para ejecutar scripts de Perl, intento guardando los archivos con extensión .CGI o .PL y me da el mismo resultado: el código se muestra exactamente como está escrito.

El archivo es el siguiente:
----------------------
#!"C:/xampp/perl/bin/perl.exe"
print "Content-Type: text/html\n\n";
print "OK";
----------------------

Según XAMPP ese es el path. Intento también con la ubicación de Perl en mi computadora que sería:

C:/strawberry/perl/bin/perl.exe

pero sigue dando el mismo resultado.

Si intento acceder ...

Antes que nada, mi saludos a todos en esta gran comunidad a la que hace muy poquito me uní :D

Vamos a ver, me encuentro ante la problemática de correr el programa, de entrada. Mi objetivo es cargar el archivo CSV que adjunto más abajo: este contiene los campos nroDeCte, cteBtc, fechaDeAlta, nomb, estado, IP, MAC y (por último) servicio. Las consultas que quiero hacer a ...

Hola a todos,

Soy nuevo en Perl y he estado tratando de entender cómo pasar una respuesta a un comando de un programa externo.

El comando lo ejecuto de la siguiente manera:

my $nhloaddb = `nhLoadDb -p C:\respaldoDb`;

El problema es que dicho comando me responde con una pregunta, a la cual debo escribir manualmente 'Yes' para confirmar el comando.

Necesito que ese 'Yes' sea escrito automáticamente con el código en Perl. Leí algo sobre ...