Foro - Perl en Español

Hola a todos,

Tengo un problema para poder filtrar por llaves de un hash, espero poder expresar bien mi duda.

Estos son los datos del archivo alumnos.dat (IDSALON, IDGRADO, IDALUMNO, NOLISTA, NOMBRE)

1=A=6=14=Juan Perez
1=B=12=9=Carlos Buenrostro
1=C=24=33=Maria de las Nieves
2=A=19=22=Adalberto Madero
2=B=31=14=Maria Felix
3=A=27=11=Guadalupe Victoria

y este es el código en Perl
#!/usr/bin/perl -w
#

use strict;
use Lib::DB::DBFile;
use Lib::DB::DBConnect;

my(%filtalumnos,%db_data,@alumnos,$alumnos, $dbh,$sth);
my $DBFile = new Lib::DBFile::DBFile;
my $qry = qq/select IDSALON, IDGRADO, ...

¡Hola!

Antes de publicar este mensaje he estado buscando en el foro y no he encontrado respuesta a mi pregunta. Si ya está respondida os agradeceré que me digáis dónde.

Necesito saber el día de la semana de una fecha determinada. Ahora mismo, utilizo:

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$mon = $mon+1;
$year = $year+1900;

Lo que me da correctamente el día de la semana actual, pero no sé cómo obtener ese mismo valor en $wday para ...

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