[perl] file::find oder ähnliche Funktion

[stefansf]

Hallo,

Argh ich hänge schon den ganzen Morgen an einem Script. Und zwar möchte ich einfach alle Dateien, Verzeichnisse in einen Array einlesen. Früher habe ich dies mit system("find /home/test > /tmp/test) und danach die Datei geöffnet und in einen Array eingelsen. Nun möchte ich des eigentlich lieber mit "nur perl" machen also keine externen Programme benutzen wie "find" usw.
Kennt da Jemand vielleicht eine Lösung zu? Mit File::Find habe ich im Momemnt noch so meine Schwierigkeiten, google liefert mir hierzu auch nicht so ganz das ware und so langsam bekomm ich en dicken Kopf geh mal eben ne Runde Kaffee trinken!

MfG Stefan

[ratte]

geh dir lieber n buch kaufen:

Perl Kochbuch, O'Reilly, ISBN 3-89721-140-8

ratte

PS: dann kommste auch mal an die frische luft, hilft vielleicht bei kopfschmerzen

[stefansf]

lol ratte

jo des buch habe ich auch schon, nur leider steht des nun zu hause rum und ich bin in der firma. wollte bei dem script eigentlich heute weiter kommen und werde heute wahrscheinlich nicht mehr nach hause kommen.
aber hast schon recht, neija morgen ist auch noch ein tag...lesen bildet

mfg stefan

ps: der kaffee hat nix geholfen, zum glück ist gleich mittag

[ratte]

und dann einen anforderungsschein holen das buch fuer die firma kaufen!

wohl bekomms,

ratte

[stefansf]

argh nun habe ich doch noch das buch geholt und auf dem weg zur firma ist es mir dann eingefallen wie ich es zu schreiben habe:

#!/usr/bin/perl -w

use strict;

use File::Find;

my @datalist2;

find(\&createDatalist2, '/root');

sub createDatalist2 {
push(@datalist2, $File::Find::name);
}

foreach (@datalist2) {
print"$_
";
}


Neija egal, manchmal reicht auch ein klarer Kopf

MfG Stefan

[ratte]

erinnert mich wie von zauberhand an mein erstes programmiererlebnis, da musste ich auch erst etwas voellig anderes machen, bis mir die loesung im hirn wie von selbst auftauchte.

ratte