Die "Größe auf Datenträger" einer Datei auf Windows ermitteln (Allgemeines zu Perl)

[thread]20135[/thread]

Die "Größe auf Datenträger" einer Datei auf Windows ermitteln

Tags: perl5 windows stat Größe auf Datenträger du.exe diskusage Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+14 replies
bianca

2016-08-15 07:50

User since
2009-09-13
7016 articles
BenutzerIn

Guten Morgen!

Wie es der Titel sagt möchte ich gern mit Perl 5.X auf Windows die Größe auf Datenträger einer Datei ermitteln.
(stat())[7] liefert leider nur die Anzahl Byte in der Datei.
Hab ein Bild angehängt was es veranschaulicht.

Derzeit behelfe ich mir mit du.exe, was aber auch Mist ist, weil man damit nicht einzelne Dateien ausnehmen kann, wie z. B. die Datei pagefile.sys für den erweiterten Arbeitsspeicher.

Bin für jeden Hinweis dankbar. Ich bin da schon so lange dran, dass ich jetzt nicht mehr aufzählen kann, was ich schon alles probiert habe. Daher bitte ich wirklich um jede Idee und mag sie auch noch so unrelevant erscheinen.

Danke
Attachments

image/png
391 x 553

groesse_auf_datentraeger.png

10 print "Hallo"
20 goto 10
- +8 replies
- GwenDragon
  
  2016-08-15 12:05
  User since
  2005-01-17
  14741 articles
  Admin1
  Möglichkeit:
  1. Über Win32::DriveInfo die Blockgröße des Laufwerks holen
  2. Dann mit CORE::stat() die Dateigröße in Bytes der Datei.
  3. Dann die Dateigröße auf die Blockgröße aufrunden.
  
  Ungetestetes 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
  
  use Win32::DriveInfo; my $file = 'C:\test\file.txt'; sub fileSizeBlocks { my $file = shift; my ($drive) = $file =~ /^([A-Z])/; my ( $SectorsPerCluster, $BytesPerSector ) = ( Win32::DriveInfo::DriveSpace($drive) )[ 0, 1 ]; my $blockSizeBytes = $SectorsPerCluster * $BytesPerSector; my $fileSizeBytes = ( stat($file) )[7]; my $blocks = int( $fileSizeBytes / $blockSizeBytes ); $blocks++ if ( $fileSizeBytes % $blockSizeBytes ); return $blockSizeBytes * $blocks; } say "Datei '$file' ist ", fileSizeBlocks($file), " groß";
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - bianca
    
    2016-08-15 13:09
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Sehr coole Idee, danke dir!
    Nachher probiere ich mal aus, wie performant das ist. Das muss nämlich z. B. auch über c:\ laufen und darf dafür nicht tagelang brauchen :)
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - Raubtier
      
      2016-08-15 13:58
      
      User since
      2012-05-04
      1075 articles
      BenutzerIn
      
      2016-08-15T11:09:47 bianca
      Sehr coole Idee, danke dir!
      Nachher probiere ich mal aus, wie performant das ist. Das muss nämlich z. B. auch über c:\ laufen und darf dafür nicht tagelang brauchen :)
      
      Wieso sollte es da Performanceprobleme geben? Die Blockgröße des Laufwerks ändert sich ja nicht, du brauchst sie also nur 1x am Anfang zu berechnen.
      - +2 replies
      - bianca
        
        2016-08-15 14:48
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Weil das Rechnen an sich für jede einzelne Datei gemacht werden muss. Allein Windows hat um die 90.000 Dateien. Und darin ist noch keine einzige Anwendung enthalten.
        Aber warten wir ab, ich bin gespannt. Vor allem bin ich auf den Unterschied HDD gegen SSD gespannt, ob das auch einwirkt.
        10 print "Hallo"
        20 goto 10
        
        Raubtier
        
        2016-08-15 15:31
        
        User since
        2012-05-04
        1075 articles
        BenutzerIn
        
        Ich wette:
        
        Die Berechnung Dateigröße -> Größe auf Datenträger ist um mehrere Größenordnungen schneller als das IO der Festplatte und ist somit ziemlich irrelevant.
        
        Festplatte vs. SSD sollte einen riesigen Unterschied machen.
        
        Und ich weiß jetzt nicht, wie Windows seinen Cache verwaltet, aber aus dem Cache vs. neu von Festplatte gelesen sollte ebenfalls einen erheblichen Unterschied machen.
  - +3 replies
  - bianca
    
    2016-08-15 19:28
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Klappt an sich ganz gut. Aber bereits auf einer relativ kleinen Menge Dateien ergeben sich 4 Differenzen im Vergleich zu du.exe.
    Und zwar ermittelt du.exe jeweils 1 Block respektive 4096 Byte mehr als stat() immer dann, wenn die Anzahl Byte in der Datei ohne Rest durch die Blockgröße (4096) teilbar ist. Ob das ein Rechenfehler in du.exe ist?
    Auf jeden Fall ist das Ergebnis im Explorer und dem Perlscript gleich. Die stimmen also überein.
    
    Jetzt möchte ich zur Kontrolle mal Win32API::File::getFileSize() probieren, habe da aber folgende Frage zu: Dateigröße mit Win32API::File ermitteln
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - GwenDragon
      
      2016-08-15 19:58
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Ich hab keine Ahnung, was du.exe da macht.
      
      Meine geschilderte Logik passt aber doch.
      Wenn der Block 1024 Byte ist dann:
      1 Byte = 1 Block
      1024 Byte = 1 Block
      1025 Byte = 2 Blocks
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - bianca
        
        2016-08-15 20:12
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Ja an dir und deinem Code liegt das wahrscheinlich nicht.
        Explorer == dein Code
        Nur du.exe ermittelt mehr. Und die Fälle in denen es mehr ermittelt lässt vermuten, dass es einen Bug hat.
        Das ist doof, weil du.exe bisher mein Referenz- und Kontrollwert war. Es ist schließlich von MS selbst.
        
        Daher möchte ich eine vierte Variante nutzen --> Dateigröße mit Win32API::File ermitteln.
        Wenn dann 3 gleich sind haben die gewonnen. Ansonsten geht die Suche weiter.
        10 print "Hallo"
        20 goto 10
