Biblio-Thesaurus
5 results

 view release on metacpan or  search on metacpan

bin/tageditor2thesaurus  view on Meta::CPAN 

#!/usr/bin/perl

#undef $/;
#$/='';
  my %ent =  # em utf8...
qw(
aacute	á
Aacute	Á
acirc 	â
Acirc 	Â
agrave	à
Agrave	À
aring 	å
Aring 	Ã…

bin/thesaurus2tageditor  view on Meta::CPAN 

#!/usr/bin/perl

#undef $/;
$/='';

print "<html><body><pre>\n";
while(<>){
 chomp;
 if(/^(.*)\n/){
    print "<!-- $1 -->\nPt: $1\n";
    my $a = "$'\n";
    $a =~ s/(.+)\n/<!--        $1       -->\n/g;
    print "$a\n\n"
 }

examples/thesaurusSC  view on Meta::CPAN 

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

our ($ori,$ablt,$rblt,$protcom) ;

my ($bl,$langpat,%l);
$bl = $ablt if (defined $ablt) && ($ablt =~ /[A-Za-z]+/);
$bl = $rblt if (defined $rblt) && ($rblt =~ /[A-Za-z]+/);

$/='';

my $s;
while(<>){
  chomp;
  if(/^\%/){
    if (/\%baselang(?:uage)?\s+(\S+)/) { $bl ||= $1; }
    while( m/\%lang(?:uage)?\s+(\S+.*)/g)     { 
      my $ls = $1;
      for ($ls =~ m/(\S+)/g){ $l{$_} = 1}; 
      $langpat=join('|',keys %l)}

examples/thesaurusV  view on Meta::CPAN 

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

our ($ori,$ablt,$rblt) ;

my ($bl);
$bl = $ablt if (defined $ablt) && ($ablt =~ /[A-Za-z]+/);
$bl = $rblt if (defined $rblt) && ($rblt =~ /[A-Za-z]+/);

$/='';

my $s;
while(<>){
  chomp;
  if   (/^\%baselang(?:uage)?\s+(\S+)/) { $bl ||= $1;  
     while(m{\%(\S+)}g){ $direct{$1}++}  }
  elsif(/^\%(\S+)/)                     { 
     while(m{\%(\S+)}g){ $direct{$1}++}  }
  elsif(/^#/)                           {   }
  elsif(/^(\S.*)/) {

lib/Biblio/Thesaurus.pm  view on Meta::CPAN 


      print STDERR "Unknown command: '$_'\n\n";

    } else {
      # It's a comment or an empty line: do nothing
    }
  }

  # Redefine the record separator
  my $old_sep = $/;
  $/ = "";

  # The last line wasn't a comment, a command or an empty line, so use it!
  $_ .= <ISO>;

  my $ncommands = $.-1;

  # While there are definitions...
  do {
    # define local variables
    my ($class,$term,$relations);

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.698 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )