Foro - Perl en Español

Publicado: **2016-09-14 10:30 @479**

Buenos días. Espero no haber creado un tema que ya hayan solucionado con anterioridad.

Llevo ya un par de años trabajando con Perl y creado diferentes aplicativos que siempre corro en símbolos del sistema o a través de un ejecutable que hago por medio del módulo PAR::Packer.

Lo que ahora quiero es crear interfaz para todos mis programas, pero nunca lo he hecho antes. He buscado por Internet y me dan muchas opciones: pasar el código a Java, crear paquetes con aplicativos HTML, etc., pero la verdad no sé por dónde empezar.

¿Me podrían dar consejo o una guía de por dónde empezar? Muchas veces me ha ocurrido que aprendo la forma difícil de hacer las cosas y meses después descubro una forma mucho más sencilla de hacerlo.

Muchas gracias.

Publicado: **2016-09-14 16:16 @719**

Una forma de verlo es mirando aplicaciones que ya tienen un interfaz gráfico, como por ejemplo

Padre, usando la librería wxWidgets
Imagen

LedgerSMB, un sistema de contabilidad y ERP que usa un navegador web.
Imagen

PACManager, usando GTK+ (este lo uso todos los días)
Imagen

Hay otros entornos gráficos que son muy interesantes, como por ejemplo, Prima (en MetaCPAN)
Imagen

El venerable Tk/Perl
Imagen

Gtk2,3/Perl

Otra opción es usar Firefox como herramienta gráfica, y programarla con el sistema XUL. La ventaja que tienes es que no tienes que instalar nada (solo es necesario que el usuario tenga instalado un navegador compatible). Perl tiene mucho soporte para esto.

Publicado: **2016-09-16 11:53 @536**

¡¡¡Muchas gracias!!!
Voy a revisar las opciones y les comento cómo me va

Publicado: **2016-11-30 14:47 @658**

explorer escribiste:El venerable Tk/Perl

Yo utilizo Tk/Perl para mis desarrollos. Te dejo un script que te permite seleccionar archivos .xls/.xlsx de un directorio y hacer algo con la ruta completa de los archivos seleccionados.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use Tk;
use Tk::HList;
use utf8;
 
system ("cls");
 
my ($directorio, @archivos); 
 
#############Elementos que conforman las ventanas#########################################################################
 
my $FormaPrincipal = MainWindow->new(-title=>"Interfaz Gráfica");
my $FrameIzquierda = $FormaPrincipal->Frame(-borderwidth => 3, -relief => 'raised');
my $FrameCentro = $FormaPrincipal ->Frame(-borderwidth => 3, -relief => 'raised');
my $FrameDerecha = $FormaPrincipal ->Frame(-borderwidth => 3, -relief => 'raised'); 
 
$FrameIzquierda ->pack(-side => 'left', -expand => 1, -fill => 'both');
$FrameCentro ->pack(-side =>'left', -expand => 1, -fill => 'both');
$FrameDerecha ->pack(-side => 'left',  -expand => 1, -fill => 'both');
 
$FrameIzquierda -> Button(
        -text => "SELECIONA\nDIRECTORIO",
        -command => sub{ 
                                                $directorio =$FormaPrincipal->chooseDirectory(
                                                        -initialdir => 'P:\Gerencia de Mercado\Restringido\MONITOREO DEL MM',
                                                        -title => 'Elija Driectorio'
                                                );
 
                                                if (defined($directorio)){
                                                        opendir(DIR, $directorio);
                                                        undef(@archivos);
                                                        foreach(readdir(DIR)){
                                                                if ($_=~ m/\.xls+$/ or $_ =~ m/\.xlsx+$/){
                                                                        push (@archivos,$_);
                                                                }
                                                        }
                                                        close(DIR);
                                                }
                                        },
        -width => 10,
        -height => 5,
        -foreground => "red",
        -background => "blue",
)->pack(-expand=> 1, -fill=> "both", -side => "top" );
 
my $Listbox = $FrameIzquierda->Scrolled("Listbox",
    -background => "white",
    -scrollbars => "se",
    -height => "20",
    -selectmode => "extended",
    -listvariable => \@archivos
)->pack(-side => "top", -expand=> 1, -fill=> "both");
 
$FrameIzquierda -> Button(
        -text => "Analiza\nArchivos",
        -command => \&Analisis,
        -height => 5
)->pack(-side => "left" );
 
my $FrameBotones = $FrameDerecha -> Frame(
        -borderwidth => 3, 
        -relief => 'sunken'
)->pack(-side => 'top', -fill=> 'both');
 
 
$FrameBotones -> Button(
        -text => "Salir",
        -command => sub{exit()},
        -height => 5,
        -width => 40
)->grid(-column => 0, -row=> 7, -sticky=>'nsew',-columnspan=>'3');      
 
MainLoop;
 
#################################################################################################################
 
sub Analisis{
        
        my @indices = $Listbox-> curselection;
        if (scalar(@indices)!=0){
                
                foreach my $indice(@indices){
                        my $archivo = $archivos[$indice];
                        my $rutacompleta = $directorio.'/'.$archivo;
                        print "$rutacompleta\n";
                }
 
        }
        else{
 
                $FormaPrincipal->messageBox(-title => 'Error', 
        -message => 'Seleccione Archivo', 
        -type => 'Ok');
                
        }               
 
}
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Éxitos.

Foro - Perl en Español

Interfaz para un programa de Perl

Interfaz para un programa de Perl

Re: Interfaz para un programa de Perl

Re: Interfaz para un programa de Perl

Re: Interfaz para un programa de Perl