#!/usr/bin/perl
#-->cgi:/home/jj/public_html/bin/d8
#-->dir:/tmp/lixo

use strict;
use CGI::Auto;
use utf8;
use encoding "utf8";

CGI::Auto::auto(title    => "test 8: grep #options# #paterns# fixfile | grep #tipo# | ...",
   command  => "grep [%o(option)] [%s(pattern)] /home/jj/corpora-cvs/proverbios/proverbio.utf8.dic"
             . "| grep -w [%c(tipo)]" 
             . "| /usr/local/bin/tabproj -fs=':' 1",
   tohtml   => "enumeration",
   debug    => 1,
   -option  => [ ignore_case    => "-i", not_containing => "-v", "full_word" => "-w"],
   -tipo    => [ adivinhas    => "adiv", 
                 provérbios => "prov", 
                 "provérbios de contrafacção"=> "prov_contra"],
);