Foro - Perl en Español

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

Buenas tardes. Estoy graficando utilizando ChartDirecor con Perl en Linux, pero a pesar que ya he generado varias gráficas, la gráfica no se muestra mandando el siguiente error:

<img src="getchart.pl?img=/tmp/tmpcharts/" border="0" usemap="#map1">
Failed to load resource: the server responded with a status of 404 (Not Found)

El mensaje de alarma envía lo siguiente:
Not Found

The requested URL /cgi-bin/actrelv/getchart.pl was not found on this server.

Quiero mostrar los datos que estoy generando porque ...

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.

Saludos Perleros.

Tengo inconvenientes con la ejecución de un script en Perl que ejecuta tres comandos sobre equipos Cisco, los cuales dependen uno del otro, de manera que si el comando 1, no se ejecuta, no se puede seguir ya que el comando 2 se arma de acuerdo a la salida generada por el primero; de igual forma sucede con el tercer comando.

El problema es que algunas veces el script se ejecuta de forma ...

Me pasa algo insólito, no puedo creer que esto me esté pasando. Estoy ejecutando una consulta con tablas relacionadas y me trae 0 registros cuando sí existen columnas que cumplan con la condición creada:

db_reuniones=# select cr.nom_reunion,tr.f_prog,tr.f_real,tr.zona,tr.especialidad from t_reuniones tr, c_reuniones cr where tr.homoclave=cr.homoclave order by f_prog;
nom_reunion | f_prog | f_real | zona | especialidad
-------------+--------+--------+------+--------------
(0 rows)
TABLA t_reuniones:
id_reunion | homoclave | f_prog | f_real | condicion | gerencia | ...

Aquí les dejo el artículo traducido:

http://www.microsofttranslator.com/bv.aspx?from=&to=es&a=http%3A%2F%2Fwww.activestate.com%2Fblog%2F2016%2F03%2Fperl-secret-workhorse

y el original en inglés:

http://www.activestate.com/blog/2016/03/perl-secret-workhorse

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