Foro - Perl en Español

Hola, ¿cómo va?

Tengo problemas para logearme con un Perl a un ftp. Si hago la conexión manualmente no tengo problema, pero cuando ejecuto el script me tira error de logeo.

Les paso el script

my $server = "servidor";
my $username="anonimo";
my $password="123ardillas";

$logger->write("Coneactando a servidor...");

my $ftp = Net::FTP-> new($server);

if($ftp = Net::FTP-> new($server)){
$logger->write("Conexion exitosa");
} else{
$logger->write("No se pudo establecer conexion al ftp servidor");
}

# Loggeo

$logger->write("Logging...");

$ftp->login($username,$password);
if ($ftp->login($username,$password)){
$logger->write("Logging ...

Buen día.

He estado buscando en Internet así como en algunos libros pero no logro encontrar la respuesta a este problema, y todo recae en el uso y modificación de archivos de texto.

Mi problemática es la siguiente:

Supongamos que yo tengo mi archivo X.dat y en el tengo información así;

Code: Seleccionar todo

10;11;12;13;14;15;16;17;18;19;20
21;22;23;24;25;26;27;28;29;30;31
32;33;34;35;36;37;38;39;40;41;42
43;44;45;46;47;48;49;50;51;52;53

Y quiero que Perl lea el primer renglón y lo guarde en un @nombre al cual le daré prioridad azul. ...

Muy buenas, lo primero presentarme.

Mi nombre es Ignacio y hasta hace un mes no sabía ni que existía el Perl, y desde que me surgió un problema he pasado muchas muchas muchas horas buscando info, leyendo manuales y haciendo pruebas, pero no avanzo nada, ya incluso pienso que lo que pretendo no se puede hacer, por lo tanto esa es mi gran duda y la primera pregunta que me gustaría hacer, pero lo mejor ...

He realizado un script en Perl bastante grande en el que ejecuto comandos del shell de forma reiterada. Todas las pruebas me salían sin problemas hasta que alguien lo ejecutó desde un shell ksh. Le daban muchos errores que no daban desde el shell bash que utilizo yo. ¿Cómo puedo indicar en el script que utilice el shell bash?

He googleado pero no he encontrado nada. Tampoco en este foro.

Un saludo y gracias.

Estaba creando un programa que enviara la misma información conectándose dos veces simultáneamente a un servidor a través del puerto http (80) pero al intentarlo se conecta el primero y después el segundo. ¿Alguna idea?

Hola, quisiera saber si es posible subir una carpeta entera con su contenido al servidore mediante ftp.

Se podría hacer leyendo el contenido de la carpeta e ir subiendo archivo a archivo, pero si se puede subir la carpeta entera me facilitaría el trabajo.

No, no... no estoy buscando alguien que me decore la casa. Lo que pasa es que mirando Perl Hacks (Hack 7. Enforce Local Style) me ha surgido una duda sobre los estilos y preferencias.

Cuando programo suelo usar el siguiente formato (para subs)
sub algo {
<espacio><espacio>my $loquesea = shift;
...
}
Perl::Tidy hace esto:
sub algo {
<espacio_x_4>my $loquesea = shift;
...
}

Algunos usan Tab y no espacio o lo hacen así:
sub ...

Saludos a todos

Revisando en Internet estoy tratando de aprender hilos en Perl, lo que estuve viendo es para compartir una variable lo cual al parecer es muy simple:

use threads::shared;
use Thread::Semaphore;
use CGI qw(:all);

my $variable : shared = 10;

lo cual según he leído es usado para restringir el acceso a una variable con la función lock() pero quería saber si eso mismo se puede hacer con funciones, la verdad que todavía ...

Hola!. Vi en un sitio esta búsqueda:

if ($poc->content =~ m/____(.*?)____/ms)

Sé como va más o menos, pero no entiendo las ____ .

Hola amigos

Soy nuevo en programación en Perl. Ahora estoy aprendiendo la parte de Programación orientada a objetos en Perl pero se me presenta el siguiente problema con un programa explicativo que encontré en Internet pero me manda el siguiente error:

Code: Seleccionar todo

Persona.pm did not return a true value at C:\Archivos de programa\OptiPerl53\Webroot\cgi-bin\prueba.cgi line 2.

BEGIN failed--compilation aborted at C:\Archivos de programa\OptiPerl53\Webroot\cgi-bin\prueba.cgi line 2.

La clase es Persona.pm. Aquí no me manda ningún error:

package ...