Foro - Perl en Español

Estimados,

Esperando que disfruten mucho este año nuevo, les quiero realizar la siguiente consulta:

Necesito buscar dos cadenas en un texto plano: “CRITICAL” y “DOWN”.

Para esto estoy usando los comandos:
perl -ne 'print if /CRITICAL/' texto.txt
perl -ne 'print if /DOWN/' texto.txt

Quiero saber si es posible ejecutar esa misma sentencia en una sola línea, ejecutar un comando que me permita buscar dos cadenas en un texto plano.

Desde ya agradezco su ...

Hola a todos.

Tengo un problema con la función addfile() del módulo Digest::SHA.

En ocasiones con determinados ficheros falla la función y termina el programa:

Read failed: Bad file descriptor at program.pl line 5

Lo que quiero es controlar ese error para que el programa continúe.

Según el autor del módulo, dicha función falla (croak) cuando no puede leer el fichero por cualquier razón:

The $io_handle is read until EOF and the content is appended ...

Cuando intento por SMTP me sale el siguiente error.

La aplicacion tiene error:
Undefined subroutine &MIME::Base64::decode_base64 called at /usr/lib/perl5/5.8.8/Net/SMTP.pm line 150, line 998.

Humm... No entiendo por qué puede ser...

Hola.

Tengo una duda: ¿cómo puedo hacer para que cada vez que encuentre una línea que contenga el signo '?', la elimine y guarde las demás líneas en un nuevo archivo?

El código que tengo lo hace dándole el número de registro en donde está el signo.

Pero quiero que lo elimine sin darle yo el registro.

#!/usr/bin/perl
#
use warnings;
use POSIX;

#$archivo=$ARGV;

$archivo="ARCHIVOS.txt";
open my $Fichero, q, $archivo; # abrimos el archivo ...

El sitio web Enlightened Perl Organisation (EPO) ha sido rediseñada
como parte de la iniciativa 2011 de Google Code-in para la Fundación Perl.

• Perl Missile Defense Shield
• Perl Missile Defense with Radar, variante del anterior, con radar
• David's Perl Games

«So at the first post, I'll try to make a very simple application:
"bouncing ball". It is simply a ball bouncing in the screen, where the
left and right cursors will accelerate them to each side.»

Artículo (en inglés)

«What is SDL_perl?

SDL_Perl is a perl interface to the Simple DirectMedia Library. It is composed of a both a XS wrapper to the SDL libraries and a series of Perl modules that export SDL functionality in an object-oriented fashion.

One of the biggest benefits of using SDL is that it allows portable media applications to be written without having to be concerned with specific implmentations of media libraries for each target platform. Bringing Perl ...

Estimados:

Necesito una pequeña ayudita en cuanto a un programa:

Tengo una cadena de ADN: actgactgactg... en forma de $cadena, y quiero coger los elementos de 2 en 2 o en n veces y contar las veces que suceden.

Lo he probado como substrings en la secuencia que te digo de ejemplo: ac, ct, tg, ga... y numerar las veces que aparecen cada tipo.

He intentado con arrays, con hashes y con toda clase de ...

Hola a todos,

Estoy tratando de realizar lo siguiente:

Tengo un dispositivo que tiene un pequeño servidor web. Tiene un archivo xml (http://IP_dispositivo/counters.xml) que quiero consultar regularmente y automáticamente para recoger su información. El problema es que para acceder a ese archivo tengo que registrarme previamente (http://IP_dispositivo/frameCmd_Login.htm) en el siguiente formulario:

<form method="get" action="/Action_Login" onsubmit="return MD5HASH()">
<font color="#000000" align="center">Please Enter Password</font> ...