Alle Dateien aus Verzeichnis auslesen: Hätte gern einen Codeteil anders (Seite 2) (Perl/CGI)

Tom

2005-09-25 21:34

User since
2003-09-20
470 Artikel
BenutzerIn

@pKai

Könntest du mir da mal ein Beispiel posten, werden daraus nicht so recht schlau.

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

Tom

2005-09-28 17:29

User since
2003-09-20
470 Artikel
BenutzerIn

Kann mir denn keiner dazu mal ein Beispiel posten? Aus der Beschreibung von File::Find werde ich nicht schlau.

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

renee

2005-09-28 17:37

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du nur aus einem Verzeichnis die darin enthaltenen Verzeichnisse auslesen willst, dann würde ich nicht CPAN:

File::Find nehmen. Ich würde das so machen:

Code: (dl )

1
2
3

opendir(DIR,$dir) or die $!;
my @dirs = map{$dir.'/'.$_}grep{-d $_ && $_ !~ /^\.\.?$/}readdir(DIR);
closedir(DIR);

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Tom

2005-10-07 02:45

User since
2003-09-20
470 Artikel
BenutzerIn

@renee

Sorry dass ich mich jetzt erst melde, konnte das aber nicht ehr testen.

Das klappt nicht ganz, er liefert mir nur die Verzeichnisse "admin" und "data", die Verzeichnisse "bilder", "2003","2004" und "2005" zeigt er nicht an, eigentlich will ich nur die Verzeichnisse mit den Jahren angezeigt bekommen. Geht das auch so dass er mir in @dirs nur z.B. 2003 schreibt und nicht den ganzen Pfad?

Danke

Tom\n\n

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

renee

2005-10-07 10:54

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

1
2
3

opendir(DIR,$dir) or die $!;
my @dirs = grep{-d $dir.'/'.$_ && $_ =~ /^\d{4}$/}readdir(DIR);
closedir(DIR);

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Tom

2005-10-08 02:54

User since
2003-09-20
470 Artikel
BenutzerIn

DANKE ;)

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

renee

2005-10-08 12:37

User since
2003-08-04
14371 Artikel
ModeratorIn

Bitte... grep (siehe perldoc -f grep) ist echt was nützliches ;)

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/