Foro - Perl en Español

Ya está disponible la cuarta edición del libro "Programming Perl", el legendario libro del dromedario.

1184 páginas con todo lo necesario para saber qué es Perl.

De momento, en inglés.

Buenos días,

Tengo un archivo de 1.2 TB y al intentar abrirlo desde un programa hecho en Perl me muestra el mensaje: your version of Perl does not support large files.

La configuración de mi PC es :

SO : CentOS 6.2 64 bits
Kernel : 2.6.32-220.el6.x86_64

Procesador : Core i7 3.4 GHz
Memoria : 16 GB

Version Perl : 5.10.1

Por favor, ¿cuál es la forma de habilitar archivos grandes?

Gracias,

Daniel López

Quiero comprobar la lectura del archivo "/etc/inetd.conf", para luego verificar su configuración, pero según el script no existe y esto es erróneo.

Lo verifiqué como usuario "root" y me dice exactamente lo mismo.

#!/usr/bin/perl
use Term::ANSIColor qw(:constants);
my $FICHERO4 = '/etc/inetd.conf';
my $estatus4 = stat($FICHERO4);

if ((! defined $estatus4) || (-r $FICHERO4)) {
print BOLD, RED, 'No existe', RESET, " El archivo $FICHERO4 no existe en el sistema o no puede ser accedido\n";

} ...

Estimados,
Estoy tratando de parsear la siguiente web, ya que me gustaría ver la información en consola y no por web, ya que ésta mete mucha publicidad.

El sitio es:
http://91.123.198.225/Personas/APELLIDO ... xxxx&Sex=M

Aquí obtenemos una tabla con información pero no sé cómo parsear el HTML.

Alguien me puede ayudar.

Muchas gracias.

Hola,

Tengo un servidor en Perl y un cliente de prueba en Perl.

Quiero enviar una cadena (string) sin enviarla línea por línea, respetando su formato original,
porque si lo envío como "print $socket $datos-ejemplo . "\n";", me llegan los datos por líneas.

Una duda, para enviar datos, ¿es necesario que la línea finalice con '\n'?
Porque sin '\n', parece ser que la línea no se envía.

Gracias a explorer por compartir el código de ...

«Muchos, donde yo me incluyo, somos casi adictos a las consolas, y no me refiero a las consolas de videojuegos ;) sino a las consolas de nuestro S.O. GNU/Linux, pues personalmente no me gusta muchos los entornos gráficos, ya que por otra parte también me optimiza mi máquina porque me consume menos recursos que una GUI.

Dicho esto, pues les presentaré un Reproductor de música en Perl ...

Hola a todos,

Estoy investigando cómo agregar nuevos Glyph para crear mis propios dibujos. He modificado los Glyph existentes pero no quisiera eliminar los dibujos predefinidos. Espero que alguien me pueda orientar para poder agregar nuevos Glyph.

Saludos
jsgarcia

¡¡¡Hola, qué tal, muy lindo día!!!

Tengo algo atorado este programa y necesito su ayuda. Lo que yo necesito es que a partir de unas tablas de entrada
como estas:
ENSMUSG00000000001 1488
ENSMUSG00000000028 203
ENSMUSG00000000049 3
ENSMUSG00000000056 192
ENSMUSG00000000058 199
ENSMUSG00000000078 912
ENSMUSG00000000085 150
quiero obtener una sola que contenga todos los genes (la primera columna) que correspondan a los archivos y a los que no se encuentren en uno u otro les pongo un ...

Buen día, nuevamente por aquí esperando aprender de sus sabios conocimientos :D

Mi problema ahora radica en un array que es enviado a una función, pero que al ser recibido no muestra todos sus valores para ser evaluados en una condicional, sin embargo cuando los imprimo uno por uno sí los muestra, pero en su conjunto tampoco. Les dejo los extractos de código.


$cod_resultado ...

Hola, nuevamente pidiendo ayuda. En este caso tengo que hacer algo como esto

hhmm.jpg

pero no sé cómo obtener los milisegundos.
El código es el siguiente:
#!C:\Perl\bin\perl.exe

use diagnostics;
use strict;
use warnings;
use File::Find;

my $dir = "C:\\Files";

find(\&fecha, $dir);

sub fecha
{
our $fila;
our $origen;
our @elem;

my $elemento = $_;
if($elemento=~ /\.dat$/)
{
our $yr;
our $mo;
our $mday;
our $hr;
our $mi;
our $se;
our $mil; ...