Foro - Perl en Español

Buen día.
Tengo la siguiente duda. Soy novato en este lenguaje necesito enviar y recibir datos desde el Perl a VB.

El detalle está en que no sé cómo recibir y luego mostrar la información por consola.

use IO::Socket;
$proto = getprotobyname('tcp');
my($sock);

socket($sock,AF_INET, SOCK_STREAM, $proto) or die "$!\n";
#Conexion
$remote ='10.0.0.1';
$port = 1027;
$iaddr = inet_aton($remote) or die "Unable to resolve hostname : $remote";
$paddr = sockaddr_in($port, $iaddr);
connect($sock, $paddr) or die ...

Tengo una función recursiva que me genera un árbol según un array de id que le paso.

El problema es que esos id, pueden ser hijos o padres de otros, así que no quiero que se me repitan en el árbol pues no tiene sentido...

Lo que quiero es eliminar de mi $data principal los elementos que ya la función recursiva haya leído. Este es más o menos mi ejemplo:

sub categoryTreeMecaE{
my $self ...

Buenas,

Quería consultarles si era asumible lo siguiente:
quiero realizar un sistema de respaldo automático, que pueda rotar toda el directivo /var/log cada cierto tiempo.

La idea es que el disco del sistema principal se mantenga con capacidades constante evitando saturación por poca capacidad.

Entonces exactamente lo que quiero hacer es que mediante un script .pl pueda hacer un tratamiento a los archivos, es decir, al capturar archivo por archivo poder abrirlo, limpiar el log ...

Hola, ¿qué tal? Un saludos a todos.

Tengo un problema de búsqueda de cadenas con expresiones regulares que no he podido resolver.

Mi problema es el siguiente:

Archivo A:

130111000008; 0; 1298; 3; 2; 528311149166; 20986; 528311149166; 20986; 2; 0; 0
130111000008; 0; 1294; 3; 2; 526421096094; 20986; 526421096094; 20986; 2; 0; 0
130111000014; 0; 1294; 3; 2; 524434104460; 20986; 524434104460; 20986; 2; 0; 0
130111000015; 0; 1298; 3; 2; 526621011547; 20986; 526621011547; 20986; ...

Ya está disponible la nueva versión de la distribución Rakudo Star: v2013.01

Recordemos que esta distribución reúne los siguientes componentes:

la versión 2013.01 del compilador Rakudo Perl 6
la versión 4.10.0 de la máquina virtual Parrot
varios módulos, documentación, y otros recursos para Perl 6


Anuncio (en inglés)

Instalación de módulos y bibliotecas en Perl

Impacientes:
saltar a la sección Instalación en Linux o Instalación en Windows.

Las distintas distribuciones de Perl suelen venir acompañadas de una gran cantidad de módulos y bibliotecas. Pero
muchas veces necesitaremos usar módulos y bibliotecas que no estarán instaladas en nuestros equipos.
Aquí viene una explicación de cómo hacer esa instalación.

---

Documentación oficial: perldoc perlmodinstall

---

• Can't locate ...
• ¿Está realmente instalado?
• ...

Estimados,
Los molesto porque estoy intentando convertir un script .pl a exe y estoy obteniendo el siguiente mensaje, donde me indica que mi versión es muy reciente, ¿hay forma de decirle que lo convierta desde una versión más antigua?

c:\p2x-11.00-Win\perl2exe-11.00-Win>perl2exe.exe script.pl
Perl2Exe V11.00 2012-06-08 Copyright (c) 1997-2012 IndigoSTAR Software
ERROR: Invalid platform: Win32-5.16.1

Saludos

Hola:

Primero decir que soy absolutamente nueva en esto e intento hacer algo muy, muy simple.
He leído en el foro sobre el tema pero es demasiado complicado de entender para mi porque lo mio es el primer paso.

A ver: Intento mandar un correo.
Este es mi código:

use MIME::Lite;
my $msg = MIME::Lite->new(
From =>'[email protected]',
To =>'[email protected]',
Subject =>'prueba',
Data =>"desde Perl"
) ;
MIME::Lite->send('smtp', "smtp.gmail.com", Timeout => 60 ) ;
$msg->send;

Y ...

Ya está publicado el calendario con las actividades Perl del próximo FOSDEM 2013, que se celebrará los próximos días 2 y 3 de febrero, en Bruselas.

Hola comunidad...

Bueno, aquí una función para colorear la salida en terminales GNU/Linux de vuestros scripts Perl. Estoy trabajando en una nueva versión donde incluyo a las terminales de Windows también.

#color your outputs in Gnu/Linux terminals
#this function only works in Linux terminals, but working in new color_print() function, to
#make it work on Windows terminals
#
#
#HOW TO USE-->color_print($color_of_text,$text);
#by n3td1srupt
#Twiiter-->@n3td1srupt


$var='\e[0m';
sub color_print{

%colors=(red=>'\e[0;31m',
black=>'\e[0;30m',
blue=>'\e[0;34m',
green=>'\e[0;32m',
yellow=>'\e[1;33m',
white=>'\e[1;37m', ...