Foro - Perl en Español

«Yo soy más fan del desarrollo de iOS en objective-C y de sus apps,tweaks,etc,por eso no ven que hable mucho de android en Tiempo de Tux,ni de su desarrollo de apps nativas con eclipse ni de roms,root,apps,etc pero si los conozco y de hecho uso android desde el tmobile G1 competencia del iPhone 2g(qué tiempos), pero ya desde antes era usuario de iOS así que ya estaba amarrado a...»

Artículo

Un simple script para bajar los iconos que quieran. Los iconos bajados se guardan en un carpeta con el nombre buscado.


#!usr/bin/perl
#FindIcons 0.1
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);
use Time::HiRes "usleep";

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

head();

print " Search : ";
chomp( my $se = <stdin> );

$se =~ s/ /-/;

my $code = toma( "http://findicons.com/search/" ...

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.