Mensajes

Hola usando de ejemplo el siguiente codigo :

Código [Seleccionar] Expandir

#!/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");
};

Mi objetivo es lograr (cosa que aun no se como) imprimir la salida estandar STDOUT de algun comando hacia el widget Text (texto), pero cuando intento digase con system("ps aux") el me imprime obviamente en la terminal que es el verdadero flujo de salida estandar STDOUT, y en el widget me imprime el valor que dicho comando devuelve, ya sea cero o uno... yo no quiero guardar en un texto primero la impresion de cierto comando y luego abrir ese texto he imprimirlo en mi widget, yo quiero saber si hay alguna via de dirigir la salida estandar a un widget texto.

Noviembre 19 aqui.   

Si corazon los scripts de perl, terminan en extension .pl.

En los scripts de Linux, debes indicar al inicio de linea cual sera el interprete a usar para ejecutar dicho script, en el caso de perl pues :

#!/usr/bin/perl

Aunque si te preocupa la portabilidad (Suponte que quieres correr el mismo script pero en Windows). Puedes obviar esta linea ya que en Windows no se usa.

sobre cual de todos los 'perls' usar... Pues simple, necesitas el interprete que siempre sera un ejecutable, los ejecutables en Linux suelen guardarse en :

/usr/bin
/bin
/usr/local/bin

En el caso de perl, siendo que la mayoria de distros ya lo traen, por lo general casi siempre esta ubicado en /usr/bin   pero en caso de que tu bajes el codigo fuente de perl y lo compiles, al menos que le indiques una ruta a la hora de compilar, por defecto se instalaria en /usr/local/bin.

Necesitas indicar la ubicacion del interprete ejecutable, que siempre estara dentro de una carpeta bin, no puedes indicarle un archivo de configuracion u otra cosa, que es lo que encontramos en /etc/perl.

Donde debes guardar tu script perl creado? donde gustes... o donde sea, ya sea en tu /home la ubicacion donde guardes el script no tiene importancia, lo importante es que en la cabecera pongas la ubicacion correcta del interprete perl.

Para ejecutar los scripts de perl, sencillamente haces :

bash$ perl script.pl

O le das permisos de ejecucion al scriptcito

bash$ chmod +x script.pl

Y lo ejecutas :

bash$  ./script.pl

Ciertamente los scripts de Perl son interpretados por Perl.

Pero si quieres integrarle un modulo que no creaste tu junto a tu aplicacion, deberas compilarlo.

Te daras cuenta si bajas un modulo de CPAN, que trae su Makefile.PL

Si te sirve este.

http://www.ayudauni.net/

Yo lo uso y lo encuentro decente

Hola, aqui les facilito un Perl Script creado por mi    este scripcito lo que hace es conectarse a Mysql y hacer unas subconsultas simples, pueden editarlo a su preferencia o mejorarlo
El script consta de un programa principal y 1 modulo, dicho modulo contiene funciones classes con sus respectivos objetos.

Besos   

Programa Principal :::

Código [Seleccionar] Expandir

#!/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;

Modulo que lo acompana  ::

Código [Seleccionar] Expandir

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;

Emacs o Gedit? no se si van para plataforma Windows, pero no imagino a Stallman portando su querido Emacs a Windows....

Obviamente el necesita el ActivePerl ya que este es el interprete de Perl para Windows. SIn activeperl donde va a ejecutar sus codigod de perl?????

El ActivePerl es solo el interprete Perl pa Windows, obviamente el editor es otra cosa, puedes usar como te dicen aca Notepad, pero ya que lo quieres con letritas de colores que sea portable, no sabria indicarte un editor, se del IDE de Eclipse Perl, pero no se si porta en colores las letritas como pides.

He creado un scriptcito Perl con orientacion OOP ..  soy novata con Perl todavia    mi scriptcito en cuestion funciona excepto la opcion 5 que me muestra todassss las columnas de una tabla que yo le indique, pongo el nombre de la tabla y se queda buscando y buscando y nunca me responde    no se que onda yo necesito ver que tienen las tablas dentro. Este es mi scriptcito.

Código [Seleccionar] Expandir

#!/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);

Este es el modulito que lo acompana.

Código [Seleccionar] Expandir

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;

Pues hasta lo que yo tengo entendido.... uno mismo es quien controla sus puertos del SO.

Sino ejecutas una aplicacion que asi lo requiera el puerto no se abrira... no creo necesario como dice el amigo aca el uso de un ADD On, cuando dentro del mismo Linux cualquier distribucion tienes iptables, services y los tcpwrappers

Puedes abrir el puerto 22 ejecutando ssh, y puedes bloquear quien entra por este o quien accesa con iptables, o mas facil con los tcpwrappers.

He iniciado un simple y extenso script de perl que hace consultas y subconsultas a Mysql, Postgresql y proximamente Oracle

El script en si es basicamente para usuarios que no saben casi nada de SQL y esto les puede server, Bien, el script iba a ser demasiado extenso para 1 solo archivo, asi que lo dividi en varios modulos, por el momento solo publicare el script completo hacia Mysql ya que en el modulo Postgresql me faltan algunas subconsultas que completar y testear en mi PC.

He aqui el main.pl del script:

Código [Seleccionar] Expandir

#!/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;

Bien Como dije divide en modulos el programita solo publicare los modulos de Mysql, ya que los de Postgresql aun estan incompletos aunque los pocos que estan habilitados funcionan

Primer modulo de Mysql:

Código [Seleccionar] Expandir

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;


Segundo Modulo del Mysql;

Código [Seleccionar] Expandir

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;

La parte de Mysql esta practicamente completa a mi entender a lo mejor estoy obviando algo, pero por el momento cumple los objetivos de donde trabajo, varios empleados estan usando este script para hacer subconsultas y consultas rapidas a Mysql y Postgresql.

Obvio el modulo que he creado de Postgresql ya que aun esta incompleto pero las pocas funciones que hace funcionan dicho scriptcito esta siendo muy utilizable por ciertos empleados donde laboro, ya que se sienten a gusto con el que me han pedido que haga el mismo script pero version grafica para los usuarios de Windows, y he estado creando el mismo software en version grafica con Tk. Vere como me va hasta ahora muy positivo.

Espero que a alguien le sirva.