Windows Dateiattribute abfragen (gelöst) (Allgemeines zu Perl)

[thread]15913[/thread]

Windows Dateiattribute abfragen [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+9 replies
bianca

2011-02-01 14:48
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Tag!
Würde gern nochmal auf das Thema zurück kommen, da ich denke, dass das eine Bremse in meinem Script ist.

Wie könnte man folgenden Code durch anderen mit dem gleichen Ergebnis ersetzen?
Code (perl): (dl )

1 2 3

if (substr (`attrib $pfad_datei`,0,1) eq 'A') { print "Datei hat das Archiv-Attribut\n"; }
Bitte NICHT Win32::File empfehlen, das arbeitet nicht, wie ich mir das vorstelle, da die Funktion GetAttributes() bei mir immer 1 liefert siehe windows attrib mit perl?.

Danke Euch
10 print "Hallo"
20 goto 10
- +5 replies
- Linuxer
  
  2011-02-01 15:13
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Win32::File funktioniert hier anstandslos:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #! /usr/bin/perl use strict; use warnings; use Win32::File qw( ARCHIVE HIDDEN ); my $attrib; if ( Win32::File::GetAttributes( $0, $attrib ) ) { print "$0 has to be archived.\n" if $attrib & ARCHIVE; print "$0 is hidden.\n" if $attrib & HIDDEN; } else { print "Could not get attributes for $0.\n"; }
  
  Tested (WinXP SP3):
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  D:\temp>attrib archive.pl A H D:\temp\archive.pl D:\temp>perl archive.pl archive.pl has to be archived. archive.pl is hidden. D:\temp>attrib -a archive.pl Versteckte Datei wird nicht zurückgesetzt - D:\temp\archive.pl D:\temp>perl archive.pl archive.pl has to be archived. archive.pl is hidden. D:\temp>attrib -ha archive.pl Unzulässige Option - -ha D:\temp>attrib -h -a archive.pl D:\temp>perl archive.pl D:\temp>
  
  Worin besteht das Problem?
  
  edit: Code modified; check GetAttributes for succcess.
  Last edited: 2011-02-01 15:19:39 +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
  - bianca
    
    2011-02-01 16:25
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Stimmt!
    Dein Code klappt auch bei mir.
    
    Warum klappt mein damaliger Code auch heute (noch) nicht?
    Wichtig ist, ein Nichtvorhandensein des Moduls darf nicht zum Scriptabbruch führen, daher verwende ich kein "normales" use. Hat das vielleicht damit zu tun?
    Habe sowohl | als auch & in Zeile 14 versucht. Bringt immer true. Warum?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    #!/usr/bin/perl -w use strict; use warnings; my $errorbindings; BEGIN { eval "use Win32::File qw/ ARCHIVE /"; if ($@) { $errorbindings = $@; } } if (!$errorbindings) { Win32::File::GetAttributes('$0', my $attributes); if ( $attributes | ARCHIVE() ) { print "Attribut fuer $0 ist gesetzt\n"; } } else { print "Schrott: >$errorbindings<\n" }
    
    Editiert von bianca: Typo
    Last edited: 2011-02-01 16:28:00 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Linuxer
      
      2011-02-01 16:37
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Du hast eine Datei, die wirklich $0 heisst?
      
      Wenn nicht, frage ich mich, warum Du die Interpolation der Variable $0 verhinderst? (Zeile 13: Verwendung von '$0')...
      
      Die korrekte Prüfung wäre IMHO dann mit & durchzuführen.
      
      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!
      - bianca
        
        2011-02-01 16:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ach Du Schande, das war ja damals auch schon falsch.
        Meine Güte. Wald vor lauter Bäumen....
        
        Danke Dir!
        Klappt jetzt!
        10 print "Hallo"
        20 goto 10
    - GwenDragon
      
      2011-02-01 17:14
      
      User since
      2005-01-17
      14785 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      #!/usr/bin/perl -w use strict; use warnings; my $errorbindings; BEGIN { eval "use Win32::File qw/ :DEFAULT /"; if ($@) { $errorbindings = $@; } } if (!$errorbindings) { if (Win32::File::GetAttributes("$0", my $attributes)) { if ( $attributes & SYSTEM ) { print "Attribut S fuer $0 ist gesetzt\n"; } } } else { print "Schrott: >$errorbindings<\n" }
      
      geht wenn ich das Dateiattribut des Perprogramms auf System setze.
      
      Editiert von GwenDragon: Tabs neu gesetzt
      Last edited: 2011-02-01 17:16:18 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- bianca
  
  2011-02-02 10:58
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Habe das übrigens gerade mal grob mit time() gemessen.
  
  1334 Dateien
  attrib Methode: 53-56 Sekunden
  Modul Methode: nicht mal 1 Sekunde
  
  Lohnt sich also.
  Nochmal Danke!
  
  Edit: Und was ich noch festgestellt habe: Die Methode if (substr (`attrib $datei`,0,1) eq 'A') funktioniert NICHT bei Dateienamen die Blanks enthalten!
  
  Editiert von bianca: Zusatz
  Last edited: 2011-02-02 11:13:49 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - GwenDragon
    
    2011-02-02 11:22
    User since
    2005-01-17
    14785 Artikel
    Admin1
    
    Wenn du $datei noch in \" setzt, klappt es. Unter Windows Konsole müssen Dateinamen, die Leerzeichen enthalten in Anführungszeichen.
    
    Schnippsel:
    
    Code (perl): (dl )
    
    `attrib \"$datei\"`
    
    Last edited: 2011-02-02 11:35:24 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2011-02-02 11:33
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Stimmt! Klappt!
      Hab ich das auch gleich korrigiert. Danke Dir.
      Die Methode benutze ich als Backup, falls das Modul nicht da ist.
      10 print "Hallo"
      20 goto 10

View all threads created 2011-02-01 14:48.