Foro - Perl en Español

Bueno tengo el siguiente código en una web. Mi pregunta es ¿cómo puedo hacer para imprimir esa lista en Perl? ¿Es posible?

<td><font face="arial" size="-1">
1) castro<br>
2) peres<br>
.
.
.
x) vargas<br>
</font></td>
Al final quiero estoy buscando que quede así:

Code: Seleccionar todo

1) castro
2) peres
3) gantu
4) leyva
5) vargas

Hola

Tengo una cuestión acerca de archivos. ¿cómo puedo bloquear para que no se puedan subir archivos de más de 1 mega al servidor? ¿Qué es lo que puedo realizar para que no suban ese tamaño de archivos?

Tengo este código para agregarlo:
$File = "/encargosweb/$Stimestamp-$filename";
$File =~ s/ |-|://g;
if (open (OUTFILE,"> $ENV{'DOCUMENT_ROOT'}$File")) {
while ($bytesread=read($fh,$buffer,1024)) {
print OUTFILE $buffer;
}
close OUTFILE;
} else {
print "ERROR"; exit 0;
}

¿En qué ...

Hola,

Cuando uso el debugger de C, gdb, en emacs, puedo conseguir que tenga varias ventanas (depurador, variables, código fuente, pila, breakpoints), gracias a que tengo esto en el .emacs:

Code: Seleccionar todo

(setq gdb-many-windows t)

Cuando intento usar el debugger de perl:

Code: Seleccionar todo

M-x cperl-db

Me sale:

Code: Seleccionar todo

Run perldb (like this): perl

Le doy al enter y me sale el debugger, pero solo con la ventana del debugger.


Pregunto:

¿Hay alguna forma (añadiendo algo al .emacs, ...) de ...

Tengo un problema a la hora de colocar dentro de un array una palabra con comillas simples: Ejemplo:


@rray=('' hola', ' pepe');


Ahí las palabras que quiero meter en el array son:

Code: Seleccionar todo

 ' hola, pepe

Al poner la comilla simple, creo que se lía. Así que supongo que habrá que hacer uso de alguna expresión regular.

hola

Soy un novato en Linux y estoy programando un pequeño script que coge los parámetros una tabla de MySQL y ejecuta un comando, lo que quiero hacer es ejecutar unos comandos con unos parámetros y saber si se han ejecutado correctamente y otros recoger la captura, tengo algo así:

#!/usr/bin/perl

use strict;

use constant DIRECTORIO => '/home/manolo/ficheros'
use constant PROGRAMA => '/home/manolo/leedat'

my $base_datos="estadisticas";
my $usuario="estadisticas";
my $clave="*****";
my $driver="mysql";

#Conectamos con la BD, ...

Tengo un problema con while, y es que no me deja usar las letras.

#!/usr/bin/perl
print "Introduce un numero: ";
$n1=<STDIN>;
while ($n1 != 0) {
print "Introduce un numero: ";
$n1 = <STDIN>;
}

Si introduzco una letra o palabra, ya me termina el bucle sin teclear el 0.
Además eso no es todo yo quiero que termine al teclear una palabra. Concretamente 'exit'.

#!/usr/bin/perl
print "Introduce un numero: ";
$n1=<STDIN>;
while ($n1 != ...

Hola:

Soy nuevo así que antes de nada presentarme.

Soy José María y me estoy iniciando en esto del Perl.

En mi empresa trabajamos con Perl pero sólo en la parte de hacer programas batch.

La parte visual la trabajamos con VisualAge for Java de IBM pero estamos buscando un entorno de programación de ventanas (tipo PowerBuilder por ejemplo) pero que la programación de eventos sea en Perl.

¿Me podéis indicar algunos y la valoración ...

Hola buenos días...

¿Alguien me podría explicar qué hace el eval?... Por lo que he leído, evalúa una expresión pero aquí no entiendo, aparte el <>, no sé qué haga...

Les mando el código que estoy tratando de entender para implementar en mi dbxml...

Y si alguien me puede decir también dónde encuentro algo al respecto para leer lo agradecería mucho...

¡¡¡Saludos!!!

eval {
print "Deleting documents for expression: '$query'\n";
print "Return to continue: ...

Buenas, estoy comenzando recién en Perl. Estoy ocupando el compilador para Linux y el de BSD y el siguiente código no me manda error, pero cuando lo paso a un Linux... me manda error.

$sLineTmp = "@fText\n";

if( $sLineTmp =~ /^\d/ ) {

el error me lo manda en el if... con el siguiente mensaje:

Code: Seleccionar todo

syntax error .... near ") { "

Espero me puedan ayudar... Gracias.
Saludos.
...

Lo que estoy intentado hacer es entrar en una web y buscar una palabra mediante grep. Y si existe que me lo confirme.

use IO::Socket::INET;
$sock = IO::Socket::INET->new(PeerAddr => "www.google.es", PeerPort => 80, Proto => "tcp");

$grep= "$sock | grep Web";

if($grep == 0) {

print "NO EXISTE\n";
}
else {
print "EXISTE\n";
}

Con ese script estoy intentando entrar a google y si me encuentra la palabra "Web" que me imprima "EXISTE". Pero ese ...