Foro - Perl en Español

Estimados,

Ya me arden un poco las pestañas ¡así que espero a que me ayuden!

Necesito generar un script en Perl que pueda generar en forma masiva usuarios en Windows. Les comento que el comando para ejecutar esto en Windows es NET USER y ejecutándolo por línea de comandos en Windows sería así:

net user (usuario) /add

El tema está es que eso solo me sirve para generar un solo usuario por comando y necesito ...

«Damas y caballeros, bienvenidos a mi particular universo laboral.»

Artículo

«Bienvenidos al portal de vídeos de docencia de Bioinformática, los cuales resultarán muy útiles para estudiantes de esta asignatura en la UPO y en otras universidades españolas. Aquí intentaré subir de vez en cuando vídeo-tutoriales sobre herramientas de bioinformática, incluidos lenguajes de programación o sistemas operativos como Linux, que pueden ser de interés para iniciados en la materia.»

Canal

«En este vídeo se muestra cómo se instala el emulador de Linux Cygwin para instalar en cualquier sistema operativo Windows. Asimismo, se muestra también cómo instalar el intérprete del lenguaje de programación Perl y el comando ‘more’, para usarlos también dentro del terminal de comandos de Cygwin.»

Artículo

Hola,

Tengo la siguiente función:

sub GetAddressesNotInMailList {
my $self = shift;
my $MailListID = shift; # mandatory

$self->{MSG} = "";
my $Addresses = undef;

unless( defined $MailListID ) {
$self->{MSG} = "Mandatory Input Arguments are not defined";
$self->{LOG}->error("GetAddressesNotInMailList: ".$self->{MSG});
} else {
my $Members = undef;
$Members = $self->GetMembersOfMailList( $MailListID );
if( defined $Members ) {
my $num_res = keys %$Members;
$self->{MSG} = "Number of members of \"$MailListID\" mail list is $num_res";
$self->{LOG}->log("GetAddressesNotInMailList: ...

Hola.

Ando queriendo saber cómo calcular el porcentaje de descarga de un archivo.
Pues tengo este código:
use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

if (download("http://127.0.0.1/bones.rar","bones.rar")) {
print " file downloaded\n";
}

sub download {
if ($nave->mirror($_,$_)) {
if (-f $_) {
return true;
}}}

Pero no sé cómo calcular la cantidad descargada del archivo poniendo el porcentaje de 1 al %100.

¿ Alguien me ...

Buenas tardes,

He creado una librería .pm que quiero emplear en un script .pl
Cuando ejecuto el script me aparece el siguiente error:

Can't locate loadable object for module infovista in @INC (@INC contains: /usr/local/ActivePerl-5.6/lib/5.6.1/sun4-solaris-thread-multi /usr/local/ActivePerl-5.6/lib/5.6.1 /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1/sun4-solaris-thread-multi /usr/local/ActivePerl-5.6/lib/site_perl/5.6.1 /usr/local/ActivePerl-5.6/lib/site_perl .)

¿Qué debo hacer para poder utilizar la librería?
Saludos y gracias

«Los dispositivos de eye tracking son caros. Dan un rendimiento excepcional para analizar a dónde miran los visitantes de un sitio web, pero a veces es difícil justificar la inversión. Si consigues convencer a tus testers para que hagan clic en el punto al que miran, puedes sacar conclusiones…»

Artículo

«Perl es un lenguaje de programación que trabaja en múltiples plataformas, poderoso, robusto y con excelentes módulos para el trabajo en muchísimas áreas e industrias y sectores, es muy utilizado para: desarrollo web, administración de servidores, control de dispositivos de red, sistemas de gestión de archivo, administración de UNIX (LINUX), CGI, aplicaciones biológicas (genética),la industria de la seguridad informática , metaprogramación y muchísimas aplicaciones de red están desarrolladas en este lenguaje.»

Artículo

«Además de MOTU también soy Ubuntu Sponsor y en Debian, aparte de mantener mis paquetes, también pertenezco al Perl Group con el que intento colaborar en todo lo posible, sobre todo actualizando paquetes.»

Artículo