Foro - Perl en Español

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

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

Nas perleros :)

Ná me tome la molestia de traducir la documentacion del modulo CGI::Ajax al español el que quiera puede encontrarla en http://www.redmundial.org/ajax

Salu2
Peace.

P.D: Mi ingles es pesimo xd, si hay errores hacerme-lo saber gracias :)

Hola a todos nuevamente.

¿Alguno ha usado este framework de Perl?

Tengo ya una semana haciendo todos los ejemplos que consigo y todos usan SQLite como base de datos, y todos van contra una sola tabla.

Mi problema es que uso MySQL y muchas tablas, y cuando trato de aplicar los "conceptos" que se explican en la documentación genera errores del tipo que no se puede conectar con la BD, cuando se conecta que no ...

Hola a todos, tengo una consulta con respecto a TK de Perl.
Tengo una pantalla, como ventana de Windows y necesito saber que instrucción necesito para configurar el botón de cerrar que aparece en el lado derecho superior (X).
Desde ya muchas gracias