Biblio-Thesaurus

 view release on metacpan or  search on metacpan

bin/thesaurus2tex  view on Meta::CPAN

#!/usr/bin/perl -w -s

our ($c);
use locale;
use strict;
use Biblio::Thesaurus;
my $the = shift;
my $dest = shift || "thesaurus";

my $obj = thesaurusLoad($the);

my $tit = $obj->{title} || $dest;
my $aut = $obj->{author} || "";
my $desc = $obj->{desc} || "";

examples/tabterm  view on Meta::CPAN

#!/usr/bin/perl -s

our ($l,$t);

#use POSIX qw(locale_h);
#setlocale(&POSIX::LC_ALL, "pt_PT");
#use encoding "utf8", STDIN => "latin1";
use Unicode::Collate;
my $ptsort = Unicode::Collate::->new();

use Data::Dumper;
use strict;
my $meta={};
my $T = {};
my %desc=();
my %inv=qw( 

examples/tabterm  view on Meta::CPAN

sub geraList{
  my %opt =(output => "_output.the");
  if(ref($_[0]) eq "HASH") {%opt = (%opt, %{shift(@_)})};
  open (F ,">$opt{output}");
  binmode(F,":utf8");
  for (sort( keys %$T)){ print F "$_\n"}
  close F
}

sub geraThe{
#  use locale;
  my %opt =(output => "_output.the");
  if(ref($_[0]) eq "HASH") {%opt = (%opt, %{shift(@_)})};
  open (F ,">$opt{output}");
  binmode(F,":utf8");
  print  F qq{
%enc utf8

};
  for (keys %inv) { print F "%inv $_ $inv{$_}\n"; }
  for (keys %desc){ print F "%desc $_ $desc{$_}\n"; }

examples/tabterm  view on Meta::CPAN

     for my $r (keys %{$T->{$t}}){
        for my $t2 ($ptsort->sort( keys %{$T->{$t}{$r}})){
          print F "$r $t2\n";
        }
     }
  }
  close F;
}

sub geraTex{
#  use locale;
  my %opt =(output => "_output.tex");
  if(ref($_[0]) eq "HASH") {%opt = (%opt, %{shift(@_)})};
  open (F ,">$opt{output}");
  binmode(F,":utf8");
  if($opt{style} eq "agenda"){ 
    print  F q{
\documentclass[portuges,a4paper]{article}
\usepackage{agbook}
}
}