Schrift
[thread]4997[/thread]

Grafische Oberfläche: Grafische Oberfläche



<< >> 3 Einträge, 1 Seite
elektrikus
 2005-05-01 17:07
#43906 #43906
User since
2005-05-01
1 Artikel
BenutzerIn
[default_avatar]
Hallo Leute,

kann mir hierbei jemand behilflich sein ?

Es soll mit Hilfe des TK Moduls ein perl Script erstellt werden, welches die Möglichkeit bietet, eine Ausgangsdatei im Textformat zu spezifizieren. Der User soll ausserdem den Namen der Ausgabedatei selber festlegen können. Durch das anklicken des Buttons soll das Script die bestehende Datei einlesen und jeweils an der ersten Stelle einer Zeile eine fortlaufende Zeilennummerierung einfügen. Außerdem soll die festgelegte Ausgabedatei generiert und der Ergebnistext in dieser Datei ausgegeben werden, wobei über die grafische Oberfläche (Listbox) die erfolgreiche Ausführung angezeit werden soll.
renee
 2005-05-01 18:39
#43907 #43907
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Da wir hier keine "Hausaufgaben-Hilfe" sind, werde ich Dir hier kein fertiges Skript geben, sondern ein paar Hilfestellungen. Wenn Du damit etwas rumprobiert hast und dann noch Probleme hast, kannst Du dich gerne wieder mit konkreten Fragen melden.

Um eine Datei auswählen zu können, brauchst Du einen "File"-Dialog.

Ausgeben kannst Du die Datei in eine Listbox (siehe: Wiki:Tk-Tutorial) oder in eine HList (siehe: http://duehl.de/christian/perl/perlmain.html#tksniphlist1 ).

Öffnen einer Datei zum Lesen: siehe perldoc -f open

Dann in einer Schleife die Zeilen auslesen und diese Zeilen in Tk ausgeben...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Crian
 2005-05-02 21:35
#43908 #43908
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Die Aufgabe scheint beliebt zu sein, genau danach hat schon mal irgendwer gefragt :)
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
<< >> 3 Einträge, 1 Seite



View all threads created 2005-05-01 17:07.