Foro - Perl en Español

Buenos días.

Quiero hacer un CGI que, entre otras cosas, a partir de un string, y con un patrón que yo calculo, me devuelva otro.

Como el CGI hace varias cosas, yo en un momento dado lo que quería era estructurar la programación haciendo una llamada dentro del propio CGI a una función que me devuelva el string "calculado".

Algo así como:

my $cadena_calculada = calcula_cadena($cadena);

El problema que tengo es a la hora de ...

Introducción a Perl 6, por fin traducido a español.

http://es.perl6intro.com/

Hola. ¿Los componentes reutilizables son los módulos en Perl? ¿Los objetos con funciones usando POO en Delphi y PHP?

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 ...

Bueno, mi queja viene en que para la compañía donde trabajo, lo hacen con plataformas de moda, por decirlo así, hechas en PHP, como el Moodle... ¡PERO ESTOY YA ABURRIDO! y quiero decirles que el mismo CGI-Application como un ligero framework es más versátil a la hora de hacer algo que la programación de muchos sistemas hechos en PHP...

Año 2016 y aún veo trozos de código PHP en una plantilla HTML. Uno quiere hacer ...

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";
}
} ...