Opened by Gast at 2008-05-14 21:26
Gibt es die möglichkeit mein Script:
schnell und ohne viel am Inhalt zu ändern Perl tauglich zu machen ?
Ich habe das als Ausarbeitung für das Fach Skriptsprachen abzugeben.
Das Problem ist das ich mein Prof. wohl falsch verstanden habe als er meinte schreib eine Tcl/Tk Oberfläche mit der Reguläre Ausdrücke dargestellt werden.
Er möchte nun alles Perl "tauglich" haben. Ich habe leider nicht so viel Ahnun von Perl/tk
und würde mich sehr freuen wenn mir jemand bein Tool oder ähnliches sagen könnte womit ich das ganz einfach und schnell umwandeln kann.
Bekomme nichtmal den ersten Abschnitt mit den
hin.
Würde mich sehr über Hilfe freuen. Würde dann natürlich den jenigen die ganze Ausarbeitung + Doku zuschicken.
Mit freundlichen Grüßen
Robert
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
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/wish -f
# Hauptfenster nicht \Ufffffffferbar in seiner Gr\Uffffffff
wm resizable . 0 0
# Verlaufsliste
toplevel .th
wm title . "Regul\Uffffffff Ausdr\Uffffffffarstellen"
wm title .th "Verlaufsliste"
wm geometry . +100+100
wm geometry .th +815+100
#===========Prozeduren===========Start
proc dateidialog {} {
global datei
# Dateitypen festlegen
set filetypes { \
{"Alle Dateien" *} \
{"Textdateien" {.txt .TXT} } \
{"Tcl-Dateien" { .tcl .TCL .tk .TK} }
}
# \Ufffffffffnendialog
set datei [tk_getOpenFile \
-initialdir [pwd] \
-title "Datei \Uffffffffen..." \
-filetypes $filetypes \
-defaultextension .txt \
-parent .]
# In die proc einlesen gehen
einlesen
}
....
}
schnell und ohne viel am Inhalt zu ändern Perl tauglich zu machen ?
Ich habe das als Ausarbeitung für das Fach Skriptsprachen abzugeben.
Das Problem ist das ich mein Prof. wohl falsch verstanden habe als er meinte schreib eine Tcl/Tk Oberfläche mit der Reguläre Ausdrücke dargestellt werden.
Er möchte nun alles Perl "tauglich" haben. Ich habe leider nicht so viel Ahnun von Perl/tk
und würde mich sehr freuen wenn mir jemand bein Tool oder ähnliches sagen könnte womit ich das ganz einfach und schnell umwandeln kann.
Bekomme nichtmal den ersten Abschnitt mit den
Code: (dl
)
my $main = MainWindow->new(-title => 'Regulaere Ausdruecke darstellen', -geometry => '+100+100');
hin.
Würde mich sehr über Hilfe freuen. Würde dann natürlich den jenigen die ganze Ausarbeitung + Doku zuschicken.
Mit freundlichen Grüßen
Robert