3. [Perl Tk] Mysql Manager
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl Tk] Mysql Manager

  • 0 Respuestas
  • 1172 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[+] Result of the query\n");
  67. if ($total eq 0) {
  68. $out->insert("end","\n[+] Not rows returned\n\n");
  69. } else {
  70. $out->insert("end","\n[+] Rows returned : ".$total."\n\n");
  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 »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 3469 		Ú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: 1721 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

 Respuestas: 0
Vistas: 1283 		Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

 Respuestas: 0
Vistas: 1558 		Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

 Respuestas: 0
Vistas: 1423 		Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear