Foro - Perl en Español

Saludos a todos.
Tengo problemas con el manejo de errores que se generan al insertar datos en una tabla.
Tengo una tabla "a" que contiene datos no normalizados, es decir, tiene datos repetidos. Y quiero pasar los datos a una tabla "b" que contiene las llaves necesarias para poder rechazar los datos de la tabla a que esten repetidos. Pero los datos que no pudieron ser insertados en la tabla "b" por estar repetidos, deseo ...

Saludos.

Tengo un array en Perl con las palabras @A=("JOSE", "DE", "LA", "CUEVAS" ); y quiero eliminar los elementos que contienen las palabras 'DE' y 'LA' (de hecho todos los calificativos que encuentre 'EL', 'LOS', etc.). para que el arreglo quede @A=("JOSE","CUEVAS") pero una vez eliminados los elementos deseados, el arreglo quisiera pasarlo a una variable escalar para que quede como una sola cadena: "JOSE CUEVAS".

¿Qué función de Perl utilizo para eliminar elementos del ...

Hola de nuevo, ¿Cómo puedo crear un usuario con un script?
Los creo con el comando htpasswd desde la consola y la única forma que conozco de ejecutar un comando externo a Perl es con system('comando'). He probado con:

Code: Seleccionar todo

system('htpasswd C:/contraseñas.txt');
system('nombre');
system('contraseña');
system('contraseña');

pero claro como es natural no funciona. Una ayudita, porfa.

Necesito diseñar en Perl un compresor y un descompresor de archivo de texto

Ayudenmé, por favor.

Estimados,
Debo realizar un servidor de escucha. Buscando información al respecto, encontré el módulo IO::Socket::INET. Además encontré algunos ejemplos de server. Expongo uno de ellos:

#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent; # for OO version of gethostbyaddr

$PORT = 9000;
$MAX_CLIENTS = 10;

$server = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $PORT, Listen => $MAX_CLIENTS, Reuse => 1);

die "can't setup server" unless $server;
print "[Server $0 accepting clients]\n";

while ($client = $server->accept()) {

$client->autoflush(1); ...

Estimados,
Estoy algo perdido con el uso de la consola cpan. Instale la consola y segui el cuestionario de preguntas que realiza. En uno de los datos me pregunto mi ubicacion geografica y desplego una lista con los servidores (mirrors) que hay en mi pais, en este caso Chile. Una vez finalizada la instalacion de la consola (cpan) me dispuse a usarla, pero al tratar de buscar un modulo (por ej), realiza la conexion al ...

En el PPM de windows es uninstall, pero en linux no sé. Para instalarlo uso
make, make install y demás...

¿Como lo desinstalo?

Saludos

He utilizado valign="center" pero no me funciona...
Se me pone arriba siempre :S

¿Hay alguna forma de hacerlo? (si no no pasará nada... pero quedaría más bonita mi tabla..)

El texto sí que se me pone bien pero el boton no :evil:
lo hago desde un script perl:

print"<tr align=\"center\" valign=\"center\" bgcolor=\"#CEFFCE\">\n";
.
.
.
print"</td>\n";
print"<input name=\"boto$cont\" value=\"Send\" type=\"submit\">\n";

.
.
.
print"</td>\n"; ...

Hola.
Bueno tengo esto:

Code: Seleccionar todo

sub New {
  my ($pkg, $name) = @_;
  my $self = {};
  $self->{Pkg} = $pkg;
  $self->{Name} = $name;
  bless($self, $self->{Pkg});
  return $self;
}

Ahí no hay problema, el sub esta en un package, pero despues, en el mismo módulo, quiero modificar el objeto en un sub diferente.
¿Cómo hago eso?
Gracias.

Hola de nuevo, estoy intentando meter un fichero dentro de una lista asociativa, pero no hay forma.

El fichero tiene este formato:
Tipo: color
Precio: 3 €
Cantidad: 7 unidades
He hecho lo siguiente pero no funciona:
sub informe{
if (open(VAR,"fichero.txt")) {
@texto=<VAR>;
}
%lista=@texto;
print "$lista{Tipo}";
}
Con el vector sí va bien pero con la lista hash, no. ¿Por qué? Y una vez los he sacado ¿cómo puedo incrementarlos, por ejemplo las ...