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

«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

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

¿Qué tal?

Espero me puedan ayudar con este pequeño problema.

Tengo una tabla en Oracle que guarda una serie de imágenes en campos tipo BLOB. La pregunta es ¿cómo puedo leer esta imagen y desplegarla en HTML?

Anexo pequeño código de lo que trato de hacer:
my $sth = $dbh->prepare("select image_id,Dbms_Lob.substr(image,dbms_lob.getlength(image),1) from image_container where image_id='TMSRP11885'");
$sth->execute();
my @res=$sth->fetchrow_array();
print header(-type=>'image/jpeg');

print $res;

$sth->finish;
$dbh->disconnect;

Saludos y espero puedan ayudarme.

Estoy intentando conectar un bot Perl al chat de justin.tv, pero necesito introducir la contraseña del usuario pero no sé cómo hacer que el bot se identifique.
:?

Tengo:
my $socket = IO::Socket::INET->new(
PeerAddr => "$servidor",
PeerPort => "$puerto",
Proto => 'tcp' ) || print("No hay conexión\.\n\cC");

He intentado poner Pass => "$key", pero no funciona.
El bot se conecta pero el servidor lo rechaza ...

«... hoy me gustaría destacar que recientemente ha salido en el diario El País, uno de los más leídos en español, un artículo donde se resumían los últimos avances en las técnicas de resolución de estructuras moleculares, que poco a poco parece que se van encaminando al estudio de moléculas individuales. El artículo original, muy interesante, es Destellos brillantes y ultracortos iluminarán la nueva biología estructural.
La verdad me sorprendió gratamente encontrarme en la prensa ...

Buenas tardes, necesito ayuda para resolver el siguiente problema:

Tengo un archivo con texto parecido al siguiente:

/XXXXXXXXXX/00:00/00:05
PCKT_RCVD/21039
BAD_HCHKSM/0
PCBS_FAIL/0
/YYYYYYYYYY/00:00/00:05
net0: IPKTS/22240
net0: IERRS/0
/ZZZZZZZZZZ/00:00/00:05
DISK_ALL/8391600
DISK_FREE/1524255

Tengo el siguiente código para que cuando se encuentre una línea que inicia con "/" y no cumpla con cierta condición todas las siguientes líneas sean ignoradas hasta encontrar una nueva línea que inicie con ese carácter y sea evaluada, y así sucesivamente. ¿Está correcto el ...

Tengo el siguiente script:

open (URLS, 'urls3.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);

open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

for (my $i = 0; $i < @urls; $i++) {

print $urls,"::::"," PROXY: ",$proxy,"\n";

my $ua = LWP::UserAgent->new;

$ua->proxy(, "http://$proxy");
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(10);


my $req = HTTP::Request->new(GET => $urls);
$req->content_type('application/x-www-form-urlencoded');
my $response = $ua->request($req);


$result = $response->code();


open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ARCHIVO $result," ",$response->message( ...