Foro - Perl en Español

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)

Buenas, estoy intentando mandar un correo. Tengo este ejemplo

#!/usr/bin/perl
#~.

use Email::Send;

my $message = <<'__MESSAGE__';
From: [email protected]
To: [email protected]
Subject: Nuevo boletin

Hay un nuevo boletín
__MESSAGE__

my $mailer = Email::Send->new(
{
mailer => 'SMTP',
mailer_args =>

}
);
$mailer->send($message);

cuando ejecuto me sale el siguiente error

Can't locate Email/Send.pm in @INC ...

¡Hola!
Necesito ayuda de algún experto para que me indique lo siguiente.
Soy novato en programación y tengo que hacer funcionar una utilidad llamada ConfMan (sirve para enviar resúmenes y proyectos).
Esta utilidad funciona con una sintaxis PHP que almacena todo en una base de datos (SQL).
Ahora viene mi problema.
Estoy trabajando en un servidor Linux para tal fin; ya creé la base de datos y el próximo paso es ejecutar un script en ...

Saludos, estoy tratando de crear una archivo XML con el módulo XML::Simple que tenga más o menos la siguiente estructura:
<ajaxresponse>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>1</numero>
</item>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>2</numero>
</item>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>3</numero>
</item>
</ajaxresponse>


Esto lo puedo obtener haciendo esto:

my $lista = {
'item' => [
{
'numero' => '1',
'nombre' => 'zzz',
'apellido' => 'xxx'
},
{
'numero' => '2',
'nombre' => 'zzz',
'apellido' => 'xxx'
},
{
'numero' ...