Opened by format_c at 2003-09-01 16:08
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Ja, verstehe das Problem jetzt. Allerdings konnte ich es eben nicht lösen, wer basteln will, kanns an diesem Komplettskript tun:
Ich kenn mich mit grid auch nicht aus, mit pack könnt ich Dir das aber hinzaubern.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;
use Tk;
my $mw = Tk::MainWindow->new();
my $f1 = $mw->Frame()->grid();
$f1->Label(-text=>'Startpfad: ')->grid(-row=>0,-column=>0);
my $pfad = $f1->Entry(-width=>50)->grid(-row=>0,-column=>1);
$f1->Label(-text=>'Suchstring: ')->grid(-row=>1,-column=>0);
my $Such = $f1->Entry(-width=>50)->grid(-row=>1,-column=>1);
$f1->Label(-text=>'Ersetzungsstring: ')->grid(-row=>2,-column=>0);
my $Erse = $f1->Entry(-width=>50)->grid(-row=>2,-column=>1);
MainLoop();
Ich kenn mich mit grid auch nicht aus, mit pack könnt ich Dir das aber hinzaubern.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite