Namen von Verzeichnissen auslesen (Allgemeines zu Perl)

Gast Gast

2005-10-06 17:12

Hallo Zusammen,

Hab zwar schon paar Perl Anfängerkurse durchgearbeiten, aber noch keine Lösung für mein Problem gefungen.

Folgendens:

ich will in aus einem bestimmten Verzeichnis (c:\input) die namen aller suborder und datein filtern und in 2 verschiedenen arrays abspeichern. (ein array für die Ordenr und ein für die Datein)

mit folgendem code bekomme ich zwar alle enthaltenen elemente von c:\input, aber das mit dem filtern klappt nicht.

opendir(PFAD, "c:\\input")
@inhalt=readdir(PFAD);
closedir(PFAD)

foreach $element (@inhalt) {
print "$element\n";
}

Hoffe Ihr könnt mir da weiterhelfen.

Besten Dank,
LG Chris

renee

2005-10-06 17:15

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

my (@dirs,@files);
opendir(PFAD, "c:\\input")
while(my $entry = readdir(DIR)){
  push(@dirs,$entry) if(-d $entry);
  push(@files,$entry) if(-f $entry);
}
closedir(PFAD);

siehe perldoc -f -X

Es sieht ganz so aus, als würdest Du kein Wiki:

strict benutzen. Du solltest Dir den Artikel mal genau durchlesen...

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/

Kristop8

2005-10-06 18:20

User since
2005-10-06
22 Artikel
BenutzerIn
[default_avatar]

Hi Rene,

erstmal danke aber irgendwie schein da ein wurm im skript zu sein funz. nämlich nicht. Meckert syntax fehler in der while schliefe.

Hier nochmal der ganze code:
use strict;
my (@dirs,@files);
my $entry;
my $file;
opendir(PFAD, "c:\\perl")
while(my $entry = readdir(PFAD))
{
push(@dirs,$entry) if(-d $entry);
push(@files,$entry) if(-f $entry);
}
closedir(PFAD);

foreach $file (@files)
{
print "$file ";
}

Quote

Gast Gast

2005-10-06 18:25

Code-Tags! Außerdem fehlt da ein ";"

Strat

2005-10-06 18:31

User since
2003-08-04
5246 Artikel
ModeratorIn

1. warum machst du bei opendir keine fehlerabfrage? oder ist es nicht tragisch, wenn da keine Dateien drinnen sind?

Code: (dl )

my $dir = "c:/input";
opendir(DIR, $dir) or die "Error: couldn't open dir '$dir': $!\n";
# oder
unless (opendir(DIR, $dir)) {
  die "Error: couldn't open dir '$dir': $!\n";
}

2. lass dir mal den Wert $entry ausgeben, dann findest du heraus, dass $entry der Dateiname ohne Pfad ist. -d $entry versucht also nachzuschauen, ob $entry im aktuellen verzeichnis ein verzeichnis ist. da musst du noch $dir mitgeben, z.B.

Code: (dl )

if -d "$dir/$entry"

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Kristop8

2005-10-06 19:26

User since
2005-10-06
22 Artikel
BenutzerIn
[default_avatar]

cool danke,

hat funz.:D

Kristop8

2005-10-06 19:41

User since
2005-10-06
22 Artikel
BenutzerIn
[default_avatar]

habe mit meinem eigenen script etas rumgespielt und dabei ist mir aufgefallen, dass man immer zwar die directories bekommt.
Was macht man aber wenn es SUB-Ordner gibt, wie kriege ich raus od ein Ordner ein Unterorder hat und wenn ja wie kann kriege ich dessen name.

Natürlich kann ich auch die einzellnen order mit hilfe von while schleifen durchsuchen, gibt es aber keine bessere mölichkeit??

Schon mal besten Dank,

LG Chris

Strat

2005-10-06 20:04

User since
2003-08-04
5246 Artikel
ModeratorIn

du meinst, verzeichnisse rekursiv durchsuchen? schau dir mal das Modul File::Find an (oder auch meistens komfortabler, aber halt nicht standard: File::Find::Rule oder so...)

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

sesth

2005-10-07 12:35

User since
2005-02-01
181 Artikel
BenutzerIn
[default_avatar]

So geht es z.B. rekursiv:

Code (perl): (dl )

my @files;

sub findFiles($)
{
    my ($dir) = @_;
    
    my $dirhandle;
    opendir($dirhandle, $dir) || die "can't opendir $dir: $!";
    foreach my $entry (readdir($dirhandle)) {
        if ($entry !~ m{^\.\.?$}) {
            my $absentry = $dir . '/' . $entry;
            if (-f $absentry) {
               
 push @files, $absentry;
            } elsif(-d $absentry) {
               
 findFiles($absentry);
            }
        }
    }
    closedir($dirhandle);
}

Gruß
Thomas

renee

2005-10-07 13:48

User since
2003-08-04
14371 Artikel
ModeratorIn

mit

File::Find geht es einfacher und man läuft nicht so schnell Gefahr Fehler zu machen (was bei Rekursion sehr schnell geht)...

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/