Foro - Perl en Español

Tengo un archivo llamado perfil.mp3 y lo quiero renombrar por feeling.mp3. Utilizo este comando:

rename("perfil.mp3","feeling.mp3");

El tema es que lo tengo dentro de una carpeta que se llama "musica". ¿Cómo hago para renombrar los archivos que están dentro de una carpeta específica?

Hola, lo que busco es hacer un módulo yo mismo, pero que este módulo pueda ser accedido vía use MiModulo; en cualquier programa Perl, sin tener que usar lib ni nada por estilo, como si fuera un módulo como los de CPAN tipo use DBI;

No tengo la más remota idea de qué hay que hacer, me imagino que, ¿copiarlos a algún directorio en concreto?

¡Gracias!

Es sencillo, quiero verificar que antes de crear un fichero me diga si existe o no con el mismo nombre...

Solo es eso, quiero hacerlo de una manera más rápida; sé que Perl lo hace fácil pero no recuerdo como.

Hola Perleros, quisiera hacerle una consulta, tengo el siguiente código en un CGI llamado paso2.cgi:

$t->param(( 'css' => $css,
'js' => $js,
'percent_completed' => '<font id="percent">0%</font>',
'files_uploaded' => '<font id="files">0</font>',
'data_uploaded' => '<font id="current">0</font>',
'data_total' => $totalKB,
'time_spent' => '<font id="time">0</font>',
'speed' => '<font id="speed">0</font>',
'time_left' => '<font id="left">0</font>',
'inline' => $cgi->param('inline') ? 1 : 0,
));

Bueno, lo que necesitaría es alguna forma de pasar la variable $totalKB a un CGI aparte, o sea ...

:shock: Hola a quien me pueda ayudar le agradezco de antemano, tengo un problema al instalar el módulo DBD-mysql-3.0002, lo he instalado por consola y he instalado anteriormente el módulo de DBI, pero he tenido los errores que les muestro mas abajo. Por favor, si alguien me pudiera ayudar muchas gracias.

Puse primero la siguiente línea y funcionó todo muy bien,

C:\Documentos\Plataforma\Perl\ModulosPerl\DBD>perl makefile.pl --libs=-LC:\Archivos de programa\MySQL\MySQL Server ...

La idea mía es engañar a alguien que no quiere que trabaje en Perl, pero él solo verá la extensión si es .pl o cgi, lo que deseo es que Perl me reconozca otra extensión, por ejemplo .plx, .plm, .epl...

Thanks

Alguien me podria dar un ejemplo del uso del CGI::FormBuilder::Template::HTML.

Lo necesito porque quiero desarrollar un administrador de contenidos con muchos formularios, y que todo el administrador tenga un diseño para todas las páginas.

La idea es tener un ejemplo porque no creo entender lo del módulo, aunque sea simple, Gracias.

Hola.

Trabajando con OS X, en Big-Endian, tengo un problema al usar datos tipo chr, pack/unpack.

Cuando hago esto:
desktop:~ creating021$ perl -e 'print chr(127);' > x.data
Y lo paso a 0xED (un editor hexadecimal) encuentro que imprime esto:

Code: Seleccionar todo

0 7F

Debería de ser 7F, sin el 0 (la salida tiene que ser en Little-Endian).
perlport no me ha sido de ayuda en este caso.
¿Cómo puedo arreglar esto?

Cualquier ayuda se agradece.

Se me ocurrió otro programa que me apetecía hacer (siempre como excusa para aprender), y me encontré con un enorme problema, anteriormente había posteado preguntando como sacar una info de una página al hacerle un GET, y se solucionó porque estaba en una tabla, pero en este caso no es así, me gustaría hacer que el programa lea y almacene en una variable un dato (el tiempo que queda para poder volver a descargar de ...

Hola, necesito habilitar la opción de envío de correos en mi programa, ya instalé Mail::sendmail ver 0.79, Mime-Lite 3.71, pero no logro enviar el mail. El código es el siguiente:
Primer código:
#!c:\perl\bin\perl.exe

use strict;
use MIME::Lite;

$msg = MIME::Lite->new(
From =>'[email protected]',
To => '[email protected]',
subject => 'hola',
Data =>"prueba"
);

MIME::Lite->send('smtp', "ip de mi servidor de correo", Timeout=>60);
$msg->send;

con el código anterior aparece mensaje indicando "global symbol $msg ...