Foro - Perl en Español

por **Stiven42** » 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.

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.004 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

Publicidad

Re: Interfaz para un programa de Perl

Re: Interfaz para un programa de Perl

Re: Interfaz para un programa de Perl

¿Quién está conectado?