<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/local/bin/perl

use CGI qw(:all);

=head1 NAME 
autores.pl - scrip para pesquisa de autores nas paginas do ...
=cut

# Aqui vai um form como pretendido
print header, start_html('consulta','jbb@di.uminho.pt');
print h1('consulta');
print start_form, 
      'nome',textfield(-size=&gt;60, -name=&gt;'n'), br
      'isa',textfield(-size=&gt;60, -name=&gt;'i'),
      submit,
      endform,br;

# Como processar este form?
# Se ha' parametros entao vamos trata-los...
if (param){
  mostre(param('n'), param('i'));
  print h2('Bem jogado!');
}

sub mostre{
  my ($a,$b) = @_;
  
  $/='VAR1';
  for (`agrep -d VAR1 'nome.*$n;isa.*$i' *.dic`) {
    chomp;
    print li,pre($_);
  }
}

print end_html;
exit 0;	

</pre></body></html>