#!/usr/bin/perl

# Public domain as in http://en.wikipedia.org/wiki/Public_domain
#
#  Originally written by David Moreno Garza <damog@damog.net.ve>
#  Dedicated to el choro malandro Manuel García

use strict;
use warnings;

use Spreadsheet::ParseExcel::Simple;

my $file = $ARGV[0] or die(usage()."\n");

my $xls = Spreadsheet::ParseExcel::Simple->read($file);
foreach my $sheet ($xls->sheets) {
	while ($sheet->has_data) {
		my @data = $sheet->next_row;
		my $html;
		foreach my $cell (@data) {
			$html .= $cell."|";
		}
		$html =~ s/\|$//;
		print "$html\n";
	}
}
							  
sub usage {
	my $msg = qq|uso: perl ./xls2txt.perl <archivo.xls>
	La salida será desplegada en pantalla.
	|;
	return $msg;
}