Foro - Perl en Español

Hola.

Quisiera que en el siguiente script sólo me aparecieran 25 registros por página, es decir, 25 registros en la primera página, y si hay más registros en sucesivas páginas.

Muchas gracias.

#!/usr/bin/perl

use CGI::Carp qw( fatalsToBrowser );

do 'sessions.cgi';
do 'paidmembers.cgi';

if ( $ENV{REQUEST_METHOD} eq 'POST' ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else { $buffer = $ENV{QUERY_STRING} }
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
( $name, $value ...

Hola, soy nuevo en Perl. Por lo general programo en C++, pero mi padre me recomendó hacer este proyecto en Perl puesto a su parecido con PHP (posteriormente lo debo publicar en web).

Se trata de un examen de preguntas al azar de 3 niveles diferentes: 5 de nivel 1, 5 nivel 2 y 1 nivel 3.

Previamente el programa debe comprobar tu identidad y verificar si no diste el examen antes, si lo hiciste ...

Tengo el siguiente código:

my $a = "
11
11
11 11
11 11
00 00
00 00
0000000000
00 00
00 00

";

my $b = "
11111111
11 11
11 11
11 11
00000000
00 00
00 00
00 00
00000000

";

my $c = "
11111111
11 11
11
11
00
00
00
00 00
00000000

";


chomp $a;
chomp $b;
chomp $c;

print $a.$b.$c;

Mi plan es que se junten ...

Antes de mostrarles el bloque de código, lo que deseo es poder recorrer el array @sequence, de manera tal que CADA vez que se cumple un bucle while(), el puntero del array se vaya moviendo y este valor se asigne a la variable $seq.

Supongamos...
1ª vez que corre el bucle -> $seq = 3
2ª vez que corre el bucle -> $seq = 5
3ª vez que corre el bucle -> $seq = 7 ...

Hola a todos, estoy aprendiendo Perl y me han dado una tarea en la que tengo que, usando una función recursiva, recorrer un directorio, encontrar las repeticiones de un archivo (nombre del archivo ingresado por parámetro) que coincida tanto en nombre como en peso. Pero el detalle es que no puedo usar Find, y para el peso debo usar -s.

He tratado y tratado. He creado archivos con mismo nombre pero diferente tamaño, pero mi ...

Estimados,

Junto con saludarlos les comento el problema que presento:

Realicé un pequeño script en Windows que busca en una ruta si fueron creados unos archivos con cierto nombre; para esto utilizo el comando findstr.

El problema es que al ejecutar el comando en el script me arroja un error:

C:\>script_log.pl
Unrecognized escape \I passed through at C:\script_log.pl line 5.
Unrecognized escape \A passed through at C:\script_log.pl line 5.
Unrecognized escape \p passed through ...

Hola

Tengo unos datos que analizar, en server-cpu-avg.csv (hay un ejemplo anexado), que luego formarán un fichero XML.

Creo que me he liado al construir el array y, aunque funciona, no sé quitar la primera línea (que serían los nombres de las columnas, que no me interesan para nada) y tampoco sé quitar las comillas. Sería algo así: s/"//g, pero no tengo claro dónde ponerlo en el código (todo esto lo quisiera hacer durante el ...

Hola. Doddy me dijo que prodían ayudarme con un problema que tengo con algunos scripts de Perl aquí :)

Cuando inicio este script con el cmd:
#!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 ) {
sleep 1;
syswrite STDOUT, " Wait $se seconds \r";
}

print "\n\n Cheating ...\n";
cheatnow(); ...

¡Hola!

Soy nueva en esto de la programación con Perl y ¡aún no consigo aclararme!

Mi pregunta es muy básica. ¿Podrían ayudarme a crear un programa que me compare dos archivos (la extensión de los archivos es ".tab")?

Este programa tiene que buscar el contenido de las celdas del archivo 1 (por ejemplo, el contenido de A1, A2, A3...) y buscar si está en el archivo 2 (búsqueda en todas las celdas de la columna ...

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