Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 29
+25 replies
+2 replies![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+22 replies
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my @radiobuttons;
for ( 1 .. 5 ) {
my $var;
my $rb = $mw->Radiobutton( -variable => \$var, -text => $_, -value => $_ );
$rb->pack;
push @radiobuttons, $rb;
}
$radiobuttons[3]->select;
MainLoop;
+21 replies
+19 replies1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my @radiobuttons;
my $var;
for my $v( 1 .. 5 ) {
my $rb = $mw->Radiobutton( -variable => \$var, -text => $v, -value => $v );
$rb->pack;
push @radiobuttons, $rb;
}
$radiobuttons[3]->select;
MainLoop;
+17 replies
+16 replies
+15 replies
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
+14 replies1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
my $Anzahl = `wc -l 2>/dev/null text.cfg | cut -b1`; ###wieviele Pfade wurden definiert for my $v( 2 .. $Anzahl ) { ###erzeuge einen Rb fuer jeden Eintrag in der text.cfg $lokal= `cat text.cfg | head -$v | tail -1 |cut -b1-20`; chomp($lokal); my $rb = $tab3->Radiobutton( -variable => \$var, -text => $lokal, -value => $v, -command=>\&getPfad); $rb->pack; push @radiobuttons, $rb } sub getPfad { $pfad_lokal= `cat text.cfg | head -$var| tail -1 | cut -b25-128`; $pfad2_lokal= `cat text.cfg | head -$var| tail -1 | cut -b130-256`; chomp($pfad_lokal); chomp($pfad2_lokal); }
+12 replies
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my @radiobuttons;
my $var;
my $filename='text.cfg';
my $filehandle;
my $meinedaten;
open ($filehandle,'<',$filename) or die "Kann $filename nicht öffnen!\nFehler: $!";
while (<$filehandle>) {
chomp;
next if (/^\s*$|^#/);
my ($name,$pfad1,$pfad2)=split(/\s+/,$_,3);
$meinedaten->{$name}->{'pfad1'}=$pfad1;
$meinedaten->{$name}->{'pfad2'}=$pfad2;
my $rb = $mw->Radiobutton( -variable => \$var, -text => $name, -value => $name, -command=>sub{getPfad($name)})->pack;
push @radiobuttons, $rb;
}
close ($filehandle);
$radiobuttons[0]->select;
my $ausspuckfeld = $mw->Label(-textvariable =>\$var, -borderwidth => 2,-relief =>'sunken')->pack(-fill => 'x');
MainLoop;
sub getPfad {
my $diesername=shift;
my $pfad_lokal=$meinedaten->{$diesername}->{'pfad1'};
my $pfad2_lokal=$meinedaten->{$diesername}->{'pfad2'};
print "Name: $diesername\n";
print "Pfad1: $pfad_lokal\n";
print "Pfad2: $pfad2_lokal\n\n";
}
1 2 3
my $name=substr($_,0,20); my $pfad1=substr($_,24,103); my $pfad2=substr($_129,126);
+10 replies
+9 replies
+8 replies
+4 replies
+3 replies
+2 replies
2010-01-27T11:56:34 topegSoweit ich weiß können alle modernen Dateisysteme alle Zeichen als Name speichern. Nur der Zugriff würde etwas Problematisch.
+3 replies
+2 replies
Tk::DirTree
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
