Opened by Kuschelroboter at 2005-01-30 02:19
User since
2005-01-30
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-01-30
3 Artikel
BenutzerIn
Hallo,
erstmal grüß Gott zusammen, ich bin neu hier im Forum und anfänger was Perl angeht.
Ich habe gleich ein problemchen:
Ich habe eine Textdatei in der mehrere Zeilen mit adressen stehen.
Nun brauche ich ein Script welches beim Aufruf die erste zeile ausliest und diese über return an mein Programm zurück gibt.
in der Textdatei soll dabei die erste Zeile dann gelöscht werden so das die 2. nachrückt.
besonders weit bin ich da nicht :)
erstmal grüß Gott zusammen, ich bin neu hier im Forum und anfänger was Perl angeht.
Ich habe gleich ein problemchen:
Ich habe eine Textdatei in der mehrere Zeilen mit adressen stehen.
Nun brauche ich ein Script welches beim Aufruf die erste zeile ausliest und diese über return an mein Programm zurück gibt.
in der Textdatei soll dabei die erste Zeile dann gelöscht werden so das die 2. nachrückt.
besonders weit bin ich da nicht :)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
sub adresse_get_next {
print "Neue Adresse wird gezogen:\n";
my $dateiname = "/home/htdocs/files/adress.txt";
open(DATEI, '<'.$dateiname) or die "Kann $dateiname nicht öffnen";
while(<DATEI>)
{
my $zeile = chomp($_);
# was nun??????????????????????
}
close(DATEI);
return "Hier soll die Adresse übergeben werden";
}