#!/usr/bin/env perl
use strict;
use warnings;
use URI;
use CGI qw(:standard);
use DBI;
# Configura la conexión a la base de datos SQLite
my $dbh = DBI->connect("dbi:SQLite:dbname=../productos.db", "", "");
$dbh->{RaiseError} = 1; # Habilita mensajes de error en caso de problemas
# Crea la tabla si no existe
$dbh->do(q{
CREATE TABLE IF NOT EXISTS productos (
id_producto INTEGER PRIMARY KEY,
Descripcion TEXT,
Cantidad INTEGER,
proveedor TEXT
)
});
# Manejo de la solicitud POST
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
my $id_producto = param('id_producto');
my $Descripcion = param('Descripcion');
my $Cantidad = param('Cantidad');
my $proveedor = param('proveedor');
# Inserta los datos en la base de datos
my $sth = $dbh->prepare(q{
INSERT INTO productos (id_producto, Descripcion, Cantidad, proveedor)
VALUES (?, ?, ?, ?)
});
$sth->execute($id_producto, $Descripcion, $Cantidad, $proveedor);
}
# Genera el formulario HTML
print header();
print <<'END_MESSAGE';
Demo3
END_MESSAGE