- +5 replies
- bianca
  
  2016-08-16 06:36
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Ich glaube, ich muss von allen Perl Ansätzen weg. Jetzt ist nämlich das nächste Problem die Unterscheidung zwischen einem Verzeichnis und einem Link. Beispiel: c:/Programme. Das gibt es in der selben Schreibweise als Verzeichnis und als Link und -l schlägt leider nicht wie erwartet an, stattdessen liefert opendir() ein lapidares Invalid argument. Und selbst wenn es anschlagen würde wüsste ich im Moment nicht, wie ein Perl Script unterscheiden sollte, ob das eine oder das andere gemeint ist!?
  
  Werde mir wohl bei nächster Gelegenheit mal die PowerShell anschauen müssen, um das Problem zu lösen.
  Attachments
  
  image/png
  229 x 440
  
  eintrag_programme.png
  
  10 print "Hallo"
  20 goto 10
  - GwenDragon
    
    2016-08-16 09:40
    
    User since
    2005-01-17
    14741 articles
    Admin1
    
    Das zweite Verzeichnis Programme ist auch kein Symlink sondern wohl eine Windows-Junction.
    Zudem zeigt der Explorer auch nicht immer die pyhsikalischen Dateinamen an wie du mit dir in der Konsole nachprüfen kannst.
    
    Dass -l unter Windows nicht so richtig mag, steht auch in perldoc perlport
    http://perldoc.perl.org/perlport.html#-X
    
    Windows ist so ein unsortiertes "Betriebssystem" für sich.
    Du musst wohl auf Win32API oder Powershell ausweichen.
    
    Da weiß ich auch nix mehr für dich, weil ich mit Perl zu wenig so tief im Dateisystem arbeite bei Windows.
    Den Python-Leuten gehts auch nicht besser mit dem Windows-Durcheinander von NTFS-Junction, Verknüfpung und Symlink, die müssen auch eigene Module stricken, im Core ist da auch nix.
    
    Mit Windows arbeiten zu müssen ist oft Vergeudung von Freizeit und Lebenszeit. :(
    Last edited: 2016-08-16 09:54:10 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Raubtier
    
    2016-08-16 15:06
    
    User since
    2012-05-04
    1075 articles
    BenutzerIn
    
    Vielleicht hilft dir das weiter:
    https://stackoverflow.com/questions/2483010/how-to...
    bzw. Win32API::File::GetFileAttributes in Perl.
    
    Müsste meinen Windows-Rechner mal wieder rauskramen, um das zu testen.
    - +2 replies
    - bianca
      
      2016-08-16 18:48
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      2016-08-16T13:06:22 Raubtier
      Vielleicht hilft dir das weiter:
      https://stackoverflow.com/questions/2483010/how-to...
      bzw. Win32API::File::GetFileAttributes in Perl.
      
      Danke dir! Das benutze ich bereits an einer anderen Stelle aber wie sag ich Perl beim opendir(), dass das eine c:\Programme gemeint ist und nicht das andere?
      
      2016-08-16T13:06:22 Raubtier
      Müsste meinen Windows-Rechner mal wieder rauskramen, um das zu testen.
      
      Nö nimm eine Virtualisierung.
      10 print "Hallo"
      20 goto 10
      - GwenDragon
        
        2016-08-16 19:30
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Es gibt doch nur ein physikalisches dieses Namens!
        Ein Symlink oder eine Junction kann nicht den selben Namen wie ein existentes Datei/Verzeichis tragen.
        Das was dir im Explorer angezeigt wird, steht in der ominösen versteckten desktop.ini.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2016-08-15 07:50.