Foro - Perl en Español

He estado tanteando Getopt::Long para darle un poco más de robustez a mis programas. Las posibilidades que ofrece para controlar los parámetros pasados al programa son exactamente lo que buscaba. He hecho este código para probarlo:


#!/usr/bin/perl

use v5.12;
use strict;
use warnings;
use MIME::Base64;
use Getopt::Long;

#Programa de codificación y decodificación en base64. De acuerdo con la información del módulo #MIME::Base64 codificaremos en múltiplos de 57 bytes: "This ensures that the base64 ...

¿Cómo declaro las variables $n1, $n2 y $resultado para que no me dé este error? Ahora, si le pongo my $n1; ya no me da error, pero my() es local. ¿Cómo la declaro global en este programa?

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
print "Introduce un primer numero:\n";
$n1 = <>;
print "Introduce un segundo numero:\n";
$n2 = <>;
$resultado=$n1+$n2;
print "El resultado es:$resultado\n";

Global symbol "$n1" requires explicit package name at sumanumero3 line ...

Un simple script en Perl para HTTP FingerPrinting o por lo menos lo intenta xDD.

El código :

#!usr/bin/perl
#HTTP FingerPrinting 0.1
#Coded By Doddy H

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

print "\n-- == HTTP FingerPrinting 0.1 == --\n";

unless ( $ARGV ) {

print "\n Sintax : $0 <page> < -fast / -full >\n";

}
else {

print "\n Getting Data ...

El libro de M. Brown Perl sin errores muestra cómo utilizar este módulo para ver la interpretación que hace Perl de nuestro código al aplicar los órdenes de precedencia de los distintos operadores:
perl -MO=Deparse, -p -e '$a + $b * $c / $d % $e'
-e syntax OK
($a + ((($b * $c) / $d) % $e));
La documentación http://perldoc.perl.org/B/Deparse.html afirma, en efecto que:

When you use the -p option, the output also ...

«Temario

• Para qué sirve Perl
• Entornos de Desarrollo (GUI)
• Tipo de Variables
• Función Print
• Primer Programa : HolaBarcamp.pl
• Función STDIN
• Segundo Programa : BienvenidoAlBarcamp.pl
• Tercer Programa : OperacionesBasicas.pl
• Sentencia IF

Esta será la primera entrega de Programación en Perl, el presente material lo usaré para la exposición en el BarCamp Milagro donde seré expositor. Lo divido en partes para no hacer la publicación demasiado grande. ...

Perl. Sin errores

BROWN, Martin. Caraballo, Gregorio (trad.). Madrid. Osborne McGraw-Hill. 2001. 466 pág. ISBN: 84-481-3184-3.

"Perl sin errores" pertenece a la serie de Osborne McGraw-Hill "Biblioteca del programador". Ha sido calificado por el editor como un texto de nivel "intermedio" y su objetivo explícito es dar unas pautas para programar mejor y mostrar las técnicas, simples o avanzadas, que Perl pone a disposición del usuario para depurar sus programas.

En palabras del autor:

Este ...

Hola, tengo un programa hecho con GD para ver líneas, rectángulos, etc., pero cuando lo ejecuto tan solo me sale la consola MSDOS, y no se abre ninguna ventana gráfica con el dibujo de las líneas y demás. No sé si es que hay que direccionar hacia un archivo, o hay que poner algo más, para que se vea el formulario con las líneas.

#!/usr/bin/perl -w
use GD::Simple;

$img = GD::Simple->new(640, 480);

$img->fgcolor('black');
$img->bgcolor('yellow');

$img->rectangle(10, ...

Hola, estoy buscando la equivalencia en Perl de la función de C gotoxy para posicionar texto en la consola. Por lo visto el Term::Cap o el screen no funcionan en Windows. La versión de Perl es la que viene con el IDE Padre 5.14.2. A ver qué módulo me podría valer.

EDITADO: 3 horas después de escribir este código ya lo había interpretado equivocadamente. Afortunadamente me doy cuenta de las cosas... A la tercera o la cuarta. :oops:

La edición afecta a mi "interpretación" de las operaciones efectuadas por el código que valida la ruta absoluta del archivo que paso a dpkg --search desde el fichero de datos. Si he mancillado los ojos de alguien mediante ese párrafo ...

¡Hola!

Al lanzar el comando:
/etc/init.d/mysql status
Rather than invoking init scripts through /etc/init.d, use the service(8)
utility, e.g. service mysql status

Since the script you are attempting to invoke has been converted to an
Upstart job, you may also use the status(8) utility, e.g. status mysql
mysql start/running, process 25274

Me gustaría interpretar la frase "mysql start/running, process 25274".

Lo estoy intentando así:#!/usr/bin/perl
use strict;
use IPC::Open3;
my $comando = "/etc/init.d/mysql status";
my ...