Foro - Perl en Español

¿Por qué no puedo usar este encabezado#!c:/perl/bin/perl -Ten Perl 5.14 corriendo en Windows, para implementar el "#!c:/perl/bin/perl"?

Cuando lo escribo me sale el siguiente mensaje de error:
"-T" is on the #! line, must also be used on the comand line.

¿A qué linea de comandos se refiere, a la de llamada del CGI?

Gracias por adelantado.

En esta ocasión los molesto porque quiero hacer una regex y no estoy teniendo éxito.
Tengo el siguiente script:
if ( @ARGV != 1 ) {

die "\nUse: $0 <urls.txt>\n\n" . " <file> Archivo que contiene las urls \n";

}
$file = $ARGV;
chomp $archivo;

open $FILE, '<', $file or die $!;
@archivos = <$FILE>;
close $FILE;

for $archivo (@archivos) {
chomp $archivo;
if ( $archivo =~ s/:|\//_/g ) {
print "$archivo\n"; ...

Hola.

Quiero sacar una dirección web de un html. Solo quiero la primera URL, y no doy con la tecla.

Parte del html:
</div><span class=url>www.<b>sevilla.com</b></span></div>
</div><span class=url>www.<b>madrid.com</b></span></div>
</div><span class=url>www.<b>cordoba.com</b></span></div>
</div><span class=url>www.<b>teruel.com</b></span></div>

Código:

$decir =~ /<span class=url>(www.)<b>(.+)<\/b>/;
print $2;

Tendría que salir "sevilla.com", pero usando el html completo me salen más historias, con lo cual supongo que la expresión no es correcta del todo (ni por asomo ...

Esta es una pregunta vieja que ya pregunté en otro post pero no lo encuentro.

Tengo el siguiente texto largo el cual quiero guardar en una variable con qq():
$tengo = qq(-inurl:(htm|html|php) intitle:"index of" +"last modified" +"parent directory" +description +size +(.exe|.zip|.ddl) "test");

El problema es que la variable se corta por los paréntesis, pensé en usar '|' en vez de los paréntesis pero en el texto también tengo '|'.

La pregunta es esa: ¿cómo ...

Tengo el siguiente código:
#!usr/bin/perl
#GoogleHack 0.3
#By Doddy H

use Tk;
use Tk::PNG;

my $ventana = MainWindow->new();
$ventana->title("GoogleHack 0.3 By Doddy H");
$ventana->geometry("370x300+20+20");
$ventana->resizable(0,0);

$ventana->Label(-font=>"Impact1",-text=>"String : ")->place(-x=>20,-y=>20);
my $v = $ventana->Entry(-text=>"Test",-width=>"31")->place(-x=>80,-y=>23);
$ventana->Button(-width=>"10",-text=>"Load",-command=>\&now)->place(-x=>278,-y=>23);

$ventana->Label(-text=>"Options",-font=>"Impact1")->place(-x=>140,-y=>70);

$ventana->Radiobutton(-text =>"Music", -value => "music",-variable=> \$op)->place(-x=>140,-y=>130);
$ventana->Radiobutton(-text =>"Programs", -value => "programs",-variable=> \$op)->place(-x=>140,-y=>160);
$ventana->Radiobutton(-text =>"Book", -value => "book",-variable=> \$op)->place(-x=>140,-y=>190);
$ventana->Radiobutton(-text =>"Videos", -value => "videos",-variable=> \$op)->place(-x=>140,-y=>220);
$ventana->Radiobutton(-text =>"Torrent", -value => "torrent",-variable=> \$op)->place(-x=>140,-y=>250);

MainLoop;

sub now {

my $test = $v->get;
my $link; ...

y por qué es necesario usar siempre use strict.

Artículo (en inglés).

Hola, soy principiante, hace un mes que estoy en Perl.

Tengo estas tres secuencias de ADN y las tengo metidas por líneas en un array.

Quiero quitar el número de delante, pero no lo consigo. Si alguien me puede echar una mano...

1 agatggcggc gctgaggggt cttgggggct ctaggccggc cacctactgg tttgcagcgg
61 agacgacgca tggggcctgc gcaataggag tacgctgcct gggaggcgtg actagaagcg
121 gaagtagttg tgggcgcctt tgcaaccgcc tgggacgccg ccgagtggtc tgtgcaggtt

¡Muchas Gracias!

Amigos del foro, estoy adaptando un script que funciona en Linux a Windows (para que trabaje en ambos). Tengo todo ok, pero me he topado con el siguiente problema:

Dentro del script hago una llamada al sistema operativo para que ejecute convert: system("convert $imageDir/$name-$imgNo.ppm $imageDir/$name-$imgNo.png"); donde $name-$imgNo.ppm ya está creado. En Linux, ningún problema: el archivo $name-$imgNo.ppm es creado por pdftoppm que está disponible en Linux y Windows, pero con una pequeña gran diferencia: ...

Bueno, quería mostrar el código que con la ayuda de explorer logré terminar.

Este simple programa lista las últimas vulnerabilidades publicadas en securityfocus.com y podremos verlas desde consola viendo la información, exploit, solución...

El código es el siguiente:

#!/usr/bin/perl
#SecurityFocus Manager 0.3
#(C) Doddy Hackman 2011
##ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd

use LWP::UserAgent;
use HTML::Parser;
use HTML::Strip;

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);

head();
refrescar();

sub refrescar { ...

en la web http://perl-tutorial.org.

(En inglés, pero hay también enlaces a algunos tutoriales en español.)