$t

#!/usr/bin/perl -s our ($dir); $dir ||= "."; my $thesaurus= shift or die("Usage: $0 [-dir=...] thesarus\n"); mkdir($dir) unless -d $dir; use Biblio::Thesaurus; use CGI qw(:all :nodebug); my $obj = thesaurusLoad($thesaurus); open (G,">$dir/0_lista_de_termos.html") or die("cant create index"); print G $obj->downtr( {-default => sub { my $cla=(exists $obj->{languages}{$rel})?"lingua":"rel"; if(@terms > 1){ li({-class=>$cla},strong($obj->getDescription($rel)),"\t". ul(li([map{ a({href=>t2f($_)},$_)."\n"} sort @terms])))."\n"} else{ li({-class=>$cla},strong($obj->getDescription($rel)),"\t". join(", ", map{ a({href=>t2f($_)},$_)."\n"} sort @terms))."\n"} }, -order => ["PT","FR",'SP','ES' , 'EN',"DE" ,"BT","NT","RT","MT","UF","USE","SN"], -end => sub { "Thesaurus:\n $_ \nFIM\n"}, -eachTerm => sub { my $tt=t2f($term); open(F,">$dir/$tt") or die ("cant create file $dir/$tt\n"); print F ambsheader($term); print F h3($term).ul($_)."\n"; print F ambsfooter(); close F; print STDERR "$term\n"; li(a({href=>$tt},$term )); }, SN => sub{ li({-class=>"text"},strong("sn"),join("",@terms)) }, }); close G; sub t2f{ my $a = shift; ### for ($a){ tr/摋薃㽙鳻譀瞃隮崘錝籙裷鼩/aeiouaeiouaeiouaeiouaonc/; } for ($a){ tr/A-Z/a-z/; tr/摋薃㽙鳻譀瞃隮崘錝籙裷鼩/AEIOUAEIOUAEIOUAEIOUAONC/; s/[\[\] \/\?\":]/_/g } "$a.html" } sub ambsheader{ my $t=shift; return qq{ $t }; } sub ambsfooter{ return qq{ } } __END__ NumExp