Foro - Perl en Español

por **BigBear** » 2013-03-10 20:27 @893

Encontré este código en : http://www.ibm.com/developerworks/aix/l ... tkmodule3/ , el problema es que no explica cómo obtener el valor de cualquier fila.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Tk::Table;
use Tk;
 
my $mw = MainWindow->new;
$mw->geometry("475x125");
$mw->resizable(0,0);
$mw->title("Table Example");
 
my $table_frame = $mw->Frame()->pack();
my $table = $table_frame->Table(-columns => 8,
                                -rows => 4,
                                -fixedrows => 1,
                                -scrollbars => 'oe',
                                -relief => 'raised');
 
 
 
foreach my $col (1 .. 8)
{
  my $tmp_label = $table->Label(-text => "COL " . $col, -width => 8, -relief =>'raised');
  $table->put(0, $col, $tmp_label);
}
 
foreach my $row (1 .. 8)
{
  foreach my $col (1 .. 8)
  {
    my $tmp_label = $table->Label(-text => $row . "," . $col,
                                  -padx => 2,
                                  -anchor => 'w',
                                  -background => 'white',
                                  -relief => "groove");
    $table->put($row, $col, $tmp_label);
  }
}
$table->pack();
 
MainLoop;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿ Alguien sabe cómo hacerlo ?

use Tk::Table;
use Tk;
use Data::Dumper;
 
my $mw = MainWindow->new;
$mw->geometry("475x125");
$mw->resizable(0,0);
$mw->title("Table Example");
 
my $table_frame = $mw->Frame()->pack();
my $table = $table_frame->Table(-columns => 8,
                                -rows => 4,
                                -fixedrows => 1,
                                -scrollbars => 'oe',
                                -relief => 'raised');
 
 
 
$table->put("1","1","saddddddddddddd");
$table->put("2","2","saddddddddddddd");
$table->put("3","1","saddddddddddddd");
 
$table->pack();
 
$mw->Button(-text=>"test",-command=>\&test)->pack();
 
MainLoop;
 
 
sub test {
 
my $t = $table->get(1,1);
print "encontre : ".$t;
 
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y me devuelve :

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

encontre : Tk::Label=HASH(0x2d7ad64)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿ Qué estoy haciendo mal ?

por **explorer** » 2013-03-15 20:25 @892

No estás haciendo nada mal. Solicitaste el contenido de la celda 1,1 y te devolvió un objeto Tk::Label (eso es lo que sacas en pantalla).

Ahora, con ese objeto, puedes hacer lo que quieras: sacar su texto, cambiarlo...

por **BigBear** » 2013-03-15 21:01 @917

Sí, eso ya lo solucioné pero tengo una duda porque quiero que las columnas o filas tengan un cierto tamaño donde a pesar que sean tan largos como "aaaaaaaaaaaaaaaaaaaaaaaaaa" sigan con el mismo tamaño y no se alarguen sin mostrar lo que sigue después.

¿ Se puede hacer eso ?

Foro - Perl en Español

Sacar valores de una tabla

Sacar valores de una tabla

Publicidad

Re: Sacar valores de una tabla

Re: Sacar valores de una tabla

Re: Sacar valores de una tabla

Re: Sacar valores de una tabla

¿Quién está conectado?