Foro - Perl en Español

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

<De parte de jmerelo:>
Hola,
Os escribo para comunicaros que vamos a dar un curso virtual de
iniciación a Perl en la UGR:
http://cevug.ugr.es/perl/
Como veréis por el temario, es muy básico, así que supongo que no es
exactamente lo que andan buscando las personas que hay en esta lista,
pero, tratándose de un curso propio de la UGR, si os podría servir
para acreditar los conocimientos de Perl ...