Foro - Perl en Español

Buenas.

Veréis, estoy intentando aprender a utilizar el módulo HTML::Parser, para seleccionar únicamente unas etiquetas de un fichero XHTML.

Tal y como me habían contado el funcionamiento de este módulo, hay que indicarle un "evento" para que se fije en él.

Mi intención, sería obtener el texto contenido entre las etiquetas <h1>, </h1>, <p> y </p> del texto que descargo según el siguiente código.

#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
use HTML::Parse;
use HTML::FormatText;

use strict; ...

Hola. Tengo Apache2 en mi GNU/Linux y no sé si he hecho algo mal o es que me falta algo para que se ejecuten los cgi-bin.

He hecho lo siguiente:

- me bajé el módulo de Perl y lo habilité

- metí esto en apache2.conf

Code: Seleccionar todo

AddHandler cgi-script .cgi
<Files ~ “\.pl$”>
    Options +ExecCGI
</Files>
<Files ~ “\.cgi$”>
    Options +ExecCGI
</Files>

- en el directorio donde tengo las páginas html /var/www le dí a todos los ...

Ok, las explicaciones ya no tienen lógica en este problema, más bien véanlos ustedes:

luego de la presentación hay una serie de botones superiores, en los cuales uno dice catálogo, escojan uno de los productos y den al botón agregar, luego a otro producto, si su funciona bien, se cargarán uno tras otro:

www.800guia.com/soraya


y luego esta página:

Es la misma página pero con el dominio, bien, es exactamente ...

Hola.

Al tratar de leer en GNU/Linux un fichero creado en Windows y guardarlo con codificación utf8, sale el siguiente mensaje:

Code: Seleccionar todo

Wide character in print at script.pl line 5
  hola

Mi código:

use open IO => ":utf8";
open(my $H1, "file.txt");
$text = <$H1>;
close($H1);
print "$text";

y lo que tengo en el fichero a leer es: hola.

Lo que realmente necesito es leer ficheros en uft8 que pueden venir tanto de Windows como de Linux. ...

Hola, ¿cómo están?... Soy nuevo aquí y agradezco por tener esta oportunidad de ser un miembro de este prestigioso sitio.

Agradecido estoy y me gustaría resolver un problema.

Resulta que quisiera hacer una petición HTTP a un sitio y que me devuelva solamente un cierto contenido especifico.

Me había rebuscado en Google y he encontrado este sencillo código:

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows ...

Hola tengo un problema con esta función:

sub OpcionD{

my ($hora, $fichero, $directorio) = ($_, $_,$_);

opendir (DIR, $directorio) or die "Error: no puedo abrir directorio de planificacion $directorio\n";
my @contenido_directorio = readdir (DIR);
closedir (DIR);

if (-s $fichero ){
my @contenido_fichero = <FICHERO>; # problema
open (FICHERO, "+<fichero");

#Obtener la ultima id
foreach $linea (@contenidofichero){
@campos = split / /, $linea;
$id = $campos;

}

$numero_lineas = @contenidofichero;
$encontrado = 0;

foreach my $fichero_directorio ...

Hola, tengo un problemilla con un ejercicio. Aquí os muestro lo que tengo:

opendir (DIR, $dir);
@contenido_directorio =readdir (DIR);
closedir (DIR);

if (-s $fich){ #$fich es un argumento que ya me han pasado
open (FICH,">>$fich");
@contenido_fichero = <FICH>; #PROBLEMA

foreach $elemento (@contenido_directorio){
$ruta = $dir."/".$elemento;
foreach $linea (@contenido_fichero){ #esto tampoco va
@campos = split / /, $linea;

$id = $campos;
$orden = chomp($campos);
if (-r $ruta && -x $ruta && !(-d $ruta)){
if($ruta eq $orden){ ...

En el siguiente código, el método prepare() marca un error. El error es el siguiente:

Code: Seleccionar todo

[Fri May 02 15:22:52 2008] [error] [client 127.0.0.1] Can't call method "prepare" on an undefined value

¿a qué creen que se deba? por que no le hallo.

my @fields = ();

my $sql = "DESCRIBE ". $table_prefix . $filename;

$dbe = $db->prepare($sql);
if (!($dbe->execute)) { &adminerror($db->errstr); }

while ($info = $dbe->fetchrow_hashref()) {
#-- Obtencion de campos solo una vez
@fields ...

Buen día Perleros, tiempo sin postear. El motivo del presente es pedir su opinión. Eestoy trabajando bajo Windows y Linux Ubuntu y me gustaría poder instalar una aplicación que se conecte a una base de datos MySQL y me deje ver las tablas; algo de preferencia freeware (si es Windows) y, si no es mucho pedir, que también tenga una terminal o doble visualización para poder insertar comandos directamente (y ver los resultados en forma ...

Hola a todos, tengo un problema con la ejecución de un comando del sistema desde Perl.

En concreto, quiero ejecutar estas dos sentencias, que se ejecutan correctamente con un intérprete Bash:

SENTENCIA 1
exec softlimit -m 10000000 \
unixserver /tmp/.vmailmgrd vmailmgrd 2>&1 \
| setuidgid qmaill multilog t n100 s1000000 /usr/local/qmail/logs/vmailmgrd &

SENTENCIA 2
exec softlimit -m 20000000 \
envdir /etc/relay-ctrl relay-ctrl-chdir \
tcpserver -v -H -R -l $HOSTNAME -x /etc/tcpcontrol/tcp.smtp.cdb \
-c200 -u5002 -g5000 ...