map + readdir (Allgemeines zu Perl)

[thread]13386[/thread]

map + readdir

Leser: 15

Articles: hide open all | hide show old branches

+19 replies
roooot

2009-04-15 22:34
User since
2008-03-03
276 Artikel
BenutzerIn
Hi, wollte man was anderes probieren und das Verzeichnis mal nicht mit while auslesen sondern folgendes probieren:
Code (perl): (dl )

1 2 3 4 5 6 7

opendir my $LOGDIR, qq{./+logs/~$uid}; my @logs = map ( do { $_ if $_ !~ m/^\./xms } , readdir $LOGDIR); closedir $LOGDIR;
Aber das ganze funktioniert so nich. Wieso denn nicht? Laut Perldoc muss man wenn man ein Array anstatt eines Hashes haben will ein map (foo($_), @array) schreiben. Allerdings ist meine Ausgabe _IMMER_ leer :(

Danke für eure Hilfe
Last edited: 2009-04-15 22:56:11 +0200 (CEST)
Viele Grüße :)
- +13 replies
- pq
  
  2009-04-15 23:00
  User since
  2003-08-04
  12208 Artikel
  Admin1
  hm, ich glaube, du willst eher grep statt map, oder? leider hast du nicht geschrieben, was für ein ergebnis du willst, aber wenn ich raten darf:
  
  Code (perl): (dl )
  
  my @logs = grep { not m/^\./xms } readdir $LOGDIR;
  
  mit map ginge es nur so:
  
  Code (perl): (dl )
  
  my @logs = map { m/^\./xms ? () : $_ } readdir $LOGDIR;
  
  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
  - +12 replies
  - roooot
    
    2009-04-15 23:07
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    argh sorry pq, nun habe ich beim ewigen Rumeditieren den essentiellen Teil rausgelöscht, der die Problemstellung von grep unterscheidet. Mit grep könnte ich theoretisch ja alle . / .. Dateien rausfiltern. Ich will bei den gefundenen dann aber nach der Filterung noch die Dateiendung .log entfernen.
    
    Der Code, wie er eignetlich lauten sollte:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    opendir my $LOGDIR, qq{./+logs/~$uid}; my @logs = map ( do { if($_ !~ m/^\./xms) { $_ =~ s/\.log//xms; } } , readdir $LOGDIR); closedir $LOGDIR;
    
    Viele Grüße :)
    - +3 replies
    - Linuxer
      
      2009-04-15 23:12
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Was ist hiermit?
      
      Code (perl): (dl )
      
      my @logs = map { s/\.log$//; $_ } grep { !m/^\./ } readdir $LOGDIR;
      
      edit: '.' maskiert
      Last edited: 2009-04-15 23:29:32 +0200 (CEST)
      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
      - roooot
        
        2009-04-15 23:18
        
        User since
        2008-03-03
        276 Artikel
        BenutzerIn
        
        Jaa. das sieht gut aus, findet nur leider immer noch keine Dateien :(
        
        Code: (dl )
        
        1 2 3
        
        dir +logs/~001: 2009-03.log 2009-04.log
        
        Das sind die Dateien im Verzeichnis
        Viele Grüße :)
        
        Linuxer
        
        2009-04-15 23:30
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Hi,
        sorry, bug im code. ist korrigiert.
        
        in den regex muss der . maskiert sein!
        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
    - pq
      
      2009-04-15 23:15
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wozu brauchst du denn den do-block?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      # ungetestet my @logs = map { unless (m/^\./xms) { $_ =~ s/\.log//xms; $_ } else { () } } readdir $LOGDIR;
      
      wichtig ist, wie ich schon zeigte, dass du eine leere liste übergibst, wenn du filtern willst, und dass du $_ übergibst, wenn du es haben willst.
      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
      - roooot
        
        2009-04-15 23:22
        
        User since
        2008-03-03
        276 Artikel
        BenutzerIn
        
        Jop, das funzt. Ich danke euch mal wieder :)
        Viele Grüße :)
    - +6 replies
    - Gast wer
      
      2009-04-15 23:16
      
      Code (perl): (dl )
      
      1 2 3
      
      opendir my $LOGDIR, qq{./+logs/~$uid} or die "$!"; my @logs = map { !m/^\./ ? s/\.log// : () } readdir($LOGDIR); closedir($LOGDIR);
      - +4 replies
      - pq
        
        2009-04-15 23:19
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Guest wer
        
        Code (perl): (dl )
        
        map { !m/^\./ ? s/\.log// : () }
        
        das kann so auch nicht funktionieren. der substitutionsoperator gibt als ergebnis die anzahl der ersetzungen zurück.
        man muss in so einem fall $_ explizit zurückgeben, wie ich es in meinem beispiel gezeigt habe.
        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
        
        Gast wer
        
        2009-04-15 23:21
        
        Besserwissender! ;-)
        
        pq
        
        2009-04-15 23:23
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Guest wer
        Besserwissender! ;-)
        
        s/der/de/
        muss schon alles seine richtigkeit haben =)
        
        edit: http://xkcd.com/386/
        Last edited: 2009-04-15 23:30:40 +0200 (CEST)
        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
        
        roooot
        
        2009-04-15 23:24
        
        User since
        2008-03-03
        276 Artikel
        BenutzerIn
        
        Ist sie nicht eine sie?
        
        /e s/\?/\!/
        Viele Grüße :)
      - roooot
        
        2009-04-15 23:21
        
        User since
        2008-03-03
        276 Artikel
        BenutzerIn
        
        Das gibt 1 aus.
        Viele Grüße :)
