Foro - Perl en Español

Quisiera generar una aplicación en donde el usuario pueda diseñar, él mismo, consultas a una base de datos acorde a los campos de datos que desea conocer.

Tendría un formulario con las siguientes cajas de texto:
• Select ($param_select): para indicar los nombres de las columnas de la tabla que desea
• Campo ‘FROM’ ($param_from), para indicar el nombre de la tabla y
• Campo ‘WHERE’ ($param_where) para ingresar condiciones si tuviese.

Mi pregunta es, ...

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

y por qué es necesario usar siempre use strict.

Artículo (en inglés).