Foro - Perl en Español

Hola, buenos días. Es la primera vez que participo del foro.

Me apasiona mucho Perl, pero estoy empezando.
Por favor, si alguien pueda darme una LUZ.

htt://servidor.com/archivo.php
htt://servidor.com/archivo.html
htt://servidor.com/archivo.txt ......

Tengo un servidor y necesito consultar si un determinado archivo se encuentra en mi servidor,
sin sobrecargar el servidor, suponiendo que sean más de 1000 archivos.

La lista de archivos las tiene que leer de un lista.txt.

Yo tengo este código muy sencillo:
#!/usr/bin/perl -l ...

Estaba viendo la siguiente página: http://mp3skull.com/mp3/bones_now.html El problema es que yo quiero listar toda la tabla en la que están los nombres de las canciones, el peso y los otros datos. El tema de descargar lo solucioné usando una expresión regular para que capture todos los .mp3" pero el tema de los datos de las tablas no sé cómo hacerlo.

¿ Alguien tiene alguna idea ?

Hola.

Tengo un fichero csv que tengo que analizar a formato JSON.

El csv:
Equipo,VM,SSOO,Modelo,N/Serie,"Apli 1","Apli 2","Apli 3",Cluster,Entorno
CDV01,SI,"W2003 EE x64 R2",VM,N/A,"DC W2003",,,NO,PRO
CDV02,SI,"W2003 EE x64 R2",VM,N/A,"DC W2003",,,NO,PRO

Esto es lo que quisiera que saliera:
{
"aaData": [
{
"Equipo": "CDV01",
"Virtual": "SI",
"SSOO": "W2003 EE x64 R2",
"Modelo": "VM",
"N/Serie": "",
"Apli 1": "DC W2003",
"Apli 2": "",
"Apli 3": "",
"Cluster": "NO",
"Entorno": "PRO"
},
{
"Equipo": "CDV02",
"Virtual": "SI",
"SSOO": "W2003 EE ...

Hola, tengo la versión v5.10 de Perl en un servidor con Ubuntu. Quiero actualizar a la v5.14.

¿Compilo la nueva versión en otro camino y cambio los encabezados de los programas Perl indicando este nuevo camino?

¿Qué pasa con los módulos CPAN instalados? ¿Es transparente?

Gracias

SALUD...

Buenos días, les agradeceré me apoyen describiendo la siguiente instrucción:

my $labels = ;

Si los arreglos son declarados con '@', entonces ¿cuál es su uso en la declaración anterior?

Buenos días, tengo el siguiente archivo que es donde valido la sesión de usuario de una aplicación web:

#!/usr/bin/perl
binmode STDOUT, ":encoding(UTF-8)";
use lib '../Modulos/';
#use strict;
#use warnings;
#use diagnostics;

use login;
use CGI::Session;
use CGI ':standard';
use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
print error;


my $cgi = CGI->new();
$cgi->charset('UTF-8');


my $session = CGI::Session->new("driver:File", $cgi, {'Directory'=>'/tmp/'})
or die CGI::Session->errstr;

$session->expire('+10s'); ##Tiempo que vence la sesión
## Enviamos la cookie de sesión al usuario
print $session->header; ...

Buenos días,

Resulta que tengo que instalar en un servidor Debian Lenny unos paquetes pero existe una web con archivos Perl.

No sé cuánto tiempo lleva sin actualizarse el sistema, por lo que me he bajado los paquetes manualmente. Al intentar instalar estos paquetes obtengo como dependencia el paquete perl-base, diciendo que necesito la versión 5.10.1-17 pero que la que se encuentra en el sistema es la 5.10.0-19, por lo que tendría que actualizar dicho ...

Queria consultarles cómo hacer para realizar lo siguiente:
Tengo este texto:

prueba
marcos
perl
texto

Mi idea es mostrar las palabras que tengo hasta que encuentre una diferente a estas:
prueba
marcos

Estaba probando:


if ($texto !=~ m/prueba|marcos/) {


Pero por lo que veo no me funciona.

Después de un merecido(?) descanso vacacional, me reincorporo a esta comunidad nuevamente y con un embrollo entre manos. Bueno, no sé si para exagerarlo tanto. ¡je,je!

Hasta el momento sólo había interpretado archivos CSV y en esta oportunidad necesito interpretar un texto que se me presenta en un formato particular. Digo se me presenta porque se trata de un reporte de una compañía de tarjetas indicando aquellas cuentas que fueron bien imputadas y aquellas que ...

Hola

Tengo para un mismo proyecto varios programas en Perl que quiero modular (pm). Aparte tengo la intención de que sean accesibles vía un menú muy simple.

Os pego un prototipo muy simple:

#!/usr/bin/perl
use v5.14;
use autodie;
use lib('/home/cpb/Dropbox/WEB/workspace/PreSPA/montaje');
#modifica este path para tu uso personal
#use buskeitor; # lo remarco
my $opcion;

say qq(#####################################
# Introduce 1 para Procesar imágenes
# Introduce 2 para mostrar enlaces
# Introduce 3 para copiar contenido ...