Invertir texto con Perl en Unix Gtk3

Como dije y sigo diciendo mientras realice los tutoriales de perl, haré algunos programas o scripts para que vean el funcionamiento de perl en Unix y en este caso Gtk,recuerdan que hice un script para invertir texto usando la terminal

Enlace

Bueno, decidí crearle una GUI en Gtk3,para que vean un ejemplo de lo que aprendemos al principio,solo en la terminal lo podemos implementar en algo mas visible.

Sin GUI

Igual que el script pasado, no puede invertir mucho texto,solo palabras pero ya lo he preparado para que voltee un gran numero de palabras,ya que esta usando


use strict;
use warnings;
use diagnostics;

Y esto quiere decir que esta bien programado,y checa si hay peligro,de todas formas no intenten voltear mucho texto o se les cae la interfaz gráfica (por unos momentos)

Necesitan el modulo Gtk3

Lo instalan por CPAN

Tutorial

cpan

su

install Gtk3

Bueno aquí el código

Enlace

Para ejecutar:



1.Crea un documento de texto en blanco

2.Renombralo comoquieras.pl

3.Dale permisos de ejecución

4.Ejecuta

perl comoquieras.pl

 Eso es todo

Lo puedes modificar a tu gusto,que te diviertas :D