#!/usr/bin/perl -s

our($notitle);
use strict;
use Skel::Data;
skimport();

my $hhead=[qw(batata cebola peras tomates)];
my $vhead=[qw(vinho cerveja rum  leite sumo água )];
my $mat=[ map {my $x=$_; [ map { length($_ . $x)} @$hhead ] } @$vhead ];

my $p={
 title    => sub{ $notitle ? "" : "Length of food and drink"},
 tabdecl  => join("|",map {'@{}c@{}'             } @$hhead),
 tabheadh => join("&",map { sprintf('\rr{%s}',$_)} @$hhead),
 colrows  => skzip($vhead,[map { join("&",@$_)   } @$mat]),
 -default => "",
};

pdfcroped( LATEX($p));

sub pdfcroped{ my $t=shift;
  open(F,">","_tmp.tex");
  print F $t;
  close F;

  system("pdflatex _tmp.tex") ==0 or die("pdflatex\n");
  system("pdfcrop.pl _tmp.pdf")  ==0 or die("pdfcrop\n");
  system("xpdf _tmp-crop.pdf")==0 or die("xpdf\n");
}

#print MAT([333,444]);
#print MAT([333,444],{1=>666,2=>777});
#print MAT([333,444],{1=>sub{3*666},2=>777});

__DATA__

__LATEX__

\documentclass[portuges,a4paper]{article}
\usepackage{babel}
%\usepackage{ucs}
\usepackage[mathletters]{ucs}
\usepackage[utf8x]{inputenc}

\usepackage[T1]{fontenc}
[% !MATpak %]

\begin{document}
[% !MATinit %]

\title{[% title %]}
\date{[% date %]}
\maketitle
\thispagestyle{empty}
\begin{centering}
[% !MATRIX2 %]
\end{centering}

\end{document}

__MATpak__

\usepackage{rotating}
\usepackage{dcolumn}


__MATinit__

\newcolumntype{K}[1]{%
>{\begin{turn}{90}\begin{minipage}{#1}%
\raggedright\hspace{0pt}}c%
<{\end{minipage}\end{turn}}%
}
\newcolumntype{R}[0]{>{\begin{turn}{90}}c<{\end{turn}}}
\def\rr#1{\begin{turn}{90}\rule[-2pt]{0pt}{15pt}#1\end{turn}}
\def\hh#1{\rule{0pt}{12pt}#1}


__MATRIX2__

 \begin{tabular}{r|[% tabdecl %]|}
                 & [% tabheadh %] \\ \hline
  [% colrows*MAT %]

  \end{tabular} 
  \rule{0pt}{25pt}\\[3mm]

__MAT__

   \hh{[% 1 %]}& [% 2 %]\\ \hline

__END__

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=head2 Language

=head3 Metadata section

=head3 Entries

=head1 AUTHOR

J.Joao Almeida, jj@di.uminho.pt

=head1 SEE ALSO

=cut