Foro - Perl en Español

Aquí está el código

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use DBD::Pg;
print error;

print "Content-type: text/html\n\n";

my @pote;
my @log;
local ( $buffer, @pairs, $pair, $name, $value, %FORM );

# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else {
$buffer = $ENV{'QUERY_STRING'};
}

# Split information into name/value pairs
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
( $name, ...

Hola, gracias de antemano por su ayuda.

Hay un error sintáctico en la última línea de este código y no veo cuál es de ninguna manera. Supongo que es algo simple, pero... :roll:

foreach my $node ($nodeset->get_nodelist) {

my $term= XML::XPath::XMLParser::as_string($node); #Nodo horren informazioa string moduan gorde.

my $gakoa=/pos=".+"/;

Moten_Hash_taula= push(@term_arraya,$term)


Gracias :wink:

Hola amigos tengo el siguiente problema, ojalá puedan ayudarme, tengo el siguiente código

emisor:
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => 'asomatos',
PeerPort => '7070',
Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there!\n";
close($sock);

y receptor:
use IO::Socket;
my $sock = new IO::Socket::INET (
LocalHost => 'thekla',
LocalPort => '7070',
Proto => 'tcp',
Listen => 1,
Reuse => 1, 8 );
die ...

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

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