readdir sort und überhaupt Probleme (gelöst) (Allgemeines zu Perl)

[thread]17175[/thread]

readdir sort und überhaupt Probleme [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+7 replies
Alexander

2012-02-21 17:13
User since
2012-02-21
25 Artikel
BenutzerIn
Hi!

Ich bin ein absoluter Newbie wenn es um Perl Programmierung geht

-Ich will gerne ein Verzeichnis, welches ich per input angeben lasse, einlesen
-Es sollte eine Kontrolle geben wenn es das Verzeichnis nicht gibt
-Anschließend sollten die dort befindlichen Files eingelesen werden
-wieder ein Kontrolle falls es keine Files dort gibt
-die Files sollten nach dem letzten Benutzungsdatum sortiert und
-Name, Größe und letzten Benutzungsdatum auf dem Bildschirm ausgegeben werden
-Außerdem sollten Unterverzeichnisse erwähnt jedoch nicht ausgelesen werden

bis dato habe ich
-Verzeichnis einlesen
-Error bei fehlendem Verzeichnis
-Einlesen der Files
-Error mit if funktioniert nicht
tja und die restlichen Sachen habe ich auch nicht

ich bräuchte ein par Tips wie ich weiter machen soll und ob der code soweit okay ist.
bitte immer daran denken, dass ich ein absoluter Anfänger bin und mich erst seit einigen Wochen mich mit Perl beschäftige

Alexander
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

#! c:/perl/bin/perl.exe -w print "\nPlease put in the folder you want to search for files, like example underneath\n"; print "Example for windows 'c:/.../.../.../': "; chomp(my $dirname = <STDIN>); opendir (DIR, $dirname) or die "\nError $!\n"; @dir = readdir(DIR); #if (@dir = 0) { #if Funktion sollte einen Error anzeigen wenn Verzeichnis leer ist - #funktioniert nicht # print "\nSorry no files in the folder!\n"; # } print join("\n", @dir); closedir DIR;
modedit Editiert von pq: code-tags hinzugefügt und ein paar von den vielen tabs entfernt. bitte Formatierungshilfe lesen
Last edited: 2012-02-21 17:17:48 +0100 (CET)
- Linuxer
  
  2012-02-21 17:20
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  
  bitte Perl-Code in Code-Tags setzen: [code=perl]# Dein Perl-Code hier[/code].
  
  Code (perl): (dl )
  
  # Dein Perl-Code hier
  
  Wenn ein Verzeichnis existiert, hat es (jedenfalls in der DOS- und Linux-Welt) eigentlich immer wenigstens 2 Einträge: . und ..
  Das musst Du entsprechend berücksichtigen.
  Ausserdem wird in Perl mit == numerisch verglichen, das einfache = weist zu...
  Last edited: 2012-02-21 17:32:14 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +4 replies
- pq
  
  2012-02-21 17:23
  User since
  2003-08-04
  12209 Artikel
  Admin1
  bitte benutze strict und warnings: use strict, lexikalische filehandles: WasIsteinLexikalischerFileHandle
  
  am besten ein modernes tutorial hier aussuchen, dort wird einem das alles beigebracht.
  
  um zu prüfen, ob ein array leer ist, macht man einfach folgendes:
  
  Code (perl): (dl )
  
  1 2 3
  
  if (not @array) { # empty }
  
  das wird aber bei readdir nicht funktionieren, da es in jedem verzeichnis die dateien . und .. gibt. die müsstest du zuerst rausfiltern.
  
  Code (perl): (dl )
  
  1 2 3
  
  if (grep { not m/^\.\.?$/ } @dirs) { # verzeichnis nicht leer }
  
  Editiert von pq: bugfix grep, danke linuxer =)
  Last edited: 2012-02-21 17:33:57 +0100 (CET)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - Linuxer
    
    2012-02-21 17:31
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    BugReport ;-)
    Sollte der grep Ausdruck nicht negiert sein? Und beim Regex fehlt das abschliessende /?
    also so:
    
    Code (perl): (dl )
    
    1 2 3
    
    if ( grep { ! m/^\.\.?$/ } @dirs ) { # ... not empty }
    
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - +2 replies
    - Alexander
      
      2012-02-24 22:07
      
      User since
      2012-02-21
      25 Artikel
      BenutzerIn
      
      Danke derweil einmal, habe es geschafft die leeren Verzeichnisse auszublenden und aud die .File und ..File nicht zu beachten
      
      Mein Problem ist nun, dass die Filegröße mit stat() nicht angzeigt wird.
      Es sollte alles vorweigend jedoch Verzeichnisse im Verzeichnis nur als ausgelssen angezeigt werden.
      
      Leider hat kein File eine "Größe" bzw. wird keine Größe zurückgegeben.
      
      Ich verwende win 7 32 bit mit sp1
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      #! c:/perl/bin/perl.exe use strict; print "\nPlease put in the folder you want to search for files, like example underneath\n"; print "Example for windows 'c:/.../.../.../': "; chomp(my $dirname = <STDIN>); opendir (DIR, $dirname) or die "\nError $!\n"; #opens the directory or brings back an error while (my $name = readdir DIR) { next if $name =~ /^\./; #excludes the Files . and .. from the list my @attr = stat($name); if ($attr[7] <= 0) { print "Oimitting Directory $name\n"; } else { my $mtime = localtime($attr[9]); print "$name $attr[7] bytes modified: $mtime\n"; }} closedir DIR;
      - pq
        
        2012-02-24 22:21
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        readdir liefert immer nur den dateinamen ohne pfad. um stat() abzufragen, musst du das verzeichnis noch mit angeben:
        stat("$dirname/$name")
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- hlubenow
  
  2012-02-24 22:21
  User since
  2009-02-22
  877 Artikel
  BenutzerIn
  Am besten geht das wohl mit dem Modul "File::Find", das offenbar zum Perl-Kern gehört (siehe "perldoc File::Find").
  
  Wenn Du so etwas selbst implementieren willst, mußt Du Rekursion verwenden. Ein Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
  
  #!/usr/bin/perl use warnings; use strict; use Cwd; sub myfind { my $wd = shift; my @a = <*>; my @dirs = (); my $i; foreach $i (@a) { $i = "$wd/$i"; if (-d $i) { push(@dirs, $i); } } my $adir; foreach $adir (@dirs) { print "$adir\n"; myfind($adir); } } myfind(getcwd());
  
  Wie Du siehst, ruft die Funktion "myfind()" sich selbst auf. So kommt man an eine unbekannte Anzahl von Unterverzeichnissen, was sonst schwierig wäre.
  
  HTH
  Last edited: 2012-02-24 22:23:21 +0100 (CET)

View all threads created 2012-02-21 17:13.