[perl] Ayuda sobre system

[Claudia Arenas]

Hola amigos ante todo felicitaciones por tan maravilloso
servicio..........

Soy nueva en la lista y necesito que me ayuden a solucionar un
problemita  amigos de perl.........

Tengo la siguiente duda, de antemano les informo que no soy muy experta
en perl, pero estoy aprendiendo:
Estoy realizando un proyecto de colocar las bases de datos de las
bibliotecas por internet; utilizo wwwisis, perl version 4 (la libreria
de "cgi-lib.pl"), e internet information server.  Tengo el siguiente
problema; estoy relizando un proceso en perl en el cual tengo algo como
lo siguinte:

#!f:\proyisis\perl
require "cgi-lib.pl";
&ReadParse(*input);
$n = $input{'entrada'}; 
$c1='wwwi32 ';         (la herramienta wwwisis)
$c2='"bool='.$n.'"';   (variable entrada) 
$c4=' pft=@fbprueba.pft '; (formato con datos)
$c7=' pft=@sindatos.pft '; (formato sin datos) 
$c5='db=norte\norte ';     (base de datos) 
$regresar = "<a
href=http://www.senamed.edu.co/biblioteca/bdnorte.htm>Regresar al
formulario de Búsqueda"; 
print "$regresar";
print "<hr>";
if (tal cosa???)     {                           (control que deseo 
    system("$c1$c5$c2$c7$");            realizar para poder  
    }                                                  invocar los dos
else {                                                que me deben salir
      system("$c1$c5$c2$c4$");	       si hay datos o no)  
       }                           
exit;

Lo que necesito es poder realizar un control (tal cosa???)
que me realice por el si un system y por el no el otro system, que lo
unico que tienen de diferente es el formato sea $c4 o $c7.
Con un solo system me funciona (system("$c1$c5$c2$c4$").

Por favor demen una ayudita, pues relativamente no se que
hacer............................................

Espero que me hayan entendido.................... 
Gracias a todos por su valiosa colaboración. 

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl