#!/usr/bin/perl
use strict;
use Tk;
use Tk::NoteBook;

my $ventana = MainWindow->new();
$ventana->minsize(qw(700 400));
$ventana->maxsize(qw(700 400));
$ventana->configure(-title => "Proyecto");

my $nota = $ventana->NoteBook(-background => 'white')->pack(-fill => 'both', -expand => 1);
my $pestana = $nota->add('Uno', -label => "Uno")->pack();
my $pestana1 = $nota->add('Dos', -label => "Dos")->pack();
my $pestana2 = $nota->add('Tres', -label => "Tres")->pack();

my $frama = $pestana->Frame->pack();
$frama->Label(-text => " ")->pack();
my $texto = $frama->Scrolled('Text', -width => 80, -height => 20, -background => 'white')->pack();
$frama->Button(-text => "Ver", -borderwidth => 4, -relief => 'raised', -width => 20, -command => \&proceso)->pack(-side => 'left');
$frama->Button(-text => "Limpiar", -borderwidth => 4, -relief => 'raised', -width => 20, -command => \&proceso1)->pack(-side => 'right');

MainLoop();

sub proceso {
my $a = system("ps aux > archivo.txt");
open(AA,"<archivo.txt");
my @b = <AA>;
$texto->insert("end", "@b");
close(AA);
};

sub proceso1 {
system("rm archivo.txt");
$texto->delete('0.0', "end");
};

#!/usr/bin/perl
use strict;
use warnings;
use lib "/home/marian";
use dependencia;
our @todo = qw(peticion);

my $a = $todo[0];

sub Menu {
do {
print STDOUT "/\/\/\/\/\/\ MYSQL CONECTOR /\/\/\/\/\/\/\/\/ \n";
print STDOUT "----------------------------------------------\n";
print "1 - Ver Base de datos disponible\n";
print "2 - Ver Tablas Disponibles\n";
print "3 - Ver registros de una Tabla\n";
print "4 - Salir\n";

chomp (my $respuesta = <STDIN>);

if ($respuesta == 1) {
	eval $a->db;
}
elsif ($respuesta == 2) {
	eval $a->tablas;
}
elsif ($respuesta == 3) {
	eval $a->registros;
}
elsif ($respuesta == 4) {
	exit(1);
}
elsif ($respuesta eq "") {
	print "Usted debe seleccionar algo\n";
	return Menu();
}
} while (1);
} & Menu;

exit 0;

package dependencia;
use strict;
use Mysql;
require "prueba.pl";

sub main {
my $conexión = Mysql->connect("localhost", "primaria", "marian", "123") || die "$!\n";
$conexión->selectdb("primaria") or return "Error";
};

sub peticion::db {
do main();
if (!(main)) {
	print "Error:: No se pudo conectar\n";
	exit(1);
}
else {
my @a = main->listdbs();
	print "La Base de datos disponibles son ::   ";
	print "@a\n";
}
};

sub peticion::tablas {
do main();
if (!(main)) {
	print STDOUT "Error:: No se pudo conectar\n";
	exit(1);
}
else {
my @a = main->listtables();
	print "Las Tablas Disponibles son ::  ";
	print "@a\n";
}
};

sub peticion::registros {
do main();
if (!(main)) {
	print STDOUT "Error:: No se pudo conectar\n";
	exit(1);
}
else {
	print STDOUT "Indique el nombre de la Tabla ::  ";
	my $respuesta = <STDIN>;
	chop $respuesta;
my $a = main->query("SELECT * FROM $respuesta;");
	print "Los Registros de $respuesta son ::  \n";
while ( my @b = $a->fetchrow) {
	print "@b\n";
}
}
};

return 0;

#!/usr/bin/perl
use strict;
use warnings;
use prueb;
our $respuesta;
our @todo;
our @peti = qw(peticion tabla tablita tables);

print "-------- Mysql Consultas --------\n";
print "-------- Autor : M. ---------\n\n";
print "Inserte por orden y separados por espacio <NO ENTER> :\n *Nombre Host :\n *Nombre Base de datos :\n *Nombre Usuario :\n *Contrasena de Usuario :\n ";
my $opcion = <STDIN>;
chomp($opcion);
@todo = split(/\s+/, $opcion);
print "\n\n";
do {
print "1-Eliminar Tabla\n 2-Crear Tabla\n 3-Ver Listado Tablas\n 4-Ver Listado DB\n 5-Ver Registros Tabla
6-Salir\n";
print "Inserte su peticion\n";
$respuesta = <STDIN>;
chomp($respuesta);

if ($respuesta == 1) { eval $peti[1]->eliminar; }
elsif ($respuesta == 2) { eval $peti[2]->crear; }
elsif ($respuesta == 3) { eval $peti[3]->ver; }
elsif ($respuesta == 4) { eval $peti[3]->db; }
elsif ($respuesta == 5) { eval $peti[3]->registro; }
elsif ($respuesta == 6) { exit(1); };

} while (1);

exit(0);

package prueb;
use strict;
use Mysql;
require "prueb.pl";
our $respuesta;
our @todo;

sub main {
my $conexión = Mysql->connect($todo[0], $todo[1], $todo[2], $todo[3]) or die "$!\n";
};

sub peticion::query {
& main();
main->selectdb($todo[1]);
main->query($respuesta) || die "$!\n";
};

sub tabla::eliminar {
print "Inserte el nombre de la tabla a Eliminar : ";
my $respuesta = <STDIN>; chomp($respuesta);
& main();
main->selectdb($todo[1]);
my $peticion = main->query("drop table if exists $respuesta;") || die "$!\n";
print STDOUT "Ejecuccion Realizada satisfactoriamente\n";
};

sub tablita::crear {
print "Inserte la sentencia SQL a ingresar\n";
my $respuesta = <STDIN>; chomp($respuesta);
do main;
main->selectdb($todo[1]);
my $peticion = main->query($respuesta) || die "$!\n"; 
print STDOUT "Ejecuccion Realizada satisfactoriamente\n";
};

sub tables::ver {
do main;
my @tablas = main->listtables;
print "Las tablas disponibles son @tablas\n";
};

sub tables::db {
& main();
my @datas = main->listdbs;
print "Las Base de datos disponibles en su esquema son : \n @datas\n";
};

sub tables::registro {
print "Inserte el nombre de la tabla\n";
my $respuesta = <STDIN>; chop $respuesta;
do main;
main->selectdb($todo[1]);
my $peticion = main->query("SELECT * FROM $respuesta;");
my @peti = $peticion->fetchrow();
print "Los datos de dicha tabla son \n @peti\n";
};

return 0;

#!/usr/bin/perl 
 
 use strict; 
 use warnings; 
 use DBI; 
 use Mysql; 
 use mysql1; 
 use msql1; 
 use pgs1; 
 use oracle1; 
 
 
 printf " ***************************************\n "; 
 printf " **************  Genesix ***************\n "; 
 printf " ********** Version 1.0 **************\n "; 
 printf " ********* Autor:: Marian S. *********\n" ; 
 printf " Escriba la base de datos que le gustaria utilizar\n"; 
 printf "\n"; 
 printf " 1 - Mysql, 2 -Postgresql, 3 - Oracle  :  Seleccione un numero para continuar  "; 
 my $opcion = <STDIN> ; 
 chomp $opcion; 
 if ($opcion eq 1) {  Mysql(); } 
 elsif ($opcion eq 2) { Postgresql(); } 
 elsif ($opcion eq 3) { Oracle(); } 
 
 sub Mysql { 
 my $hostname = "localhost"; 
 printf "Bienvenido/as al cliente de consultas Mysql :  "; 
 printf "Indique que quiere hacer\n"; 
 printf " 1 - Crear una tabla\n"; 
 printf " 2 - Eliminar una tabla\n"; 
 printf " 3 - Crear un backup de una base de datos y todas sus tablas\n" ; 
 printf " 4 - Otorgar permisos a una base de datos a un usuario\n" ; 
 printf " 5 - Eliminar una Base de Datos\n"; 
 printf " 6 - Modificar/Alterar una tabla\n" ; 
 printf " 7 - Remover permisos de una base de datos a un usuario\n"; 
 printf " 8 - Crear una base de datos\n"; 
 my $query = <STDIN>; 
 chomp $query; 
 if ($query eq 1) { &mysql1::mysql2(); } 
 elsif ($query eq 2) { &mysql1::mysql3(); } 
 elsif ($query eq 3) { &mysql1::mysql4(); } 
 elsif ($query eq 4) { &mysql1::mysql5(); } 
 elsif ($query eq 5) { &mysql1::mysql6(); } 
 elsif ($query eq 6) { &msql1::msql2(); } 
 elsif ($query eq 7) { &msql1::msql3(); } 
 elsif ($query eq 8) { &msql1::msql4(); } 
 } ; 
 
 sub Oracle { 
 printf "Bienvenido/a al cliente de consultas Oracle : "; 
 printf "Especifique que desea hacer\n"; 
 printf " 1 - Crear una tabla\n"; 
 printf " 2 - Eliminar una tabla\n"; 
 printf " 3 - Crear un backup de una base de datos y todas sus tablas\n" ; 
 printf " 4 - Otorgar permisos a una base de datos a un usuario\n" ; 
 printf " 5 - bla bla\n"; 
 my $query = <STDIN>; 
 chomp $query; 
 if ($query eq 1) { &oracle1::oracle2(); }; 
 
 } ; 
 
 sub Postgresql { 
 printf "Bienvenido/a al cliente de consultas Postgresql : "; 
 printf "Especifique que desea hacer\n"; 
 printf " 1 - Crear una tabla\n"; 
 printf " 2 - Eliminar una tabla\n"; 
 printf " 3 - Crear un backup de una base de datos y todas sus tablas\n" ; 
 printf " 4 - Otorgar permisos a una base de datos a un usuario\n" ; 
 printf " 5 - bla bla\n"; 
 my $query = <STDIN>; 
 chomp $query; 
 if ($query eq 1) { &pgs1::pgs2(); }; 
 
 } ; 
 
 1;

