Foro - Perl en Español

por **BigBear** » 2012-04-24 12:35 @566

Hola, estaba practicando el manejo de tablas mediante Tk y llegué a un punto en el que no sé cómo
mostrar el valor entero.

El problema está en la función show_cells(), la cual muestra solo los números. Mi idea es que muestre el valor completo. Lo he intentado mostrando con $_ pero no se muestra.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
use Tk;
use Tk::Table;
my $cols = 10;
my $rows = 20;
my %slct;
 
# ------------------------------------------------------------------------
 
sub show_cells {
        print "Selected Cells: ";
        foreach ( sort {$a <=> $b} (keys %slct)) {
        #################################################Aca esta la duda
        printf "%d,%d ",split (/\./,$_);
 
        }
        print "\n";
}
 
# ------------------------------------------------------------------------
 
sub toggle_slct {
        my ($w, $t) = @_;
        my ($row, $col) = $t->Posn( $w );
        my $k = sprintf "%d.%02d",$row,$col;
        if ($slct{$k}) {
                $w->configure(-background => 'white');
                print "Row: $row Col: $col unselected\n";
                delete($slct{$k});
        } else {
                $w->configure(-background => 'grey');
                print "Row: $row Col: $col selected\n";
                $slct{$k} = 1;
        }
}
 
# ------------------------------------------------------------------------
 
#
# create the main window and frame
#
my $mw = new MainWindow();
my $tableFrame = $mw->Frame(-borderwidth => 2,
                            -relief => 'raised')->pack;
#
# allocate a table to the frame
#
my $table = $tableFrame->Table(-columns => 8,
                               -rows => 10,
                               -fixedrows => 1,
                               -scrollbars => 'se',
                               -relief => 'raised');
#
# column headings
#
foreach my $c ( 1 .. $cols) {
        my $hdr = "Row " . $c;
        my $tmp = $table->Label(-text => $hdr,
                                -width => 6,
                                -relief => 'raised');
        $table->put( 0, $c, $tmp );
}
#
# populate the cells and bind an action to each one
#
foreach my $r ( 1 .. $rows ) {
        foreach my $c ( 1 .. $cols ) {
                my $data = $r . "," . $c;
                my $tmp = $table->Label(-text => "hola".$data, -padx => 2,
                                        -anchor => 'w',
                                        -background => 'white',
                                        -relief => 'groove');
                $tmp->bind('<Double-1>', [ \&toggle_slct, $table ]);
                $table->put( $r, $c, $tmp );
        }
}
$table->pack( -expand => 'yes', -fill => 'both');
#
# create the menu bar, and add the "show" and "exit" buttons
#
my $buttonBar = $mw->Frame( -borderwidth => 4 )->pack(-fill => 'y');
my $showB = $buttonBar->Button(-text => "Show",
                                -command => \&show_cells);
my $exitB = $buttonBar->Button( -text => "Exit",
                                -width => 10,
                                -command => sub { exit });
foreach ( $showB, $exitB ) {
        $_->pack(-side => 'left', -padx => 2 );
}
#
# start it up
#
MainLoop();
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿ Alguien me puede ayudar ?

sub show_cells {
    print "Selected Cells: ";
    foreach my $celda ( sort { $a <=> $b } ( keys %slct ) ) {
        (my $con_coma = $celda) =~ s/[.]/,/;       # este paso es necesario porque no queremos
                                                   # modificar las claves de %slct
        printf "%s ", $con_coma;
    }
    print "\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bueno, esto no deja de ser una chapuza... Lo ideal es usar las facilidades de configuración regional (las "locales"), para que los números salgan directamente como queremos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.12.4;
use strict;
use warnings;
use diagnostics;
 
use locale;                            # Suponemos que están bien puestas en el sistema
use POSIX qw(locale_h);                # Importamos setlocale() y definiciones
 
my $old = setlocale(LC_NUMERIC, "");   # Le damos un susto a LC_NUMERIC, para que tome
                                       # la configuración regional local
 
say 3.14;                              # 3,14
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2012-04-24 20:02 @876

Me parece que me expresé mal porque lo que quería era mostrar el valor completo refiriéndome a "hola1,1". Eso era lo que quería sacar, porque acabo de probar el código que me sugeriste y sigo en lo mismo.

por **explorer** » 2012-04-25 07:37 @359

Si las celdas contiene lo que toggle_slct indica, sí que debería de funcionar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

> perl -E '$k = sprintf "%d.%02d",3,14; say $k; printf "%d,%d\n", split /[.]/, $k'
3.14
3,14
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si no funciona, quizás es que no has llamado en un primer momento a toggle_slct.

Para estar seguros, lo que puedes hacer en show_cells() es insertar estas líneas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Data::Dumper;
print Dumper \%slct;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y así ves si lo que contiene ese hash es correcto.

Y el ejemplo que pones, de "hola1,1", no sirve, porque con "%d.%d" estás indicando que quieres sacar dos valores enteros, no una cadena ("hola1") y un número entero. Si el primer valor es una cadena, debes cambiar el primer"%d" por "%s".

por **BigBear** » 2012-04-26 09:59 @457

Sí, ya había visto el hash con Data::Dumper, pero solo había números.

Igual ya lo solucioné todo con este código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#http://docstore.mik.ua/orelly/perl3/tk/ch18_04.htm
 
use Tk;
use Tk::HList;
 
my $mw = MainWindow->new();
$mw->geometry("400x400+20+20");
 
#my $hlist = $mw->HList(-columns => 4, -header => 1)->pack(-expand => 0, -fill => 'both');
 
my $hlist
    = $mw->Scrolled( HList, -columns => 4, -header => 1, -width => 100, -scrollbars => 'se' )->pack( -side => 'right' );
 
$hlist->headerCreate( 0, -text => "ID" );
$hlist->headerCreate( 1, -text => "From" );
$hlist->headerCreate( 2, -text => "Subject" );
$hlist->headerCreate( 3, -text => "Date" );
 
$hlist->bind( "<Double-1>", [ \&yeah ] );
 
$mw->Button( -text => "probando", -command => \&dos )->pack();
$mw->Button( -text => "clean",    -command => \&uno )->pack();
 
MainLoop;
 
sub dos {
    for ( reverse 1 .. 20 ) {
        $hlist->add( $_, -text => "hola" . $_ );
        $hlist->itemCreate( $_, 0, -text => $_ );
        $hlist->itemCreate( $_, 1, -text => "probando2" );
        $hlist->itemCreate( $_, 2, -text => "blaaaaaaaaaaaaaa3" );
        $hlist->itemCreate( $_, 3, -text => "probando4" );
    }
}
 
sub uno {
    $hlist->delete( 'all', 0 );
}
 
sub yeah {
    my @ar = $hlist->selectionGet();
    print "[+] Marcaste : $ar[0]" . "\n";
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Mostrar valor de celdas

Mostrar valor de celdas

Publicidad

Re: Mostrar valor de celdas

Re: Mostrar valor de celdas

Re: Mostrar valor de celdas

Re: Mostrar valor de celdas

¿Quién está conectado?