Foro - Perl en Español

Buen día... cómo les va.. hace mucho que no posteo nada....

Acudo a ustedes para preguntarle si alguno tiene alguna solución para el problema de spam en los foros Perl, supongo que es un problema normal... y la solución debe ser muy simple...

Si alguien me da una mano, me ayudaría mucho...

Muchísimas gracias

iojis

Hola, una pregunta; abro un documento en procesador de texto y no aparece nada pero lo veo por VI y aparece el caracter ^@, lo cual hace que truene mi programa, como lo puedo eliminar por medio de Perl.

Por su ayuda muchas gracias de antemano.

Quiero saber cómo puedo poner una imagen el Glade, lo hago y me sale este error....

####este es el codigo

#!/usr/bin/perl
use strict;
use Gtk2 -init;
use Gtk2::GladeXML;

my $programa = Gtk2::GladeXML->new('hola_mundo.glade');
#my $ventana_principal = $programa->get_widget('ventana_principal');

Gtk2->main;
### este es el error....

Code: Seleccionar todo

(sidis:14391): libglade-WARNING **: could not convert string to type `GdkPixbuf' for property `pixbuf'

Buenas tengo una duda.

Tengo varios usuarios que envían sus fotos. El problema surge cuando mediante el cgi, estos suben archivos de texto: word, excel, power point ..
if (-e $imagen){
$archivo_imagen="../carpeta/imagenes/$contador.jpg";
open (IMAGEN, ">$archivo_imagen");
while ($lectura = read($imagen, $cadena, 1024)){
print IMAGEN $cadena;
}
close IMAGEN;
}

¿Cómo hacer para que determine que las extensiones: .doc, .ppt y .xls, las cuales no son permitidas o sólo las extensiones jpg y gif que deben ser ...

Hola a todos

Estoy intentando redirigir la salida de un comando llamado desde la función system a un fichero

system("\"C:\\ejecucion.exe\" > \"C:\\Program Files\\salida.txt\"");

y el problema lo tenemos en que no reconoce el espacio entre "Program" y "Files" del fichero de salida.

¿Alguien sabe cómo hacerlo? Ya he probado estas combinaciones y ninguna es válida:

Code: Seleccionar todo

'C:/Program/Files/salida.txt'
\"C:\\Program\ Files\\salida.txt\"
"C:\\Program Files\\salida.txt"
'C:\\Program\ Files\\salida.txt'
'C:\\Program\" \"Files\\salida.txt'

fich="C:\\Program Files\\salida.txt"
system("\"C:\\ejecucion.exe\" > $fich)
system("\"C:\\ejecucion.exe\" > "$fich")

En fin, una ...

Muy buenas tardes. Como pueden ver soy novato en Perl. Entonces me gustaría saber dónde puedo conseguir un buen tutorial de Class::DBI que esté en Español. Gracias por la ayuda.

my $cent = 0.01;
my $total = 0.0;
print "Total $total\n";
for ( my $i = 0; $i < 1000; $i++){
$total += $cent;
}
print "Ahora tengo $total y deberia ser 1o\n";
:? Y no es el unico lenguaje: C#, Java, COBOL y otros.

Tengo un CGI que ejecuta algunos comandos con system,
Mi CGI hace lo que quiero pero al final aparece 500 Internal Server ERROR, y no llega a la última parte del CGI que es redireccionar a otra página.
Checando el log del apache veo que lo que marca no son realmente errores, sino las órdenes y el resultado de los comandos system.
Estuve tratando con CGI::Carp pero no me resolvió nada, y también estuve buscando ...

Quiero sacar la parte entera de un número... por ejemplo si tengo 8.544 que me dé como resultado 8.
Muchas gracias

Hola,

¿cómo se puede, usando la función sort, ordenar eliminando duplicados?

Ej.:
@a = (1,4,2,2,6,7,7,8,1,3);

que muestre 1,2,3,4,6,7,8

Saludos
8)