Thread TK-Modul Ein und Aulsesen: Anfänger verzweifelt (31 answers)
Opened by satanica1976 at 2004-08-16 17:43

Crian
 2004-08-18 16:41
#42440 #42440
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
[quote=satanica1976,18.08.2004, 14:15]wow ich bin tief beeindruckt, danke. werde es gleich mal testen bei mir um zu sehen was passiert.
das hätte ich niemals hinbekommen als ich meinen tutor um hilfe bat paralell zu diesen thread bekam ich folgende antwort:
Es ist nicht so kompliziert, wie es sich vielleicht anhört:
-2 Eingabefelder, eins für den Namen der Eingabedatei, eins für den Namen der Ausgabedatei
-ein Knopf. Wenn man den drückt, wird die Eingabedatei geöffnet, und deren Inhalt, ergänzt um eine Zeilennummerierung, in die Ausgabedatei geschrieben.
- in der Listbox geben Sie aus "Ausgabedatie erfolgreich geschrieben".

meine mail lasse ich dir mal per PN zukommen. ich danke dir für deine hilfe zu dieser aufgabe.[/quote]
Oh, da hab ich die Aufgabe viel zu kompliziert verstanden. Aber dann hast Du jetzt zwei Lösungen, eine zum Abgeben, und eine schöne ;)
Oder Du gibst beide ab, wenn Du verstanden hast, was in der längeren passiert (sonst besser nicht, oder nachfragen, bis Du es verstanden hast).

@Renee: schau Dir mal die Variable $. an, Dein Counter ist irgendwie überflüssig.

(
Quote
HANDLE->input_line_number(EXPR)
$INPUT_LINE_NUMBER
$NR
$. Current line number for the last filehandle accessed.

Each filehandle in Perl counts the number of lines that have
been read from it. (Depending on the value of $/, Perl's idea of
what constitutes a line may not match yours.) When a line is
read from a filehandle (via readline() or "<>"), or when tell()
or seek() is called on it, $. becomes an alias to the line
counter for that filehandle.

You can adjust the counter by assigning to $., but this will not
actually move the seek pointer. *Localizing $. will not localize
the filehandle's line count*. Instead, it will localize perl's
notion of which filehandle $. is currently aliased to.

$. is reset when the filehandle is closed, but not when an open
filehandle is reopened without an intervening close(). For more
details, see "I/O Operators" in perlop. Because "<>" never does
an explicit close, line numbers increase across ARGV files (but
see examples in "eof" in perlfunc).

You can also use "HANDLE->input_line_number(EXPR)" to access the
line counter for a given filehandle without having to worry
about which handle you last accessed.

(Mnemonic: many programs use "." to mean the current line
number.)
)\n\n

<!--EDIT|Crian|1092833036-->
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

View full thread TK-Modul Ein und Aulsesen: Anfänger verzweifelt