Foro - Perl en Español

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', ...

Tengo este código:

#!/usr/bin/perl

BEGIN {
my $b__dir = (-d '/home/acertp3d/perl'?'/home/acertp3d/perl':( getpwuid($>) ).'/perl');
unshift @INC,$b__dir.'5/lib/perl5',$b__dir.'5/lib/perl5/i686-linux',map { $b__dir . $_ } @INC;
}

use CGI::Carp qw(fatalsToBrowser);
use warnings;

#Controlador del Admin
use lib('../');
#use lib '../libs';


use Datea::Casslc qw(:all);
print "Content-type: text/plain\n\n";

print "testing...\n";


y efectivamente, la respuesta es:

Can't locate Datea/Casslc.pm in @INC (@INC contains: ../ /home/acertp3d/perl5/lib/perl5 /home/acertp3d/perl5/lib/perl5/i686-linux /home/acertp3d/perl/usr/local/lib/perl5/5.8.8/i686-linux /home/acertp3d/perl/usr/local/lib/perl5/5.8.8 /home/acertp3d/perl/usr/local/lib/perl5/site_perl/5.8.8/i686-linux /home/acertp3d/perl/usr/local/lib/perl5/site_perl/5.8.8 /home/acertp3d/perl/usr/local/lib/perl5/site_perl /home/acertp3d/perl. /usr/local/lib/perl5/5.8.8/i686-linux /usr/local/lib/perl5/5.8.8 /usr/local/lib/perl5/site_perl/5.8.8/i686-linux /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl .) at index.pl ...

¿Qué tal? Tengo el siguiente problema:

Tengo un archivo de Excel en formato xlsx, el cual necesito leer algunas celdas del mismo y dependiendo de los valores que obtenga al realizar la lectura de las celdas tengo que escribir valores en otras celdas del mismo archivo. Una vez hecha la escritura tendría que guardar ese archivo con un nombre diferente al que abrí.

He estado checando el módulo Spreadsheet::Read, el cual me permite leer archivos ...