1 #!/usr/bin/perl
  2 use strict;
  3 use warnings;
  4 use LWP::UserAgent;
  5 use HTML::TableExtract;
  6
  7 unless ( @ARGV == 3 ) {
  8
  9     print "usage: $0 amount from to\n";
 10     print "    example: $0 1000 usd eur\n";
 11     exit( 1 );
 12 }
 13
 14 my ( $amount, $from, $to ) = @ARGV;
 15     
 16 my $user_agent = LWP::UserAgent->new( agent => 'Mozilla/5.0' );
 17
 18 my $response = $user_agent->post(
 19
 20     'http://www.xe.com/ucc/convert.cgi', [
 21
 22         Amount => $amount,
 23         From   => uc $from,
 24         To     => uc $to,
 25     ]
 26 );
 27
 28 $response->is_success or
 29     die $response->status_line;
 30
 31 my $html_file = $response->content;
 32
 33 my $percent = "45%";
 34 my $table_extract = HTML::TableExtract->new( attribs => { width => $percent } );
 35 $table_extract->parse($html_file);
 36 foreach my $tabla ($table_extract->tables) {
 37         foreach my $fila ($tabla->rows) {
 38                     print " ", join(', ', @$fila), "\n";
 39                         }
 40 }

my $table_extract = HTML::TableExtract->new( headers => [qw(Euro)]);

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use LWP::UserAgent;
use HTML::TableExtract;
use Encode;

unless ( @ARGV == 3 ) {
    print "usage: $0 amount from to\n";
    print "    example: $0 1000 usd eur\n";
    exit  1;
}

my ( $amount, $from, $to ) = @ARGV;

my $user_agent = LWP::UserAgent->new( agent => 'Mozilla/5.0' );

my $response = $user_agent->post(
    'http://www.xe.com/ucc/convert.cgi',
    [
        Amount => $amount,
        From   => uc $from,
        To     => uc $to,
    ]
);

$response->is_success or
    die $response->status_line;

my $html_file = decode_utf8($response->content);

my $table_extract = HTML::TableExtract->new( attribs => { class => 'XEtbl_sub' } );

$table_extract->parse($html_file);

my @tablas = $table_extract->tables();
my $tabla  = $tablas[0];                ## Es la primera tabla
my @filas  = $tabla->rows;              ## Sacamos todas las filas de esa tabla

## De la tercera fila, sacamos todas las celdas
print join(' ', @{$filas[2]}),"\n";

## Esta es otra forma, accediendo directamente al contenido de la $tabla
print join(' ', map { $_ = $$_ } @{ $tabla->{grid}->[2] }), "\n";