Foro - Perl en Español

Hola a todos,

Estoy escribiendo un script que se conecte a un entorno remoto mediante el modulo Net::SFTP.

El hecho es que por más que lo intento, siempre obtengo el mismo error:
Permission denied at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 62

He aquí el código:

my %args;
$args{user} = "pepe";
$args{password} = "secreto";
my $host = "maquina";

print "Connecting to $host...\n";
my $sftp;
eval {$sftp = Net::SFTP->new($host,%args)};
if ($@) { print "Sftp connection failed:\n $@\n"; }

He ...

¡¡Hola perleros!!

Soy nueva en esto de Perl. Me he encontrado con este foro y había pensado que me podríais ayudar. Vamos a ver, tengo un fichero .dat que tengo que abrir para sacar información de él, ¿cómo lo puedo hacer?

¡¡Gracias chavales!!

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