Foro - Perl en Español

Hola, buenos días.

Estoy tratando de enviar un mensaje (a través de CGI) con un enlace, pero el enlace no me llega correctamente al buzón.

El enlace lo monto de la siguiente manera:

my $enlace = " https://www.servidor.com/directorios/ca ... dimientos_" . $ano . "/" . $expediente . ".zip";

Siendo

my $ano=`date +%Y`;

y

$expediente = $query->param("expediente");

bueno, pues el mensaje me llega:

--------------------------
Puede descargarlos en este enlace: ...

Hola a todos de nuevo, estoy añadiendo código a un script (el mismo que he mostrado en ocasiones anteriores) y estoy tratando de aprender a manejar hash y array.

El asunto es así: paso una expresión regular a varios array y luego efectúo varias modificaciones en esto, eliminar duplicados y quitar líneas en blanco.

El tema es que debo hacerlo por cada array que se presenta, es decir, escribo varias veces un mismo código (entre ...

Hola.

Tengo un pequeño script donde pretendo obtener la salida de un comando para después mostrarla por pantalla.
El script es muy sencillo.

$t = new Net::Telnet (Timeout => 10,Port => 23, Prompt => '/.*#/' );
$t->output_log('debug.log');
$t->open("$item");
$t->max_buffer_length( 104857600 );
$t->waitfor(String => "Username:");
$t->print("$item");
$t->waitfor(String => "Password:");
$t->print("$item");
$t->print("terminal Length 0");
@output = $t->cmd("$item");
$t->print(" ");
$t->print("logout");
$t->close;

foreach (@output) {
print $_;
}


La salida que obtengo es
$ perl ShowPort.pl ...

Hola a todos, vuelvo al foro con un dilema que no he logrado resolver usando Google y algunos hilos del foro.

Me explico: Con el siguiente script:
#!/usr/bin/perl
# acotar-expresion-regular-t8380-30.html
# ajustar-nueva-regla-a-script-t8698.html
use v5.22;
use autodie; # muere si ocurre un error
use File::Basename; # separa el archivo de entrada

### Argumentos ---------------------------------------------------------
@ARGV == 1 or die "Uso: $0 <archivo TeX ...

Hola, tengo este código. Tengo pensado editar datos de una columna de una BD. Muestro los datos en el stdin y desde ahí lo edito y le doy Entrar teniendo todo editado. El tema es que no sé cómo hacer eso, no parece posible...

El código:
print "\n Texto : ";
chomp(my $texto = <STDIN>);

¿ Se puede hacer esto ?

Hola, estoy estudiando POO en este código:

package persona;

sub new {
my $class = shift;
my $self = {};
bless $self,$class;
return $self;
}

sub setName {
my ($self,$n) = @_;
$self->{NOMBRE} = $n;
}

sub getName {
my $self = shift;
#$self->borraNombre();
if ($self->{NOMBRE}) {
return $self->{NOMBRE};
} else
{
return "Sin sombre";
}
}

sub borraNombre {
my $self = shift;
if ($self->{NOMBRE})
{
$self->{NOMBRE} = "Borre el nombre";
}
} ...

Cuando ejecuto yum rpm-install me sale este error:

Can't locate CPAN.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at bin/perldeps.pl line 6.
BEGIN failed--compilation aborted at bin/perldeps.pl line 6.

Hola. Estoy tratando de conectarme a SQL Server 2005 desde Perl. Ya lo hice con C# y Java con el mismo servidor. Quería hacerlo en Perl. Tengo el siguiente código:

Primer intento.
#!usr/bin/perl
use DBI;

my $data_source = q/dbi:ODBC:localhost\SQLEXPRESS/;
my $user = q/admin/;
my $password = q/123456/;

my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";
Salida:
DBI connect('localhost','admin',...) failed: No se encuentra el nombre del ...

Hola, los módulos que antes instalaba con "ppm install" no se me andan más porque pide 32 bits y ahora uso Seven 64 bits. ¿Qué tendría qué hacer ahora? Todos los módulos me piden lo mismo cuando se trata de PPD.

Hola.

Primeramente, saludar al foro. Soy nuevo en esto de Perl y me han encargado un sistema de gestión basado en unas listas de IP y URL (varios ficheros de texto plano).

El proceso sería validar o comprobar su existencia de dominios o IP que enviamos a través de un parámetro en esos ficheros.

Me gustaría saber si alguno ha tenido ese problema y si habría una forma genérica de cargar las listas y tener ...