Foro - Perl en Español

Hi!

Este es el code de mi programa player.pl

#Name program = Player Music
#Autor = Guason
#Alias = Guason el malvado

use Win32::MediaPlayer;



if(!$ARGV) {

print "\n\n";
print "Player Music By Guason\n";
print "\n";
print "Modo de uso = player.pl <SONG>\n";
print "SONG = Puede ser una cancion o un video\n\n";
print "Written by Guason\n";
exit 1;
}

my $play = $ARGV;


$winmm = new Win32::MediaPlayer; # new an object
$winmm->load ($play) ; # ...

Gracias a todos los moderadores y personas que hacen posible sitios como este...

Soy nuevo en Perl y bueno, como todo novato me encuentro con la barrera de los módulos.

Mi problema es el siguiente: estaba copiando un script que encontré en la red para buscar en el escritorio y otras cosas. Lo copié todo tal cual o más o menos, y cuando lo corrí, bueno, no tengo instalado algunos módulos. Fui instalando así:
# ...

Hola a todos.

Estoy trabajando con sockets UDP y por ellos estoy recibiendo paquetes SNMP.

Necesito analizar estos paquetes para saber cuál es el IP/puerto de origen del paquete que llegó al host.

Tengo el mensaje en la variable $newmsg que acabo de recuperar del socket y este es el código con el que estoy probando:

...
use NetPacket::Ethernet qw(:strip);
use NetPacket::IP;
use NetPacket::UDP;
...
my $ip_datagram = NetPacket::IP->decode( NetPacket::Ethernet::eth_strip( $newmsg ) );
foreach ( ...

Primeramente saludarlos y agradecerles por este hermoso trabajo.

He estado revisando diversos redirectores para squid escritos en Perl, entre los cuales conseguí uno que me funciona muy bien pero quiero hacerle modificaciones.

Este script fue escrito por el señor Victor Carceler:

http://iespuigcastellar.xeill.net/Members/vcarceler/temp/welcomeredirector.pl/view

#!/usr/bin/perl
#
# WelcomeRedirector v0.2 (por Victor Carceler)
#
# Este script es software libre GPL
#
# Este script es un redirector para Squid (http://www.squid-cache.org/Doc/FAQ/FAQ-15.html)
# ...

Aunque tiene algunas faltas de ortografía, se agradece que alguien se moleste en dar cursos sobre Perl. Y más aún en Español.

Enlace al artículo.

Llevado ya un tiempo programando en Perl, me veo en la tesitura de ya definitivamente comprar algún software para poder seguir programando en este lenguaje.

Actualmente uso en trial versión el optiperl, pero querría que todos vosotros fuerais indicando los editores que usáis, los pros y los contras de los mismos, así podríamos tener un repositorio de información de cuales son que hay disponibles.

Pros: coloreo de sintaxis, muy completo en cuando a usabilidad.
Contras: ...

Saludos, tengo un programita que al final tengo que convertir el archivo en formato DOS y en ZIP, pero al momento de ejecutarlo no lo hace todo (el zip). Será que me pueden ayudar.


my $convert="unix2dos /repo/bankc/OficCumplim/$file";
system($convert);
my $path ="cd /repo/bankc/OficCumplim/";
system($path);
my $zip ="zip $file.zip $file";
system($zip);
my $remove=" rm /repo/bankc/OficCumplim/$file";
system($remove);


y me da el siguiente mensaje:
unix2dos: converting file /repo/bankc/OficCumplim/EF0905BA.143 to DOS format ...
zip warning: name not matched: ...

Hi!

Antes que nada quiero agradecer por haberme ayudado en mi último posteo.

Ahora estoy haciendo una agenda mía pero quiero que se cargue cada vez que cargue Windows.

Estoy trabajando con Win32::TieRegistry pero ya he visto todos los manuales de CPAN y otros y francamente no entiendo los ejemplos.

Quiero meter estos datos: en la ruta HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run y agregar un valor alfanumérico con nombre de valor "agenda" e información de valor la ruta de ...

Hola a todos. Tengo un detalle con un código;
tengo varios valores que voy a capturar en una variable; para exponer un poco el tema pongo el código base

#! /usr/bin/perl

$valor='"TRA-4",915,"TRA-5",916';
%tigre1= ($valor);

print "\n EN tigre1 $tigre1";
print "\n EN tigre1 dato 1 $tigre1{'TRA-4'}";
print "\n ";

En $valor se incrementará el valor N cantidad de veces, la idea es que a través de un hash hacer que el valor que está entre ...

Hola.

Tengo un problema al enviar correos con sendmail. Lo raro que las funciones que tengo hace 3 días estaban funcionando correctamente y el día de hoy resulta que no manda correo y además me manda un error y no sé cómo resolverlo. Aquí pongo las funciones que utilizo:

sub Mandacorreo {
my($de,$para,$asunto,$cuerpo)=@_;
my (%mail,$dominio);
$dominio=

%mail = (
#SMTP => '$dominio',
from => $de.'@servidor.fideicomiso.com',
to => $para,
subject => $asunto,
);

$mail{body} = <<END_OF_BODY; ...