Foro - Perl en Español

¡¡¡Hola a todos!!!

Tengo un problema y estoy atorado con esto desde hace ya varios días. Tengo un archivo así:

ID RPKM_C RPKM_T1 RPKM_T2
Pp1s10008_1V6.1 15.1413902 13.23147945 63.56598706
Pp1s100_101V6.1 3.02827804 2.615525008 7.196149479
Pp1s100_102V6.1 6.012701324 6.004640585 12.75103445
Pp1s100_104V6.1 4.660445525 4.4133651 8.656488079
Pp1s100_106V6.1 4.05209418 3.87275314 6.58645081
Pp1s100_107V6.1 3.563197791 3.881832493 7.756641103
Pp1s100_108V6.1 2.658938461 2.450037373 6.639192251

Y necesito un script que me compare los RPKM_C vs RPKM_T1, RPKM_C vs RPKM_T2, de cada ID y que los asigne a ...

Hola.

Desde hace tiempo no puedo abrir un archivo .cgi desde la carpeta cgi-bin del servidor pero sólo en este equipo, en los demás se abre sin problemas.

La dirección es la siguiente http://www.intelresponder.com/cgi-bin/arp2/ar.cgi y la contraseña es aeiou.

Una vez que accedemos, la pantalla de la derecha se abre sin problemas, pero la izquierda se queda en blanco y el logo de carga no para de funcionar, hasta ...

«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; ...