3. [Perl Tk] Mysql Manager
Páginas: [1]   Ir Abajo
« anterior próximo »

[Perl Tk] Mysql Manager

  • 0 Respuestas
  • 1517 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl Tk] Mysql Manager

  • en: Julio 03, 2011, 10:02:10 pm
Un simple mysql manager en version grafica

Código: Perl
  1. #!usr/bin/perl
  2. #Mysql Manager Tk (C) Doddy Hackman 2011
  3. #ppm install http://www.bribes.org/perl/ppm/DBI.ppd
  4.  
  5. use Tk;
  6. use Tk::ROText;
  7. use DBI;
  8. use Win32;
  9.  
  10. if ($^O eq 'MSWin32') {
  11. use Win32::Console;
  12. Win32::Console::Free();
  13. }
  14.  
  15. my $nave = MainWindow->new();
  16.  
  17. $nave->title("Mysql Manager");
  18. $nave->geometry("200x170+20+20");
  19. $nave->resizable(0,0);
  20.  
  21. $nave->Label(-text=>"Host : ",-font=>"Impact1")->place(-x=>10,-y=>10);
  22. my $host = $nave->Entry(-width=>20,-text=>"localhost")->place(-x=>60,-y=>13);
  23.  
  24. $nave->Label(-text=>"User : ",-font=>"Impact1")->place(-x=>10,-y=>40);
  25. my $user = $nave->Entry(-width=>20,-text=>"root")->place(-x=>60,-y=>43);
  26.  
  27. $nave->Label(-text=>"Pass : ",-font=>"Impact1")->place(-x=>10,-y=>70);
  28. my $pass = $nave->Entry(-width=>20)->place(-x=>60,-y=>73);
  29.  
  30. $nave->Button(-text=>"Connect",-width=>13,-command=>\&now)->place(-x=>60,-y=>120);
  31.  
  32. MainLoop;
  33.  
  34. sub now {
  35.  
  36. my $host = $host->get;
  37. my $user = $user->get;
  38. my $pass = $pass->get;
  39.  
  40. $info = "dbi:mysql::".$host.":3306";
  41.  
  42. if (my $enter = DBI->connect($info,$user,$pass,{PrintError=>0})) {
  43. $nave->destroy;
  44. my $man = MainWindow->new();
  45. $man->title("Mysql Manager (C) Doddy Hackman 2011");
  46. $man->geometry("350x290+20+20");
  47. $man->resizable(0,0);
  48. $man->Label(-text=>"Query : ",-font=>"Impact1")->place(-x=>10,-y=>10);
  49. my $ac = $man->Entry(-width=>30)->place(-x=>70,-y=>15);
  50. $man->Button(-width=>8,-text=>"Execute",-command=>\&tes)->place(-x=>267,-y=>13);
  51. my $out = $man->ROText(-width=>44,-height=>15)->place(-x=>13,-y=>55);
  52.  
  53.  
  54. sub tes {
  55. my $ac = $ac->get;
  56. $re = $enter->prepare($ac);
  57. $re->execute();
  58. my $total = $re->rows();
  59.  
  60. my @columnas = @{$re->{NAME}};
  61.  
  62. if ($total eq "-1") {
  63. $out->insert("end","\n[-] Query Error\n");
  64. next;
  65. } else {
  66. $out->insert("end","\n<ul class="bbc_list"><li type="square"> Result of the query\n");[/li][/list]
  67. if ($total eq 0) {
  68. $out->insert("end","\n</li><li type="square"> Not rows returned\n\n");[/li][/list]
  69. } else {
  70. $out->insert("end","\n</li><li type="square"> Rows returned : ".$total."\n\n");[/li][/list]
  71. for(@columnas) {
  72. $out->insert("end",$_."\t");
  73. }
  74. $out->insert("end","\n\n");
  75. while (@row = $re->fetchrow_array) {
  76. for(@row) {
  77. $out->insert("end",$_."\t");
  78. }
  79. $out->insert("end","\n");
  80. }}}}
  81. } else {
  82. Win32::MsgBox("Error in the connection",0,"Mysql Manager");
  83. }}
  84.  
  85. # ¿ The End ?
  86.  

Algunas imagenes


http://doddyhackman.webcindario.com/images/my1.jpg


http://doddyhackman.webcindario.com/images/my2.jpg


Eso es todo
« Última modificación: Julio 17, 2011, 03:41:53 am por Sthefano02 »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 5315 		Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

 Respuestas: 1
Vistas: 3470 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

 Respuestas: 0
Vistas: 4364 		Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

 Respuestas: 0
Vistas: 2604 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

 Respuestas: 0
Vistas: 2596 		Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear