Opened by perln00b at 2010-01-20 18:33
User since
2007-03-18
48 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-03-18
48 Artikel
BenutzerIn
Du meinst sicher Pfad1 und Pfad11 ausspucken für Name1.
Ich weiss leider nicht was du unter ausspucken verstehst, deshalb spuck ich das Zeug mal in ein Label ;)
Kannst auch erstmal deine gefundenen Daten in einem Hash ablegen (mit den Namen als Keys). Mit den Keys baust du dann die radiobuttons auf (für text und value benutzt du den key) und dann hast du in $var den letzten ausgwählten Wert und kannst den als key benutzen, um die Pfade aus dem Hash zu lesen.
Oder so :)
Möglicherweise solltest du einfach mal deinen Code posten, damit man genau weiss, was du willst.
Gruß
Kalle
Ich weiss leider nicht was du unter ausspucken verstehst, deshalb spuck ich das Zeug mal in ein Label ;)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my @radiobuttons;
my $var;
while (<DATA>) {
chomp;
next if (/^\s*$|^#/);
my ($name,$pfade)=split(/\s+/,$_,2);
my $rb = $mw->Radiobutton( -variable => \$var, -text => $name, -value => $pfade )->pack;
push @radiobuttons, $rb;
}
$radiobuttons[0]->select;
my $ausspuckfeld = $mw->Label(-textvariable =>\$var, -borderwidth => 2,-relief =>'sunken')->pack(-fill => 'x');
MainLoop;
__DATA__
Name1 Pfad1 Pfad11
Name2 Pfad2 Pfad21
Name3 Pfad3 Pfad31
Kannst auch erstmal deine gefundenen Daten in einem Hash ablegen (mit den Namen als Keys). Mit den Keys baust du dann die radiobuttons auf (für text und value benutzt du den key) und dann hast du in $var den letzten ausgwählten Wert und kannst den als key benutzen, um die Pfade aus dem Hash zu lesen.
Oder so :)
Möglicherweise solltest du einfach mal deinen Code posten, damit man genau weiss, was du willst.
Gruß
Kalle