Foro - Perl en Español

• Cree un archivo tipo texto con las siguientes características:
  
  • Cada palabra (campo) deberá estar separado por ':' (dos puntos) sin espacios intermedios
  • El último dato solamente lleva ENTER, NO COLOCAR ':' (dos puntos)
  • Que contenga 4 campos
• Abra el archivo de modo lectura
• Imprima los registros con todos sus campos
• Abra el archivo de modo lectura-escritura
• Imprima su contenido
• Genere nuevos datos
• Imprima contenido
• ...

Buenas noches.

Tengo un script en Perl para realizar copias de BD de MySQL, y quiero poder detectar cuándo se ejecuta bien o cuándo da algún error, pero no consigo cazar las excepciones de errores.

¿Sabéis cómo puedo saber si un comando se ejecutó correctamente o dio algún error en Perl?

Orden que utilizo (acepto consejos):

system("/usr/bin/mysqldump -u $userDB --password=$passwordDB --single-transaction --routines --events --triggers --hex-blob $bd | /bin/gzip -c > $DST/$DATA" . "_" . $bd ...

Evaluar la posibilidad cuando el contenido del saco sea vaciado en su totalidad. Generar el mensaje “El saco está vacío, no hay más qué contar. Cargue un nuevo saco”.

#!/usr/bin/perl

$pesosaco=2.1;
$peso=1;
while($peso != 0) {


print "ingrese un peso: 0.70gr plástico 1 gr canicas \n";
$peso=<STDIN>;
chop($peso);
print "\n";
if ($totalp==$pesosaco){
print "el saco está vacío, no hay más qué contar. Cargue un nuevo saco";
}
else
{
if ($peso == 0){
print "total ...

Necesito su ayuda. Necesito un programa que muestre un mensaje en pantalla de que su tiempo ha terminado al llegar a dos minutos. Hasta aquí todo bien. El problema es que también debe mostrar un mensaje de interrupción si el usuario no presiona una tecla durante diez segundos.

#!/usr/bin/perl

my $countdown = 2*60;

$| = 1;

my $beg_time = time;
my $end_time = $beg_time + $countdown;

for (;;) {
my $time = time;
last if ...

Buenas.

Tengo un script que tiene que hacer dos conexiones sftp a dos servidores distintos.

Lo estoy haciendo con el módulo Net::SFTP::Foreign

Lo he hecho con las siguientes líneas:

my $sftp_rep = Net::SFTP::Foreign->new(host=>$host_rep, user=>$user_rep, password=>$passwd_rep, port=>$port_rep);
$sftp_rep->die_on_error("unable to connect to remote host");

Así es como lo tengo puesto inicialmente.

Entonces, inicialmente, si hay algún posible error en la conexión del ssh, con este código, el script lo que hace es salir del script. ...

Buenas. Necesito ayuda. Estoy realizando este programa. Corre bien pero no encuentro la forma de agregarle que cuando no encuentre coincidencias que me dé un texto en pantalla diciéndolo.

#!/usr/bin/perl

for ( $x = 1; $x <= 10; $x = $x + 1 ) {
print "ingrese el parrafo $x : ";
$tipo = <STDIN>;
chop($tipo);
my $string = $tipo;
my $char = 'lengua';
my $offset = 0;

my $result = index( $string, $char, ...

Hola, estoy cruzando dos listas de datos, buscando las entradas de la primera (unas mil entradas) en la segunda (una base de datos de ~40 millones de entradas).

He pensado que se puede hacer de dos maneras (seguro que se puede hacer de otras...)

-con un grep
grep (/\b$chr\b/, @file2);

o
-con un regex
m/\b$chr\b/;

Tengo tres dudas,

1- ¿es una de las dos búsquedas, grep o regex, más rápida o eficiente computacionalmente que la ...

Muy buenos días.

Si tengo un archivo .csv separado por comas con 61 columnas y deseo eliminar las columnas 59, 60 y 61, ¿cómo podría utilizar undef o cuál sería la mejor manera?

Muchas gracias.

Buenas, necesito su ayuda con este problema:

Quisiera realizar la eliminación dentro de una lista asociativa pero sin hacerlo de forma manual tal y como está ahora en mi código, sino por medio de algún for() o si existe otra forma. De la lista se eliminan los datos uno, tres y siete; se tiene que mostrar la lista antes de la eliminación, los números a eliminar y la lista después de la eliminación.

#!/usr/bin/perl
%datos ...

Hola, compañeros.

Tengo un problemilla curioso. Instalé con cpan Image::Grab.

Cuando ejecuto el script .pl manualmente por consola, me descarga la imagen en un directorio local. Si programo este mismo script en el crontab entonces me sale un error de que no encuentra dicha biblioteca o paquete... con el siguiente mensaje:
Can't locate Image/Grab.pm in @INC (@INC contains: /usr/local/lib/perl5/5.10.1/i686-linux-thread-multi /usr/local/lib/perl5/5.10.1 /usr/local/lib/perl5/site_perl/5.10.1/i686-linux-thread-multi /usr/local/lib/perl5/site_perl/5.10.1 .) at /home/enric/download_images.pl line 4.
BEGIN failed--compilation aborted at /home/enric/download_images.pl line 4.
Versión ...