Hola a todos.
Estoy intentado obtener unos datos de plantas solares de una página web y me he atascado. La verdad que comienzo con esto del Perl y me está costando mucho.
He conseguido obtener todos los enlaces de las plantas pero ahora es cuando no sé cómo continuar. Tengo que obtener de cada planta el nombre, la localidad y la potencia.
El código que tengo es
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics; ...
-
- Publicidad
Fecha actual 2024-11-15 12:25 @559
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Filtrar lista de datos
Hola a todos, le escribo para solicitar su ayuda. Mi problema es el siguiente: tengo una lista de datos que deseo filtrar (archivo1.txt). Es decir, eliminar algunos de los elementos (utilizando el archivo2.txt). Los archivos originales contienen muchos más elementos.
El archivo1.txt contiene los siguientes datos:
P21762
O25570
O25225
P56397
P55984
P69996
P14917
Q9R3B3
P14916
Q09064
Q09065
Q09066
Q09067
Q09068
Q8VN83
El archivo2.txt:
P21762
O25570
Para ello he escrito el siguiente código:
#! /usr/bin/perl ...
El archivo1.txt contiene los siguientes datos:
P21762
O25570
O25225
P56397
P55984
P69996
P14917
Q9R3B3
P14916
Q09064
Q09065
Q09066
Q09067
Q09068
Q8VN83
El archivo2.txt:
P21762
O25570
Para ello he escrito el siguiente código:
#! /usr/bin/perl ...
Read more : Filtrar lista de datos | Vistas : 509 | Respuestas : 3
Buscar palabras en un texto
Tengo los siguientes archivos:
log.txt
blancanieves -animacion
Balada Triste De Trompeta -drama
Cisne Negro -thriller
Caracremada -drama
jungla de cristal -accion
Saw VII -terror
Los Próximos Tres Días thriller
El Oso Yogui -animacion
Sin Retorno -drama
El Santuario -accion
...............
...............
....................
.............
busca.txt
accion
animacion
drama
Con el siguiente script:
open (BUSCA, 'busca.txt');
my @busca = <BUSCA>;
chomp @busca;
close(BUSCA);
for (my $i = 0; $i < @busca; $i++) {
open(LOG, "< ...
log.txt
blancanieves -animacion
Balada Triste De Trompeta -drama
Cisne Negro -thriller
Caracremada -drama
jungla de cristal -accion
Saw VII -terror
Los Próximos Tres Días thriller
El Oso Yogui -animacion
Sin Retorno -drama
El Santuario -accion
...............
...............
....................
.............
busca.txt
accion
animacion
drama
Con el siguiente script:
open (BUSCA, 'busca.txt');
my @busca = <BUSCA>;
chomp @busca;
close(BUSCA);
for (my $i = 0; $i < @busca; $i++) {
open(LOG, "< ...
Read more : Buscar palabras en un texto | Vistas : 1703 | Respuestas : 4
Agregar un array como valor de un hash
Buenas tardes,
Escribo por si me podéis ayudar con el siguiente problema.
Necesito crear un hash a partir de varios arrays.
He escrito una subrutina para que el primer elemento de un array sea asignado como clave, y que el valor lo compongan el resto de los elementos del array. Pero tengo problemas para poblar (introducir las claves y los valores) el array.
Al intentar imprimir el hash (usando el modulo Data::Dumper) el array aparece ...
Escribo por si me podéis ayudar con el siguiente problema.
Necesito crear un hash a partir de varios arrays.
He escrito una subrutina para que el primer elemento de un array sea asignado como clave, y que el valor lo compongan el resto de los elementos del array. Pero tengo problemas para poblar (introducir las claves y los valores) el array.
Al intentar imprimir el hash (usando el modulo Data::Dumper) el array aparece ...
Read more : Agregar un array como valor de un hash | Vistas : 1248 | Respuestas : 5
Escribir en fichero Excel
Estaba probando de crear un archivo Excel de la salida. El tema es que solo me guarda el último valor del array y no todos =(
Les dejo el script acotado...
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new('64.xls');
my $worksheet = $workbook->add_worksheet();
$worksheet->write(0, 0, 'Hostname');
$worksheet->write(0, 1, 'Autenticacion');
print "### Autenticacion ###\n";
foreach $aaaserver(@aaaserver) {
if ($aaaserver ~~ @servertacacs) {
print "Server= $aaaserver -> OK\n";
$worksheet->write(1, 1, "$aaaserver -> OK");
}
else {
print "Server= ...
Les dejo el script acotado...
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new('64.xls');
my $worksheet = $workbook->add_worksheet();
$worksheet->write(0, 0, 'Hostname');
$worksheet->write(0, 1, 'Autenticacion');
print "### Autenticacion ###\n";
foreach $aaaserver(@aaaserver) {
if ($aaaserver ~~ @servertacacs) {
print "Server= $aaaserver -> OK\n";
$worksheet->write(1, 1, "$aaaserver -> OK");
}
else {
print "Server= ...
Read more : Escribir en fichero Excel | Vistas : 617 | Respuestas : 4
Leer Hash dentro de hash
Hola. Tengo el siguiente código:
%hash = (
'personas' => {
'pepe' => '17',
'auto', 'argentina',
'ruben' => '20',
'moto', 'bolivia',
}
);
El problema es que quiero abrir el hash personas que está dentro de otro para poder imprimirlos
en pantalla de la siguiente forma:
pepe
auto argentina
ruben
moto bolivia
¿Alguien puede ayudarme?
%hash = (
'personas' => {
'pepe' => '17',
'auto', 'argentina',
'ruben' => '20',
'moto', 'bolivia',
}
);
El problema es que quiero abrir el hash personas que está dentro de otro para poder imprimirlos
en pantalla de la siguiente forma:
pepe
auto argentina
ruben
moto bolivia
¿Alguien puede ayudarme?
Read more : Leer Hash dentro de hash | Vistas : 365 | Respuestas : 1
Agregar valores a un hash
Hola. Teniendo el siguiente
my %lista
sub lista {
@valores = ("uno","dos","tres");
for my $valor(@valores) {
#####
}
return %lista;
}
El problema es que es que no sé cómo agregar valores al hash creando una lista con el mismo nombre y valor que la variable $valor para poder retornarlo a una función.
¿Alguien puede ayudarme?
my %lista
sub lista {
@valores = ("uno","dos","tres");
for my $valor(@valores) {
#####
}
return %lista;
}
El problema es que es que no sé cómo agregar valores al hash creando una lista con el mismo nombre y valor que la variable $valor para poder retornarlo a una función.
¿Alguien puede ayudarme?
Read more : Agregar valores a un hash | Vistas : 436 | Respuestas : 1
Paso de variable con PHP y recepción de resultados
Hola.
Soy nuevo en Perl y quiero hacer un formulario que me envíe 2 datos a un archivo .pm usando JavaScript y PHP.
He revisado que Perl esté bien configurado y que me responda correctamente en línea de comandos.
El problema lo tengo al llamar desde JavaScript.
Creo que es mejor con código:
Formulario en PHP:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Very ...
Soy nuevo en Perl y quiero hacer un formulario que me envíe 2 datos a un archivo .pm usando JavaScript y PHP.
He revisado que Perl esté bien configurado y que me responda correctamente en línea de comandos.
El problema lo tengo al llamar desde JavaScript.
Creo que es mejor con código:
Formulario en PHP:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Very ...
Read more : Paso de variable con PHP y recepción de resultados | Vistas : 2586 | Respuestas : 10
Apache no me ejecuta los programas Perl
Hola, tengo un gran problema para mi.
De repente Apache me ha dejado de funcionar. Pongo "maquina"/cgi-bin/prueba.perl y me sale
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, root@localhost and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the ...
De repente Apache me ha dejado de funcionar. Pongo "maquina"/cgi-bin/prueba.perl y me sale
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, root@localhost and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the ...
Read more : Apache no me ejecuta los programas Perl | Vistas : 2175 | Respuestas : 21
Pasaje de un vector a un metodo de un objeto
Gente:
Estoy teniendo un problema, y probé de todo y nada me funciona.
método:
sub procesarUrls
{
my $self=shift;
my @urls=shift;
my @textos;
my $key;
my $value;
#print Dumper(@urls);
#for(my $i=0;$i<=$#urls;$i++)
foreach $value (@urls)
{
print "valor: $value \n";
#print "url: $urls \n\n";
#$self->getDataClarin($urls);
#$self->mostrarAtributos();
#push(@textos,$self->getText());
#$self->setText();
}
return @textos;
}
Invocación:
@urls=$esc->getLinkHome($html);
$esc->procesarUrls(@$urls);
probé pasarlo con @, con %, etc. pero no hay caso lo único que logro mostrar en la dirección ...
Estoy teniendo un problema, y probé de todo y nada me funciona.
método:
sub procesarUrls
{
my $self=shift;
my @urls=shift;
my @textos;
my $key;
my $value;
#print Dumper(@urls);
#for(my $i=0;$i<=$#urls;$i++)
foreach $value (@urls)
{
print "valor: $value \n";
#print "url: $urls \n\n";
#$self->getDataClarin($urls);
#$self->mostrarAtributos();
#push(@textos,$self->getText());
#$self->setText();
}
return @textos;
}
Invocación:
@urls=$esc->getLinkHome($html);
$esc->procesarUrls(@$urls);
probé pasarlo con @, con %, etc. pero no hay caso lo único que logro mostrar en la dirección ...
Read more : Pasaje de un vector a un metodo de un objeto | Vistas : 368 | Respuestas : 1
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980