- +3 replies
- Linuxer
  
  2009-04-15 23:05
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Find ich seltsam, ein Verzeichnis mit while() auszulesen, aber jedem, wie er's mag.
  
  Normalerweise würd ich das so machen:
  
  Code (perl): (dl )
  
  my @files = readdir $DIRHANDLE;
  
  Dann sollte ein opendir auf Erfolg geprüft werden, was Du auch nicht tust...
  
  Auf welche Perldoc beziehst Du Dich mit Deiner Aussage?
  So ganz schlüssig scheint mir das nicht...
  
  Dann würde ich persönlich die Block Variante des map benutzen:
  
  Code (perl): (dl )
  
  my @array = map { $action } readdir $DIRHANDLE;
  
  So, und zu guter Letzt:
  Was willst Du denn tun? Leider hast Du Deinen Code abgeändert, während ich meine Antwort formulierte.... Daher spar ich mir erstmal weiteres. Denn der neue Code scheint gänzlich anderes tun zu sollen als der vorige...
  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!
  - pq
    
    2009-04-15 23:10
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2009-04-15T21:05:28 Linuxer
    Leider hast Du Deinen Code abgeändert, während ich meine Antwort formulierte....
    
    vielleicht sollte ich bei der edit-funktion mal einen hinweis unterbringen, dass man darauf achten soll, wichtige änderungen anzumerken oder anstatt code auszutauschen, den neuen nur hinzuzufügen. das ist leider immer die gefahr einer edit-funktion... (versionierung wäre cool... =)
    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
  - roooot
    
    2009-04-15 23:10
    User since
    2008-03-03
    276 Artikel
    BenutzerIn
    
    ja habe heute einen nervösen Zeigefinger. Ich habe die Problemstellung in meinem zweiten Post klargemacht - hoffe ich.
    
    Das mit while habe ich vor Ewigkeiten (~5 Jahren oder so) als ich mit Perl begonnen habe so gelernt und daran gewöhnt. Beispielsweise habe ich es immer so gemacht
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n"; while( ($filename = readdir(DIR))){ print("$filename\n"); } closedir(DIR);
    
    Ich bezog mich natürlich auf die Perldoc von map.
    
    Ich prüfe einen open/opendir Vorgang auf Erfolg immer beim Schließen, da ich gelesen habe, dass der close auch fehlschlägt wenn print Versuche auch fehlschlagen. Trifft das nicht zu?
    Last edited: 2009-04-15 23:12:31 +0200 (CEST)
    Viele Grüße :)
- +2 replies
- Gast wer
  
  2009-04-15 23:09
  Code (perl): (dl )
  
  1 2 3
  
  opendir(my $LOGDIR, "./+logs/~$uid") or die "$!"; my @logs = map {!/^\./xms ? $_ : "" } readdir($LOGDIR); closedir($LOGDIR);
  
  oder willst du eher sowas?:
  
  Code (perl): (dl )
  
  1 2 3
  
  opendir(my $LOGDIR, "./+logs/~$uid") or die "$!"; my @logs = grep { !/^\./xms } readdir($LOGDIR); closedir($LOGDIR);
  - pq
    
    2009-04-15 23:12
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    der leerstring bei deiner map-lösung ist da wohl falsch, das muss eine leere klammerung sein wie in meinem beispiel. sonst hat man leerstrings in der ergebnisliste.
    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

View all threads created 2009-04-15 22:34.