Inhalt von Dateien einlesen
Peter S.
- perl
Hi,
ich versuche den Inhalt aller Dateien in einem Verzeichnis einzulesen.
So klappt das leider gar nicht:
$dat='/data/daten/test';
@Daten_alt = ("");
opendir(PASSWD,"<$dat")|| die "Benutzerdatei nicht gefunden\n";
while(<PASSWD>)
{
push(@Daten_alt,$_);
}
closedir(PASSWD);
Es handelt sich dabei um txt-Dateien.
Was mache ich falsch?
Gruß
Pete
Sup!
Du meinst aber nicht etwas, wenn Du die Namen aller Dateien in dem Verzeichnis einliest, liest Du damit auch die Inhalte der Dateien mit diesen Namen ein - oder?
Gruesse,
Bio
Du meinst aber nicht etwa, wenn Du die Namen aller Dateien in dem Verzeichnis einliest, liest Du damit auch die Inhalte der Dateien mit diesen Namen ein - oder?
Nein, das ist mir schon klar, dass ich damit die Inhalte der Dateien nicht habe. Ich will nur wissen, wie ich an die Inhalte komme. Die Dateinamen sind mir dabei egal.
Gruß
Peter
Sup!
Tja... Du nimmst die Liste der Dateinamen, die Dein Skript möglicherweise erstellt hat, läufst mit foreach $item (@array) {} durch, öffnest jede Datei einzeln (open FILE, $item; while ($line =<FILE>){tue_was_damit} close FILE; und liest damit alles raus, was drin ist.
Gruesse,
Bio
@Bio
Vielen Dank werd ich gleichmal testen.