Opened by Kuschelroboter at 2005-01-30 02:19
User since
2003-08-21
2614 Artikel
ModeratorIn
2003-08-21
2614 Artikel
ModeratorIn
Hallo,
versuch mal das hier:
Das ist nun ein ganz anderer Ansatz... Das Problem bei Deinem Ansatz ist, dass Du mit einer while(<>)-Schleife die Datei nur auslesen, aber nicht veraendern kannst.
Und noch etwas zu Deinem Ansatz:
Bitte beachte, dass der Rueckgabewert von chomp nicht der String ist, auf den Du chomp loslaesst. Chomp veraendert den String nur.
versuch mal das hier:
Code: (dl
)
1
2
3
4
5
6
7
8
9
use strict;
use warnings;
use Tie::File;
sub adresse_get_next {
my @array;
tie @array, "Tie::File", "/home/htdocs/files/adress.txt";
return shift @array;
}
Das ist nun ein ganz anderer Ansatz... Das Problem bei Deinem Ansatz ist, dass Du mit einer while(<>)-Schleife die Datei nur auslesen, aber nicht veraendern kannst.
Und noch etwas zu Deinem Ansatz:
QuoteCode: (dl )my $zeile = chomp($_)
Bitte beachte, dass der Rueckgabewert von chomp nicht der String ist, auf den Du chomp loslaesst. Chomp veraendert den String nur.
Lieblingsmodule: 
IPC::System::Simple, Path::Class
IPC::System::Simple, Path::Class