"Christmas - the time to fix the computers of your loved ones" « Lord Wyrm

frage an die Perler (vA derelict)

Murph 30.01.2002 - 11:59 771 4
Posts

Murph

Nerd
Avatar
Registered: Dec 2001
Location: Vienna
Posts: 9236
ich hab ein kleines problem (mal wieder)

meine Verzeichnisse schaun so aus:

Code:
Hauptverzeichnis
        |--------0000_blabla \ 0001_aaa.htm
        |		     \ 0001_ccc.htm
   	|
   	|--------3485_blabla \ 3485_aaa.htm
	|		     \ 3485_bbb.htm
   	|		     \ 3485_ccc.htm
  	|
  	|--------6438_blabla \ 6438_bbb.htm
 			     \ 6438_ccc.htm

das script soll einfach ordner für ordner durchgehen,
und sagen ob jetzt zB der 0000-ordner dateien mit dem namen "aaa", "bbb", "ccc" usw enthält...

ich hab versucht mit if (-e filename) zu arbeiten, aber dann bekomm ich nur angaben von wegen "0000_aaa hat 0000_aaa" und das is net wirklich sinnig...

plz someone help :(

Vir@s

Code Monkey
Registered: Nov 2000
Location: Wien
Posts: 730
Probier mal mit nem System call:

$directory = `dir`;

dann hast in $directory den output - den kannst dann halt nachbearteien wie du willst (z.B mit split oder irgendwelchen regulären Ausdrücken).

Hoff des hilft dir a bissi!
Bye, Vir@s

Guest

Deleted User
Registered: n/a
Location:
Posts: n/a
bin scho do :D

stimme dem virus zu, allerdings würde ich mit `find ./` mir alle files des Trees holen, und dann mit gewohnten perl-mechanismen das Zeugs durchwassern.

@virus: "dir" ist ein alias für ls -l, als im zweifelsfall das verwenden.

edit: mir ist eingefallen, du machst ja perl unter windows ... da wird dir das nicht helfen. also entweder statt find "dir /b /s" nehmen, oder (plattformunabhängig) mit dem perl-command opendir und konsorten den tree auslesen.
Bearbeitet von am 31.01.2002, 10:43

Vir@s

Code Monkey
Registered: Nov 2000
Location: Wien
Posts: 730
Zitat von .deRElict.
bin scho do :D

stimme dem virus zu, allerdings würde ich mit `find ./` mir alle files des Trees holen, und dann mit gewohnten perl-mechanismen das Zeugs durchwassern.

@virus: "dir" ist ein alias für ls -l, als im zweifelsfall das verwenden.

edit: mir ist eingefallen, du machst ja perl unter windows ... da wird dir das nicht helfen. also entweder statt find "dir /b /s" nehmen, oder (plattformunabhängig) mit dem perl-command opendir und konsorten den tree auslesen.

Jep, habe angenommen er macht des unter windows :)
mit ls könntest ja des ganze gleich alleine mim befehl parsen :)

Bye, Vir@s

Murph

Nerd
Avatar
Registered: Dec 2001
Location: Vienna
Posts: 9236
ok thx für die tips mit dem syscall...

dachte dass opendir(dirHendl, "000")......................
schneller sein wird
najo
meld mich eh wieder @ work =)
Kontakt | Unser Forum | Über overclockers.at | Impressum | Datenschutz