#!/usr/bin/perl print "Content-type: text/html\n\n"; $database = "catalogo"; #just the name of the file $data_location = "/home/.sites/39/site17/web/editor/ceisan/consumibles"; print "CEISAN
\n"; print "
    DIVISION INFORMATICA - CONSUMIBLES

CERRAR

\n"; print " \n"; open(DATABASE , "$data_location/$database"); while () { $row = $_; chop $row; @fields = split (/\|/, $row); $cuentaseparaciones++; print "\n"; $count=0; foreach $fields(@fields) { $campo++; print "\n";} if ($campo == 3){print ">$fields\n";} if ($campo == 4){print "align=center>$fields €\n";} # --------------------------------------------------------- $count++; } print "\n"; $campo=0; } close (DATABASE); $count=0; foreach $split_table_fields (@split_table_fields) { if ($form{$count} ne "") { print "";} $count++; } print "
PRODUCTO CARACTERISTICAS PRECIO
\n"; print "
   
 

CERRAR

   
\n";