nicht angemeldet
Hi Patrick. Danke nochmals für deine Antwort.
Ich habe das gefühl das mir das im moment noch zu hoch ist deshalb hab ich mal mit etwas ganz ganz simplen angefangen und zwar will ich eine datei ausgeben und zum beispiel nach jeder zehnten zeile ein hallo ausgeben aber das klappt nicht.
open (DAT, "<datei.txt");
my @dat = <DAT>;
my $datei;
for $datei (@dat)
{
print $datei;
if ($datei % 5 > 0)
{
print "hallo";
}
}
Das geht aber nicht nur warum nicht?
Das hingegen geht:
my $zahl;
for $zahl (1..50)
{
print "$zahl\n";
if ($zahl % 5 > 0)
{
print "hallo";
}
}
Wäre lieb von dir wenn du mir weiterhelfen könntest.
ps: Hab den code bisschen geändert hoffe es liegt nicht daran??
Struppi