Foro - Perl en Español

En la Universidad Autónoma de Barcelona, en el Servicio de Genómica Bioinformática, disponen de los cursos tradicionales:

• Introducción a la Bioinformática
• Desarrollo de software bioinformático y programación en Perl

además de cursos en línea:

• Una invitación a la Bioinformática
• Curso de introducción a la programación con Perl

Este último curso está disponible libremente y consiste en 10 ejercicios de dificultad creciente que te introducirán al lenguaje de programación Perl. ...

Syntax Error - 1.ai - at 1dotai.pl line 2, near "print print("Free Hosting for Geeks.\n");

Me salió ese error, no sabía que usarán Perl la gente de Google... ¡je,je!, aunque prefiero mil veces el nuevo Outlook que en ese gmail pues lo uso de vez en cuando y me salió eso por ahí.

Pero quizás sea solo una publicidad o quien sabe... que será.

Tengo el siguiente código en Ruby
logo=

def mostrar text
w="|"
text.each do |str|
str.scan(/./) do |c|
STDOUT.flush
if w=="|"
print "\b"+c +w
w="/"
elsif w=="/"
print "\b"+c +w
w="-"
elsif w=="-"
print "\b"+c +w
w="\\"
else
print "\b"+c +w
w="|"
end
sleep 0.04
end
print "\b "
puts ""
end
end

mostrar(logo)

Mi pregunta es si alguien me podría ayudar a traducirlo a Perl porque lo he intentado ...

¡Buen día!

Les comento mi problema.

A través de un webserver (siendo yo el cliente) obtengo un xml desde un servidor remoto. El archivo que recibo, teóricamente es un xml pero al darle un dump al archivo en si viene de esta manera

$VAR1 = {
'current_page_number' => '1',
'foreign_remote_system' => {
'identifier' => 'xxxxxxxxxxx',
'counter_id' => 'yyyyyyyyyyyy',
'reference_no' => '000000'
},
'last_page_number' => '1',
'xmlns:xrsi' => 'http://servidorremoto.com',
'number_matches' => '9',
'payment_transactions' => {
'payment_transaction' ...

Buenas, ¡esta en mi primera pregunta!

Tengo un código Perl que extrae los eventos de un equipo Windows... y los almacena en una base de datos. Pero lo que necesito es ejecutarlo desde una página en PHP.

¡He visto que hay unas funciones de ssh2_shell que me lo podría ejecutar! Pero aún no lo he podido lograr.

La necesidad de hacerlo desde una página web es de mucha importancia porque ese mantenimiento se hará hacia ...

Saludos, soy nuevo en este foro. Estoy trabajando en un "menú" pero tengo un pequeño problema: mi idea es que cuando escriban "-animals" el programa muestre una lista de animales, pero que solo funcione con "-animals", pero lo que pasa es que escribo cualquier otra cosa y muestra la lista.

Chequen mi código. ¿Cómo puedo corregir este error? Mi idea es que al escribir "-animals" muestre la lista pero si escribe cualquier otra cosa que ...

Hola, recién estoy comenzando con Perl; necesito armar un simple ABM (agregar, borrar y modificar) de unos datos de usuario, el tema es que estoy muy trabado y la información que encuentre en Internet no la logro comprender, y no logro conectar tampoco la base de datos, ¡¡¡si hubiera algún manual o un buen tutorial de cómo hacerlo me vendría de maravilla!!! ¡¡Muchas gracias!! Soy nuevo, no sé si la consulta está bien en esta ...

Bueno, como se me falseó la tecla enter de tanto escribir los mismos trucos para los suministros del juego Age of Empires 2 decidí hacer este simple script para que los haga por mi. Al terminar vamos a tener 30.000 de madera, alimentos, oro y piedra.

El código:


#!usr/bin/perl
#AOE2 Cheater 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd

use Win32::GuiTest qw(SendKeys);

head();

for my $se ( reverse 1 .. 10 ) { ...

Tengo este código y lo subí a mi hosting pero, ¿cómo puedo saber si de verdad está corriendo con el fastcgi o mod_fastcgi o, bueno, no sé cómo sea...

La URL es:

http://kreatibox.com/index3.cgi

y el código que tiene es:
use CGI::Fast qw(:standard);
$COUNTER = 0;
while (new CGI::Fast) {
print header;
print start_html("Fast CGI Rocks");
print
h1("Fast CGI Rocks"),
"Invocation number ",b($COUNTER++),
" PID ",b($$),".",
hr;
print ...

Mi problema es que agrego unos datos a una sesión y no tengo problemas,
pero solo en un método en CGI-APP se me presenta un problema, que al imprimir el contenido de esa sesión observo unos hash extraños...

Esta es mi función de agregar.


sub cart_add{
my $self= shift;
my $dbh = $self->dbh;
my $q = $self->query();
my $item = MyApp::Db::Stock::Item->new($dbh);
$item->retrieve($q->param('item'));


my $total = $self->session->param('total_cesta') + $item->{'data'}->{'price'};
my $cesta = $self->session->param('cart');
#die ...