Foro - Perl en Español

por **willbender** » 2013-10-25 11:14 @509

¡Hola a todos! ¿Alguien me podría ayudar? Tengo esta tarea.
Tengo un archivo en formato HTML de este tipo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<A name=1></a>I n f o r m a t i o n   a s   o f   2 4   S e p t e m b e r   2 0 1 3   h a s   b e e n   u s e d   i n   p r e p a r a t i o n   o f   t h i s   d i r e c t o r y .  <br>
<hr>
<A name=2></a>PREFACE<br>
The Central Intelligence Agency publishes and updates the online directory of<i> Chiefs of State and Cabinet Members of<br>Foreign Governments  </i>weekly. The directory is intended to be used primarily as a reference aid and includes as many<br>governments of the world as is considered practical, some of them not officially recognized by the United States.<br>Regimes with which the United States has no diplomatic exchanges are indicated by the initials NDE.<br>
G o v e r n m e n t s   a r e   l i s t e d   i n   a l p h a b e t i c a l   o r d e r   a c c o r d i n g   t o   t h e   m o s t   c o m m o n l y   u s e d   v e r s i o n   o f   e a c h   c o u n t r y ' s   n a m e .<br>The spelling of the personal names in this directory follows transliteration systems generally agreed upon by US<br>Government agencies, except in the cases in which officials have stated a preference for alternate spellings of their<br>n a m e s .<br>
 <br>
<b>NOTE: Although the head of the central bank is listed for each country, in most cases he or she is not a Cabinet<br>member. Ambassadors to the United States and Permanent Representatives to the UN, New York, have also been<br>included.</b><br>
<b>P a g e   2   o f   2 1 2</b><br>
<hr>
<A name=3></a>Key to Abbreviations<br>
A d m .<br>
A d m i r a l<br>
A d m i n .<br>
A d m i n i s t r a t i v e ,   A d m i n i s t r a t i o n<br>
A s s t .<br>
A s s i s t a n t<br>
Brig.<br>
Brigadier<br>
C a p t .<br>
C a p t a i n<br>
C d r .<br>
C o m m a n d e r<br>
C d t e .<br>
C o m a n d a n t e<br>
C h m n .<br>
C h a i r m a n ,   C h a i r w o m a n<br>
Col.<br>
Colonel<br>
Ctte.<br>
C o m m i t t e e<br>
Del.<br>
Delegate<br>
D e p .<br>
D e p u t y<br>
D e p t .<br>
D e p a r t m e n t<br>
Dir.<br>
D i r e c t o r<br>
Div.<br>
Division<br>
Dr.<br>
D o c t o r<br>
Eng.<br>
Engineer<br>
Fd. Mar.<br>
Field Marshal<br>
Fed.<br>
F e d e r a l<br>
Gen.<br>
G e n e r a l<br>
Govt.<br>
G o v e r n m e n t<br>
Intl.<br>
I n t e r n a t i o n a l<br>
Lt.<br>
L i e u t e n a n t<br>
Maj.<br>
Major<br>
Mar.<br>
M a r s h a l<br>
Mbr.<br>
M e m b e r<br>
Min.<br>
Minister, Ministry<br>
NDE<br>
No Diplomatic Exchange<br>
Org.<br>
O r g a n i z a t i o n<br>
Pres.<br>
P r e s i d e n t<br>
Prof.<br>
P r o f e s s o r<br>
RAdm.<br>
Rear Admiral<br>
Ret.<br>
R e t i r e d<br>
Sec.<br>
Secretary<br>
VAdm.<br>
Vice Admiral<br>
VMar.<br>
Vice Marshal<br>
<b>P a g e   3   o f   2 1 2</b><br>
<hr>
<A name=4></a><b> </b><br>
<b>Afghanistan </b><br>
Last Updated: 6 Sep 2013 <br>
Pres.  <br>
Hamid KARZAI<br>
First Vice Pres. <br>
Mohammad FAHIM Khan<br>
Second Vice Pres.  <br>
Abdul Karim KHALILI<br>
Min. of Agriculture, Irrigation, &amp; Livestock  <br>
Mohammad Asif RAHIMI<br>
Min. of Border &amp; Tribal Affairs  <br>
 <br>
Min. of Commerce &amp; Industry  <br>
Anwar Ul-Haq AHADY<br>
Min. of Communications <br>
Amirzai SANGIN<br>
Min. of Counternarcotics <br>
Zarar Ahmad Moqbel OSMANI<br>
Min. of Defense <br>
BISMULLAH Muhammadi Khan<br>
Min. of Economy  <br>
Abdul Hadi ARGHANDIWAL<br>
Min. of Education  <br>
Faruq WARDAK<br>
Min. of Energy &amp; Water  <br>
Ismail KHAN<br>
Min. of Finance <br>
Omar ZAKHILWAL<br>
Min. of Foreign Affairs  <br>
Zalmay RASSOUL<i>, Dr.</i><br>
Min. of Hajj &amp; Islamic Affairs  <br>
Mohammad Yusuf NIAZI<br>
Min. of Health  <br>
Suraya DALIL<i>, Dr.</i><br>
Min. of Higher Education  <br>
Obaidullah OBAID<br>
Min. of Information &amp; Culture  <br>
Sayed Makhdum RAHIN<br>
Min. of Interior (Acting)  <br>
Mohammad Umer DAUDZAI<br>
Min. of Justice  <br>
Habibullah GHALEB<br>
Min. of Martyred, Disabled, Labor, &amp; Social Affairs  <br>
Amena AFZALI<br>
Min. of Mines &amp; Petroleum  <br>
Wahidullah SHAHRANI<br>
Min. of Public Works  <br>
Najibullah AOUDJAN<br>
Min. of Refugees &amp; Repatriation <br>
Jamahir ANWARI<br>
Min. of Rural Rehabilitation &amp; Development  <br>
Wais BARMACK<br>
Min. of Transportation &amp; Civil Aviation  <br>
Daoud Ali NAJAFI<i>, Dr.</i><br>
Min. of Urban Development <br>
Hassan ABDULHAI<br>
Min. of Women's Affairs <br>
Hasan Bano GHAZANFAR<br>
National Security Adviser  <br>
Rangin Dadfar SPANTA<br>
Dir. Gen. (Acting), National Directorate of Security <br>
Rahmatullah NABIL<br>
Governor, Da Afghanistan Bank  <br>
Noorullah DELAWARI<br>
A m b a s s a d o r   t o   t h e   U S <br>
Eklil Ahmad HAKIMI<br>
Permanent Representative to the UN, New York <br>
Zahir TANIN<br>
<b>P a g e   4   o f   2 1 2</b><br>
<hr>
<A name=5></a><b> </b><br>
<b>Albania </b><br>
Last Updated: 17 Sep 2013 <br>
Pres.  <br>
Bujar NISHANI<br>
Prime Min. <br>
Edi RAMA<br>
Dep. Prime Min.  <br>
Niko PELESHI<br>
Min. of Agriculture, Food, &amp; Consumer Protection  <br>
Edmond PANARITI<br>
Min. of Culture  <br>
Mirela KUMBARO<br>
Min. of Defense <br>
Mrike &quot;Mimi&quot; KODHELI<br>
Min. of Economic Development, Trade, &amp; Entrepreneurship  <br>
Arben AHMETAJ<br>
Min. of Education &amp; Sports <br>
Lindita NIKOLLI<br>
Min. of Energy &amp; Industry <br>
Damian GJIKNURI<br>
Min. of Environment  <br>
Lefter KOKA<br>
Min. of Finance <br>
Shkelqim CANI<br>
Min. of Foreign Affairs  <br>
Ditmir BUSHATI<br>
Min. of Health  <br>
Ilir BEQJA<br>
Min. of Innovation &amp; Public Admin.  <br>
Milena HARITO<br>
Min. of Integration <br>
Klajda GJOSHA<br>
Min. of Interior  <br>
Sajmir TAHIRI<br>
Min. of Justice  <br>
Nasip NACO<br>
Min. of Local Govt. Affairs <br>
Bled CUCI<br>
Min. of Relations With Parliament <br>
Ilirjan CELIBASHI<br>
Min. of Social Welfare &amp; Youth <br>
Erion VELIAJ<br>
Min. of Transport &amp; Infrastructure  <br>
Edmond HAXHINASTO<br>
Min. of Urban Development &amp; Tourism  <br>
Englantina GJERMENI<br>
Governor, Bank of Albania  <br>
Ardian FULLANI<br>
A m b a s s a d o r   t o   t h e   U S <br>
Gilbert GALANXHI<br>
Permanent Representative to the UN, New York <br>
Ferit HOXHA<br>
<b>P a g e   5   o f   2 1 2</b><br>
<hr>
<A name=6></a><b> </b><br>
<b>Algeria </b><br>
Last Updated: 20 Sep 2013 <br>
Pres.  <br>
 
Coloreado en 0.008 segundos,  usando GeSHi 1.0.8.4

De este archivo necesito capturar hacia una base de datos los campos siguientes:

El pais que está en esta etiqueta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<A name=6></a><b> </b><br>
<b>Algeria </b><br>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Luego viene un párrafo en donde se describen nombres de personas y lo que son, es decir, presidente, vicepresidente, ministro de esto, ministro de aquello, etc. Esos datos son los que necesito capturar, es decir, capturo todos los nombres de las personas con su descripción política y lo apunto hacia una base de datos.

La conexion ya la tengo hecha. Ya tengo tres variables dentro de un "foreach" esperando para insertar a la base. Realmente ese no es el problema.

El problema real es cómo recorrer todo el archivo y definir que cuando encuentre un nombre de país tome como datos para ese país el parrafo que abarca desde el nombre del país hasta el dato del siguiente país.

¿Me pueden ayudar? Agradecería mucho su ayuda. Éxitos.

WILL....

Puede hacer algo así.

He creado una variable $ContentPage, la cual contiene el código HTML.
Le he dicho que me saque lo que está entre Afghanistan y Algeria y lo deje en $1.
Luego lo paso a una matriz cada línea y de ahí la recorro diciendo que la primera línea es el cargo y la segunda el nombre... Lo he probado y funciona. Eso sí, hay que limpiarlo para sacarle los <br> y la basura que no ocupes.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $a = $ContentPage =~ /\<b>Afghanistan <\/b><br>(.*?)<b>Algeria/si;
if ( $a == 1 ) {
    $ContentPage = $1;
    my @Lineas = split( /\n/, $ContentPage );
    my $contador = 1;
    foreach $linea (@Lineas) {
        my $b = $linea =~ /\Last(.*?)> /si;
 
        if ( !$b ) {
            if ( $contador == 1 ) {
                print "\n\nNOMBRE:" . $linea;
            }
            if ( $contador == 2 ) {
                print "CARGO:" . $linea . "";
            }
            $contador++;
        }
        if ( $contador == 3 ) {
            $contador = 1;
        }
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

RESULTADO:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

NOMBRE:Pres.  <br>CARGO:Hamid KARZAI<br>

NOMBRE:First Vice Pres. <br>CARGO:Mohammad FAHIM Khan<br>

NOMBRE:Second Vice Pres.  <br>CARGO:Abdul Karim KHALILI<br>

NOMBRE:Min. of Agriculture, Irrigation, &amp; Livestock  <br>CARGO:Mohammad Asif RAHIMI<br>

NOMBRE:Min. of Border &amp; Tribal Affairs  <br>CARGO: <br>

NOMBRE:Min. of Commerce &amp; Industry  <br>CARGO:Anwar Ul-Haq AHADY<br>

NOMBRE:Min. of Communications <br>CARGO:Amirzai SANGIN<br>

NOMBRE:Min. of Counternarcotics <br>CARGO:Zarar Ahmad Moqbel OSMANI<br>

NOMBRE:Min. of Defense <br>CARGO:BISMULLAH Muhammadi Khan<br>

NOMBRE:Min. of Economy  <br>CARGO:Abdul Hadi ARGHANDIWAL<br>

NOMBRE:Min. of Education  <br>CARGO:Faruq WARDAK<br>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

No soy experto pero eso se me ocurrió... igual puedes mejorarlo... Ahora, si necesitas que el programa vaya a la página web y saque esta información tienes que sacar el código con el WWW::Mechanize y la dejas en la variable $ContentPage.

Saludos...

por **willbender** » 2013-10-25 12:17 @553

tolyn, muchas gracias. Probaré el código que me indicas. ¡Muy amable!

por **willbender** » 2013-10-28 10:45 @489

No me ha funcionado la solución que me indicabas. Una duda: yo estoy haciendo esto con el código que me envías:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( PEP, $file ) || die "ERROR: No puedo abrir el fichero $_\n";
 
my $a = <PEP> =~ /\<b>Afghanistan <\/b><br>(.*?)<b>Algeria/si;
print;
if ( $a == 1 ) {
    $file = $1;
    my @Lineas = split( /\n/, PEP );
    my $contador = 1;
    foreach $linea (@Lineas) {
        my $b = $linea =~ /\Last(.*?)> /si;
 
        if ( !$b ) {
            if ( $contador == 1 ) {
                print "\n\nNOMBRE:" . $linea;
            }
            if ( $contador == 2 ) {
                print "CARGO:" . $linea . "";
            }
            $contador++;
        }
        if ( $contador == 3 ) {
            $contador = 1;
        }
    }
}
close($file);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡No me funciona! Lo corro desde consola y lo apunto a un archivo txt.txt y simplemente me imprime el nombre de mi archivo. ¿Me puedes ayudar? Gracias.

por **tolyn** » 2013-10-28 11:10 @507

will, ¿has impreso "PEL" para ver si tiene el HTML...? Lo que yo hice fue crear una variable

$ContentPage="AKI PEGE TODO EL CODIGO HTML QUE PUBLICASTE... ";

Prueba imprimiendo tu variable... O carga el HTML a la variable como lo hice yo...

Disculpa la demora pero estuve desconectado...

Saludos...

por **explorer** » 2013-10-28 20:41 @904

Como estamos en el foro Intermedio, aquí publico mi solución basada en expresiones regulares:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
use autodie;
use utf8::all;
use File::Slurp;
 
## Leemos el archivo
my $html = read_file('code_35850.html');
 
## Definición de lo que buscamos
my $regex_país   = qr{  ^
                        <A[ ]name=\d+></a>            .+? \n
                        <b> \s* (?<país>.+?) \s* </b> .+? \n
                        Last[ ]Updated:[ ]            .+? \n
                   }mix;
my $regex_eol    = qr{\s*? <br> \s*? \n}ix; 
my $regex_cargo  = qr{^ (?<!<) (?<cargo>.+?)  $regex_eol }mix;
my $regex_nombre = qr{^ (?<!<) (?<nombre>.+?) $regex_eol }mix;
my $regex_staff  = qr{(?<staff>(?:$regex_cargo $regex_nombre)+)}x;
 
## Buscamos
while ($html =~ /$regex_país $regex_staff/mxg) {
 
    my($país, $staff) = ($+{país}, $+{staff});
 
    say "País: [$país]";
 
    while ($staff =~ /$regex_cargo $regex_nombre/gx) {
        say "\t[$+{cargo}]", "\t[$+{nombre}]";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[Afghanistan]

        [Pres.] [Hamid KARZAI]

        [First Vice Pres.]      [Mohammad FAHIM Khan]

        [Second Vice Pres.]     [Abdul Karim KHALILI]

        [Min. of Agriculture, Irrigation, &amp; Livestock]      [Mohammad Asif RAHIMI]

        [Min. of Border &amp; Tribal Affairs]   [ ]

        [Min. of Commerce &amp; Industry]       [Anwar Ul-Haq AHADY]

        [Min. of Communications]        [Amirzai SANGIN]

        [Min. of Counternarcotics]      [Zarar Ahmad Moqbel OSMANI]

        [Min. of Defense]       [BISMULLAH Muhammadi Khan]

        [Min. of Economy]       [Abdul Hadi ARGHANDIWAL]

        [Min. of Education]     [Faruq WARDAK]

        [Min. of Energy &amp; Water]    [Ismail KHAN]

        [Min. of Finance]       [Omar ZAKHILWAL]

        [Min. of Foreign Affairs]       [Zalmay RASSOUL<i>, Dr.</i>]

        [Min. of Hajj &amp; Islamic Affairs]    [Mohammad Yusuf NIAZI]

        [Min. of Health]        [Suraya DALIL<i>, Dr.</i>]

        [Min. of Higher Education]      [Obaidullah OBAID]

        [Min. of Information &amp; Culture]     [Sayed Makhdum RAHIN]

        [Min. of Interior (Acting)]     [Mohammad Umer DAUDZAI]

        [Min. of Justice]       [Habibullah GHALEB]

        [Min. of Martyred, Disabled, Labor, &amp; Social Affairs]       [Amena AFZALI]

        [Min. of Mines &amp; Petroleum] [Wahidullah SHAHRANI]

        [Min. of Public Works]  [Najibullah AOUDJAN]

        [Min. of Refugees &amp; Repatriation]   [Jamahir ANWARI]

        [Min. of Rural Rehabilitation &amp; Development]        [Wais BARMACK]

        [Min. of Transportation &amp; Civil Aviation]   [Daoud Ali NAJAFI<i>, Dr.</i>]

        [Min. of Urban Development]     [Hassan ABDULHAI]

        [Min. of Women's Affairs]       [Hasan Bano GHAZANFAR]

        [National Security Adviser]     [Rangin Dadfar SPANTA]

        [Dir. Gen. (Acting), National Directorate of Security]  [Rahmatullah NABIL]

        [Governor, Da Afghanistan Bank] [Noorullah DELAWARI]

        [A m b a s s a d o r   t o   t h e   U S]       [Eklil Ahmad HAKIMI]

        [Permanent Representative to the UN, New York]  [Zahir TANIN]

[Albania]

        [Pres.] [Bujar NISHANI]

        [Prime Min.]    [Edi RAMA]

        [Dep. Prime Min.]       [Niko PELESHI]

        [Min. of Agriculture, Food, &amp; Consumer Protection]  [Edmond PANARITI]

        [Min. of Culture]       [Mirela KUMBARO]

        [Min. of Defense]       [Mrike &quot;Mimi&quot; KODHELI]

        [Min. of Economic Development, Trade, &amp; Entrepreneurship]   [Arben AHMETAJ]

        [Min. of Education &amp; Sports]        [Lindita NIKOLLI]

        [Min. of Energy &amp; Industry] [Damian GJIKNURI]

        [Min. of Environment]   [Lefter KOKA]

        [Min. of Finance]       [Shkelqim CANI]

        [Min. of Foreign Affairs]       [Ditmir BUSHATI]

        [Min. of Health]        [Ilir BEQJA]

        [Min. of Innovation &amp; Public Admin.]        [Milena HARITO]

        [Min. of Integration]   [Klajda GJOSHA]

        [Min. of Interior]      [Sajmir TAHIRI]

        [Min. of Justice]       [Nasip NACO]

        [Min. of Local Govt. Affairs]   [Bled CUCI]

        [Min. of Relations With Parliament]     [Ilirjan CELIBASHI]

        [Min. of Social Welfare &amp; Youth]    [Erion VELIAJ]

        [Min. of Transport &amp; Infrastructure]        [Edmond HAXHINASTO]

        [Min. of Urban Development &amp; Tourism]       [Englantina GJERMENI]

        [Governor, Bank of Albania]     [Ardian FULLANI]

        [A m b a s s a d o r   t o   t h e   U S]       [Gilbert GALANXHI]

        [Permanent Representative to the UN, New York]  [Ferit HOXHA]Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **willbender** » 2013-10-29 16:32 @731

Gracias a ambos por sus respuestas.

Tolyn: sí imprime el HTML. Solucioné el problema cambiando la raíz del html.

explorer: comprobaré tu solución.

Gracias.

por **willbender** » 2013-10-29 17:21 @765

explorer, buenas tardes.

¿Me podrías explicar un poco la sintaxis de la la expresión regular entre qr y mix, si fuera tan amable? Me pierdo un poco.

Gracias, ¡muy amable!

por **explorer** » 2013-10-29 18:43 @821

En el código hay siete patrones y dos expresiones regulares. El operador qr() define patrones, que más tarde se usarán dentro de una expresión regular.

¿Cuál de ellas no ves claro?

Tienes información general sobre las expresiones regulares y los patrones en tu propio ordenador en perldoc perlre, y en la Web (traducido al español).

por **willbender** » 2013-10-31 11:22 @515

Creo que mi problema tiene que ver con la versión de Perl. Esto es lo que me despliega

"This is perl, v5.8.8 built for x86_64-linux-thread-multi"

El problema es que no puedo actualizar la versión de Perl del servidor en donde correrá este perl debido a que ya hay perl colocados y que funcionan ahí y, pues, definitivamente no deseo entrar en conflictos con los demás programas.

El problema que me da al querer instalar el utf8::all con el cpan es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

force install utf8::all

Running install for module 'utf8::all'

Running Build for D/DO/DOHERTY/utf8-all-0.011.tar.gz

  Has already been unwrapped into directory /root/.cpan/build/utf8-all-0.011-9_Moz_

  CPAN.pm: Building D/DO/DOHERTY/utf8-all-0.011.tar.gz

DOHERTY/utf8-all-0.011.tar.gz requires perl '5.010'; you have only 5.008008; giving up

  DOHERTY/utf8-all-0.011.tar.gz

  [prereq] -- NOT OK

Running Build test

  Can't test without successful make

Running Build install

  Make had returned bad status, install seems impossible

Failed during this command:

 DOHERTY/utf8-all-0.011.tar.gz                : make NO requires perl '5.010'Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Por consiguiente no sé si se puede modificar un poco la expresión regular para que la versión de Perl pueda manejarlo. ¿Me puedes ayudar?

Gracias de todas maneras.

Foro - Perl en Español

Obtener información de un archivo html

Obtener información de un archivo html

Publicidad

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

Re: Obtener información de un archivo html

¿Quién está conectado?