package mysql1; 
 
 my $hostname = "localhost"; 
 
 sub mysql2 { 
 printf "Indique el nombre de la base de datos a usar : "; 
 my $database = <STDIN>; 
 chomp $database; 
 printf "Nombre de la tabla a crear : " ; 
 my $table = <STDIN>; 
 chomp $table ; 
 printf "Inserte los registros que tendra la nueva tabla : Ejemplo: 'nombre varchar(30), apellidos varchar(30), edad int;' : "; 
 my $registro = <STDIN>; 
 chomp $registro; 
 printf "Indique el nombre de su usuario :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 chomp $pass; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("create table $table ($registro);") or die ("$!\n"); 
 }; 
 
 sub mysql3 { 
 printf "Indique el nombre de la base de datos a usar : "; 
 my $database = <STDIN>; 
 chomp $database; 
 printf "Nombre de la tabla a eliminar : "; 
 my $delete = <STDIN>; 
 chomp $delete ; 
 printf "Indique el nombre de su usuario :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 chomp $pass; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("drop table if exists $delete;") or die ("$!\n"); 
 }; 
 
 sub mysql4 { 
 my $backup = "/usr/bin/mysqldump"; 
 my $HOME = "~" ; 
 my $archivo = "backup.sql"; 
 my $directorio = "$HOME/backup" ; 
 printf "Indique el nombre de su usuario :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 chomp $pass; 
 printf "Indique el nombre de la DB de la cual se hara el backup  :  " ; 
 my $table = <STDIN>; 
 chomp $table; 
 my $ubicacion = `cd $directorio 2>/dev/null || mkdir -p ${directorio} && cd $directorio && $backup --opt --user=$user --password=$pass $table > $archivo && tar -cvf $archivo.tar *.sql && compress $archivo.tar && rm *.sql` ; 
 sprintf $ubicacion ; 
 printf "El backup fue creado satisfactoriamente, Backup guardado en $directorio\n"; 
 }; 
 
 sub mysql5 { 
 printf "Indique el nombre de su usuario :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 printf "Indique el nombre del usuario que sera privilegiado : "; 
 my $user1 = <STDIN>; 
 chomp $user1; 
 printf "Indique el nombre de la DB a la cual se le dara privilegios a dicho usuario : "; 
 my $db = <STDIN>; 
 chomp $db; 
 printf "Privilegios a otorgar ::: \n"; 
 printf "1 - Garantizar todos los privilegios (Grant All)\n"; 
 printf "2 - Garantizar solo permisos de crear, eliminar, actualizar (Grant usage, create, update, eliminar)\n"; 
 printf "3 - Deseo introducir los permisos que este usuario tendra : "; 
 my $eleccion = <STDIN>; 
 chomp $eleccion; 
 if ($eleccion eq 1) { my $conexión = Mysql->connect("$hostname", "$db", "$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("grant all privileges on $database.* to $user1@$hostname identified by $pass with grant option;") or die ("$!\n"); 
 } 
 elsif ($eleccion eq 2) { my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("grant usage, create, update, drop on $database.* to $user1@$hostname identified by $pass with grant option;") or die ("$!\n"); } 
 elsif ($eleccion eq 3) { printf "Introduzca los permisos a garantizar separados por comas y con espacio Ejemplo:: drop, update, alter  sin \ entrecomillar la palabra, ni finalizar con punto y coma "; 
 my $opccion = <STDIN>; 
 chomp $opccion; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("grant $opccion on $database.* to $user1@$hostname identified by $pass with grant option;") or die ("$!\n"); 
 } 
 }; 
 
 sub mysql6 { 
 printf "Indique el nombre de la base de datos a Eliminar : "; 
 my $database = <STDIN>; 
 chomp $database; 
 printf "Indique el nombre de su usuario :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 chomp $pass; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("drop database $database;") or die ("$!\n"); 
 }; 
 
 1;

package msql1; 
 
 my $hostname = "localhost"; 
 
 sub msql2 { 
 printf "Indique el nombre de su usuario :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 chomp $pass; 
 printf "Indique el nombre de la base de datos donde esta la tabla : "; 
 my $database = <STDIN>; 
 chomp $database; 
 printf "Indique Nombre de la Tabla a utilizar : " ; 
 my $table = <STDIN>; 
 chomp $table ; 
 printf "Que desea modificar en la Tabla\n"; 
 printf " 1 - Agregar un registro, 2 - Modificar un registro, 3 - Eliminar un registro ; Seleccione un numero para continuar : "; 
 my $opcion = <STDIN>; 
 chomp $opcion; 
 if ($opcion eq 1) { Add(); } 
 elsif ($opcion eq 2) { Mod(); } 
 elsif ($opcion eq 3) { Drop(); } 
 sub Add { 
 printf "Introduzca el nuevo dato que desea agregar Ex: 'email varchar(30), edad int' insertar datos no encapsular entre comillas \ 
 no colocar punto y coma al final tampoco : "; 
 my $data = <STDIN>; 
 chomp $data; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("alter table $table add ($data);") or die ("$!\n"); 
 sub Mod { 
 printf "Indique el registro a modificar Ex: columna disponible - nombre varchar(20) - Modificamos ::  'nombre varchar(30)' - Donde el registro nombre fue cambiado la capacidad de data a guardar con varchar(30)' \ Introducir datos sin entrecomillar y sin punto y coma al final : "; 
 my $seleccion = <STDIN>; 
 chomp $seleccion; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("alter table $table modify $seleccion;") or die ("$!\n"); 
 } 
 sub Drop { 
 printf "Introduzca la palabra/columna que desea Eliminar de la Tabla , Ex: nombre : "; 
 my $data = <STDIN>; 
 chomp $data; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("alter table $table drop $data;") or die ("$!\n"); 
 } 
 } 
 }; 
 
 sub msql3 { 
 printf "Indique el nombre de su usuario (ROOT para poder eliminar permisos) :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 chomp $pass; 
 printf "Indique el nombre del usuario al cual se le removeran los privilegios : "; 
 my $user1 = <STDIN>; 
 chomp ($user1); 
 printf "Indique el nombre de la base de datos : "; 
 my $database = <STDIN>; 
 chomp $database; 
 printf "Indique Nombre de la Tabla (por motivos de conexión) : " ; 
 my $table = <STDIN>; 
 chomp $table ; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("revoke all privileges on $database.* from $user1@$hostname;") or die ("$!\n"); 
 }; 
 
 sub msql4 { 
 printf "Indique el nombre de su usuario  :  "; 
 my $user = <STDIN>; 
 chomp $user; 
 printf "Indique su contraseña  :  " ; 
 my $pass = <STDIN>; 
 chomp $pass; 
 printf "Indique el nombre del usuario al cual se le removeran los privilegios : "; 
 my $user1 = <STDIN>; 
 chomp ($user1); 
 printf "Indique el nombre de la base de datos : "; 
 my $database = <STDIN>; 
 chomp $database; 
 printf "Indique Nombre de la Tabla (por motivos de conexión) : " ; 
 my $table = <STDIN>; 
 chomp $table ; 
 my $conexión = Mysql->connect("$hostname","$database","$user","$pass") or die ("$!\n") ; 
 my $select = $conexión->selectdb("$database") or die ("$!\n"); 
 my $peticion = $conexión->query("create database $database;") or die ("$!\n"); 
 }; 
 
 1;