Foro - Perl en Español

Hola, ¿qué tal?

¿Podrían orientarme en el siguiente código?

#!/usr/local/bin/perl

open(my $file, $ARGV) or die "no se pudo abrir\n"; #abrir archivo

while (<$file>){

if(/>/)
{
$_=~ s/>|length=|uaccno=/,/g;

print "proyecto$_";

}elsif (/^+$/) {

print ",$_";

}
}

close (FH);

Obtengo una salida:

proyecto,000359_0207_2153 ,64 ,GK7VQPO01ASH53
,CGTATGTAAATGGTTCTTGCTTCTCCCTCCCTAATGATAAGACAGGCACTGATGGCGCGA

Pero necesito que esto se imprima en una sola línea, ¿cómo puedo realizarlo?

Agradecería mucho tu atención.

No sé si me haga entender. Lo que deseo es hacer un robot que llena un formulario que está en una página X, pero esta página tiene un campo formulario que me pide una imagen, y yo tengo la imagen en el servidor donde está el script...

¿Existe alguna forma de hacer esto mediante Perl... con WWW::Mechanize no vi una forma clara de hacerlo... :?

Tengo este código:

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

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

my $l = @urls;


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

print "\n";
print "$urls $proxy";

$ua = new LWP::UserAgent();
$ua->proxy(, "http://$proxy");
$resp = $ua->request(GET "$urls")if 0 == ($i+1) % 3;




open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ARCHIVO $resp->{_content};
close(ARCHIVO);



};

Lo que quería era ...

Hola a todos.

Ando queriendo saber qué es la ofuscación, sobre todo si causa problemas a un código en Perl.

¿Además, esto sería un ejemplo de ofuscación?


q'Sh ELoV
eSMeshEl OvEsmeNO
tsHeloVeSM EShELOVESm
eNOTShEloVes mESheLovesMe
noTsHELovEsMESHelOVeSmEnotS
HeLOVeSMESHElOvESMENotSHeLo
VesmEShELovEsmENOTsHELOVE
smEsHELOveSMeNoTshELOVe
SmesHElOVesmEnOTSheLO
vEsMeshELoVESmEnoTS
HELOvEsM'=~/(((\w
)\W*(?{$^R.(0+(
q{a}lt$3))}))
{8}(?{print
+pack"B8"
,$^Rand
""}))
+/x

¡Hola! Necesito hacer un if() cuya condición se evalúe a positivo cuando una variable ($i, por ejemplo) sea un número entero.

Sé que \d representa cualquier número, pero ¿hay alguna parecida para números enteros?

¿Y si no, cómo podría hacerse?

¡Gracias!

Tengo un script en Perl (unas 1500 líneas) y en local me funciona perfectamente. Este script hace uso de varias librerías, que he podido subir de forma manual (subiendo las carpetas e incluyendo en @INC la carpeta donde se encuentran).

El problema surge cuando llamo a la librería GD (instrucción use GD), ya que obtengo el error "Can't locate loadable object for module GD in @INC".

Investigando bastante he descubierto que con la librería GD ...

¡Hola!

Como especifiqué en un post anterior, soy un principiante en Perl, así que recurro a ustedes porque me surge una duda acerca de los sockets. Tengo los dos siguientes archivos:

server.pl
#!/usr/bin/perl

use IO::Socket;
use Net::hostent;

$servidor = IO::Socket::INET->new
(
Proto => 'tcp',
LocalPort => '1717',
Listen => 5,
Reuse => 1
);

die "No se pudo iniciar el servidor." unless $servidor;
print "\n";

while($cliente = $servidor->accept()) ...

Tengo este script:

open (LETRAS, 'letras.txt');
my @array_letras = <LETRAS>;
chomp @array_letras;
close(LETRAS);
open (NUMEROS, 'numeros.txt');
my @array_numeros = <NUMEROS>;
chomp @array_numeros;
close(NUMEROS);
my $l = @array_letras;


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


print "\n";
print "$array_letras $array_numeros";
sleep 5;


};

resultado:

pausa 5 segundos
a 1
pausa 5 segundos
b 2
pausa 5 segundos
c 3
pausa 5 segundos
d 4
pausa 5 segundos
a 5
pausa ...

¡Hola!

El día de hoy me decidí comenzar a aprender a programar Perl, la verdad es que es un lenguaje super sencillo, es casi idéntico al PHP, solo se diferencia en unas pocas funciones o métodos.

Como mi primer script, se me ocurrió hacer un escáner de imágenes, que saca todas las imágenes de un código HTML o PHP que especifiques, y te devuelve la URL.

#!/usr/bin/perl -w

use LWP::UserAgent;

if(!$ARGV)
{
print " ...

Hola a todos.

Estoy tratando de hacer un menú de archivos sobre la consola, esto es para elegir un archivo y que luego lo muestre en pantalla. Estoy intentando usar el módulo Term::Menu (Si saben alguno mejor, por favor, díganmelo).

Quiero que salgan los archivos de esta manera:

0 -> abecedario_en_matriz.pl
1 -> abrir_archivo_para_actualizar.pl
2 -> agregar_al_vector_si_se_cumple_la_condicion.pl
3 -> agregar_lista_de_elementos_a_arreglo.pl
4 -> agregar_prefijo_a_cadena.pl
5 -> agregar_tokens_a_cadena.pl

Yo agregaría a un hash %files los archivos hallados ...