nicht angemeldet
Hi,
#!/usr/bin/perl -w
use strict;
perldoc perlrun
perldoc strict
$zahl = 0;
my $zahl = 0;
perldoc -f my
open (DATA, ">$datei");
Willst Du hier schon schreiben? Ich glaube, erst mal suchst Du den Inhalt, oder?
open(DATA, $datei) or die "Kann $datei nicht oeffnen: $!";
perldoc perlstyle
perldoc perlfaq4 (What's wrong with always quoting "$vars"?)
perldoc -f die
perldoc perlopentut
perldoc perlvar ($!)
@zeilen = <DATA>;
Wie viele Zeilen?
($zahl) = split(//,@zeilen);
Huh? Das musst Du mir erklären.
$zahl++;
Ah, das sieht richtig aus :-)
print DATA ("$zahl");
Listenkontext ist nicht notwendig. Lass die Klammern weg (s. ikke).
close (DATA);
Auch hier den Fehlerfall abfangen.
$zahl = <DATA>;
Wenn nichts in DATA drinsteht, dann hat $zahl den Wert...?
Hilft alles nichts.
Darf ich mich jetzt deiner Hilfe erfreuen?
Verantwortlicher Fehler: Du öffnest die Datei zum Schreiben und versuchst dann, daraus zu lesen. Mache Dir bewusst, wie das Betriebs- und Dateisystem einen Dateizugriff handhabt.
Cheatah