Foro - Perl en Español

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

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.

Buenos días.

Aquí sigo con tablas y problemas derivados. Necesito "filtrar" una tabla (texto separado por tabuladores) con miles de filas y decenas de columnas en la que todos los valores de la columna 1 pueden aparecer repetidos en varias filas, y la intención es eliminar esas filas donde se produzca la repetición.

Había pensado en una estructura tipo Hash of Arrays, en la que si la primera columna actúa como referencia para el filtrado. ...

Hola a todos.

Tengo un problemilla que no sé muy bien cómo enfocar en el título de este mensaje.

La historia es que tengo una tabla cuyos campos tienen un identificador que modifiqué en su día, y cuyo nombre original guardé en un txt junto a su nuevo nombre en formato:

Nombre_nuevo1 Nombre_antiguo1
Nombre_nuevo2 Nombre_antiguo2
Nombre_nuevo3 Nombre_antiguo3
Nombre_nuevo4 Nombre_antiguo4
Y así varios miles de registros.

Tras trabajar con estos nombres, tengo una tabla final ...

Buenas tardes.

He estado intentando documentar el modo más eficiente para pasar una URI /tema1/tema2/tema3 a un hash que anide jerárquicamente cada una de las partes de la dirección: %dir = (tema1=>{tema2=>{tema3}}).

He encontrado un código en un foro que no consigo comprender, bien por la notación o por que hay una función asociativa que desconozco.

my $tree = {};
foreach my $input (<DATA>) {
chomp $input;
my $t = $tree;

$t = $t->{$_} ...