Foro - Perl en Español

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

Consigo truncar al número pero sólo me deja los primeros caracteres y no los últimos como lo estoy queriendo hacer.

printf '<%.2s>', "2012"
# output
# 20

:x

Vuelvo a repetir: mi intención es conservar los 2 últimos dígitos. Estos valores son años de una base de datos.

¿Alguna sugerencia?

Hola compañeros,

querría modificar la cabecera de un fichero que empieza con ww_2012091700.dat por WW_alt.dat

La cabecera contiene la fecha del día y entonces cada día se modifica. Había escrito el siguiente script pero no me cambia la fecha por el WW_alt.dat. ¿Algún consejo?

#!/usr/bin/env perl
use v5.10;
use DateTime;

$date = DateTime->now->ymd("");
print "$date\n";

@args = ("perl -pi -e 's/ WW_${date}00.dat/WW_alt.dat/g' WW_altvc.ctl");
escriu("@args");
system(@args) == 0 or die $!;

sub escriu {
my ...