Foro - Perl en Español

¡Hola!

Necesito leer un fichero que contiene 2 líneas, para meter en una variable diferente cada línea.

Las líneas que contiene el fichero son las siguientes:
PRODDC09\\exchangeadmin
passw?ord

Y el código que estoy utilizando es este:
while(my $line=<INPUT>){
if( $cont eq '1' ){
$passwd = $line;
last;
}
$usr = "$line";
$cont = '1';
}
Pero parece que no le gustan los backslash que hay en la primera línea, porque me escupe este error: ...

Hola,

Tengo que realizar un script que se conectará contra una BBDD, y claro, tengo que pasar credenciales: usuario y password.

Ambos datos están en el script, y no me gustaría que alguien viera el código y supiera cuál es la clave de acceso.

Había pensado en encriptar la password con TripleDes, base64 o similares, pero cualquiera que se instale el módulo y posea la clave encriptada será capaz de desencriptarla.

Estoy un poco perdido ...

Tengo un array que me agrupa fechas de inicio y fin pero cuando coloco un array dentro del foreach() que recorre el primer array se cuelga.

$fechaca = "2011-01-06/2011-01-12,2011-01-13/2011-01-17";
my $a = 1;
my $b = 1;
my @fechacom = split(",", $fechaca);
foreach my $fc (@fechacom) {

my @fechas = split("/", $fc);
$worksheet->write($a, $b, "Fecha inicio ". @fechas . " Fecha Final " . @fechas, "");
$a++;
}

Hola a todos. He creado mis pantallas con Win32::GUI. He podido ejecutar varios script pulsando los botones correspondientes pero tengo una duda:

my $main2 = Win32::GUI::Window->new(
-name => 'Main2',
-text => 'Principal',
-pos => ,
-width => 600,
-height => 600,
-background => ,
);
my $EditFont = new Win32::GUI::Font (
-name => "Fixedsys",
-size => 12,
);

$main2->AddTextfield(
-name => "Mostar",
-pos => ,
-size => , ...

Hola,

Estoy haciendo un CGI para unos usuarios, en el cual introducen una serie de datos.

Quiero que mi CGI, después de comprobar si son datos correctos o son "especiales", muestre un popup JavaScript para decir al usuario: "¿Desea continuar? ".

Si el usuario pulsa SÍ, mi cgi tiene que llamar a una funcion ( &plataformar ), y si pulsa NO, el cgi tendría que seguir con su ejecución normal.

Tengo ...

Hola, tengo que capturar una cadena de un dn, el dn tiene esta pinta:
CN=Usuario123,OU=Admins,OU=Accounts,OU=ESPANA,DC=ZONES,DC=GLOBAL,DC=CORP

Quiero capturar "Usuario123", pero no sé cómo especificarle a la expresión que capture hasta el primer OU:

if ($linea =~ m/CN=(.+)OU=/gi
En el caso de que quiera capturar por ",", estamos en las mismas, me captura hasta la ultima ocurrencia que encuentra.
¿Cómo puedo especificarle esto?

Saludos,

Hola. He pensado una cosa y quería saber vuestra opinión. Me dijeron que sí podría interactuar con Outlook porque lo usan mucho con lo cual, mirando un poco en Google, he pensado que podría abrir el programa de Microsoft Outlook desde mi programa en Perl y desde ahí mandar el fichero generado por el programa. Quería saber vuestra opinión sobre usar:


# create the object
use Mail::Outlook;
my $outlook = new Mail::Outlook();

# ...

Desde hace poco, en la web mojocasts.com, Glen Hinkle está publicando vídeos de iniciación a Mojolicious.

El primero, creación de aplicaciones y plantillas.

Mojocast #1: Fun with clouds! - Create your first Mojolicious web app
Intro
Install
Generate lite app
Development Server
Create first lite app
Create first template
Capture URL parts
Stash
Layouts
Logging
Debug screen
Outro

Resulta que tengo un pequeño proyecto de hacer un soft que permita mover unos elementos en 3D que fueron diseñados en 3D Studio Max y/o Inventor...

Mi idea es saber si de alguna forma Perl me ayudaría a leer estos ficheros de objetos 3D para manipularlos de alguna forma.... :?

O existe cómo conectarse a alguna librería 3D que permita mover objetos con el mouse...

Pues como el propio nombre indica, he realizado este script y me dicen que tengo fallos sintácticos y avisos (warning) que soy incapaz de ver, si alguien pudiese corregirme esos fallos estaría muy agradecido.

Aquí dejo el largo pero supongo, que para ustedes, sencillo código: