Walter Vargas tag:blogs.perl.org,2009-11-03:/users/walter_vargas//191 2011-12-10T14:13:39Z A blog about the Perl programming language Movable Type Pro 4.38 Perl Calltrace tag:blogs.perl.org,2011:/users/walter_vargas//191.2555 2011-12-09T06:45:11Z 2011-12-10T14:13:39Z How to get the abs path of the script that do use modulename ? In the module: 1 package foo; 2 use common::sense; 3 use Cwd 'abspath'; 4 5 sub program { 6 say abspath($0); 7 } 8 9 1;... Walter Vargas http://www.covetel.com.ve How to get the abs path of the script that do use modulename ?
  • In the module: 
    1 package foo;
2 use common::sense;
3 use Cwd 'abspath';
4 
5 sub program {
6     say abspath($0);
7 }
8 
9 1;
]]> Consultar al CNE Desde Perl. tag:blogs.perl.org,2009:/users/walter_vargas//191.141 2009-12-28T13:55:12Z 2009-12-28T14:28:17Z En algún momento, en una reunión con un equipo de “Desarrolladores”, un compañero y yo discutíamos sobre el proceso de recolección de datos durante una asamblea comunal, este compañero me planteaba que era muy complicado andar pidiendo el Nombre y... Walter Vargas http://www.covetel.com.ve En algún momento, en una reunión con un equipo de “Desarrolladores”, un compañero y yo discutíamos sobre el proceso de recolección de datos durante una asamblea comunal, este compañero me planteaba que era muy complicado andar pidiendo el Nombre y Apellido a todas las personas de la asamblea, que esto retardaría el proceso de registro y que por lo tanto, solo iba a recoger los datos de la encuesta y serian datos anónimos.

Yo le sugerí que solo pidiera la Cédula de Identidad, y a partir de la cédula, usara la base de datos del CNE para obtener la información sobre Nombre y Apellidos.

A la anterior sugerencia, el compañero me contesto que si yo estaba loco, que obtener la base de datos del CNE era un tema burocrático que le iba a tomar varias semanas y varios oficios.

A continuación, en un par de lineas escritas muy rápido y sin ninguna preocupación por el estilo, muestro como podemos usar Perl para consultar automáticamente el portal del Consejo Nacional Electoral.

 1 #!/usr/bin/perl
 2 use strict;
 3 use warnings;
 4 use LWP::UserAgent;
 5 use LWP::Simple;
 6 sub nombre;
 7
 8 my $cedula = shift;
 9 chomp $cedula;
10
11 my $ua = LWP::UserAgent->new( agent => "Mozilla/5.0 (X11; U; Linux i686; es-AR; rv:1.9.0.11) Gecko/2009061212 Firefox/3.0.11 (Canaima GNU/Linux)" );
12 $ua->defaultheaders;
13
14 my $url = "http://www.cne.gob.ve/ce.php";
15 my $c = $cedula;
16 $c =~ s/.//g;
17 my %parametros = ( cedula => $c, nacionalidad => "V");
18 my $r = $ua->post($url,\%parametros);
19
20 if ($r->issuccess) {
21     my @content = split ’\n’,$r->content;
22     my $nombre = nombre @content;
23     print "Nombre: $nombre \n";
24     }
25
26 sub nombre {
27     my (@c) = @_;
28     my @nombre = grep {/Nombre/} @c;
29     my @b = split /<strong>/, $nombre[0];  
30     my $nombre = $b[2];
31     $nombre =~ s/<\/strong><\/td>//;
32     $nombre =~ s/\W$//g;
33     return $nombre;
34 }

cne2.pl

]]>