ls -l unter Windows (gelöst) (Windows)

[thread]21687[/thread]

ls -l unter Windows [gelöst]

Tags: windows Ähnliche Threads

Leser: 3

Articles: hide open all | hide show old branches

+11 replies
rosti

2025-08-12 15:29

User since
2011-03-19
3683 Artikel
BenutzerIn

s. Thema. Gibt es da was in Perl? Das Ergebnis muß genauso ausehen wie unter Linux&
http://blog.rolfrost.de/

The art of steam.
- +5 replies
- GwenDragon
  
  2025-08-12 15:59
  
  User since
  2005-01-17
  14861 Artikel
  Admin1
  
  Schau mal nach PerlPowerTools ls Source (habe ich noch nie getestet).
  Last edited: 2025-08-12 16:09:17 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - rosti
    
    2025-08-12 16:09
    
    User since
    2011-03-19
    3683 Artikel
    BenutzerIn
    
    Flüchtiger Blick in die Source:
    
    `powershell ...`
    
    Und das ist für meinen Perl-FTP-Server ungeeignet. Weil das Ergebnis von den FTP-Clients nicht verstanden wird, weil es anders aussieht als unter Linux&
    
    Aber Danke für's Interesse!
    
    Bleibt wohl nur der Eigenbau ;)
    http://blog.rolfrost.de/
    
    The art of steam.
    - +3 replies
    - GwenDragon
      
      2025-08-12 18:36
      
      User since
      2005-01-17
      14861 Artikel
      Admin1
      
      2025-08-12T14:09:11 rosti
      Bleibt wohl nur der Eigenbau ;)
      Da du gern Perl-Module selbst machst, wird das wohl so sein.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - rosti
        
        2025-08-12 18:56
        
        User since
        2011-03-19
        3683 Artikel
        BenutzerIn
        
        2025-08-12T16:36:14 GwenDragon
        2025-08-12T14:09:11 rosti
        Bleibt wohl nur der Eigenbau ;)
        Da du gern Perl-Module selbst machst, wird das wohl so sein.
        
        Muss kein Modul sein. Es genügt eine Funktion ;)
        http://blog.rolfrost.de/
        
        The art of steam.
        
        rosti
        
        2025-08-12 20:04
        
        User since
        2011-03-19
        3683 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use strict; use warnings; use base "Factory"; print main->dir(); # current
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        -rw-rw-rw- 1 usr grp 631 Jul 27 2025 backup.lnk -rw-rw-rw- 1 usr grp 977 Aug 04 2025 dasi_report.lnk -rw-rw-rw- 1 usr grp 1243 Jul 27 2025 files.lnk -rw-rw-rw- 1 usr grp 1127 Jul 28 2025 FreeCell.lnk -rw-rw-rw- 1 usr grp 1093 Aug 10 2025 ftp_server.pl.lnk -rw-rw-rw- 1 usr grp 129 Aug 12 2025 pack.pl -rw-rw-rw- 1 usr grp 67 Aug 06 2025 phones.txt drw-rw-rw- 1 usr grp 0 Aug 01 2025 rechnungen -rw-rw-rw- 1 usr grp 234 Jul 26 2025 Soul Groove Radio.url -rw-rw-rw- 1 usr grp 1313 Jul 28 2025 tools.lnk -rw-rw-rw- 1 usr grp 1088 Jul 27 2025 url_maker.lnk
        
        Windows 11 ;)
        
        Wobei ein paar Angaben gefaked sind, was aber kein Problem ist. Wichtig ist das "d" oder der "-" vornedran, die Größenangaben zu den Dateien und das gesamte Schema.
        http://blog.rolfrost.de/
        
        The art of steam.
- +5 replies
- rosti
  
  2025-08-13 09:08
  
  User since
  2011-03-19
  3683 Artikel
  BenutzerIn
  
  Um die Frage mal etwas konkreter zu stellen:
  
  Wie bekomme ich die Eigenschaften einer Datei unter Windows?
  
  Also Besitzer, Gruppe, Lesen, Schreiben, Ausführen?
  http://blog.rolfrost.de/
  
  The art of steam.
  - +2 replies
  - GwenDragon
    
    2025-08-13 09:21
    User since
    2005-01-17
    14861 Artikel
    Admin1
    
    Ich habe schon lange kein Perl mehr unter Windows benutzt, aber ich nehme an das könnte passen:
    
    Win32
    Win32::API
    Win32::File
    
    Last edited: 2025-08-13 09:23:51 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - rosti
      
      2025-08-13 09:33
      
      User since
      2011-03-19
      3683 Artikel
      BenutzerIn
      
      Danke, da bin ich gerade dran ;)
      
      Mal sehen wie ich damit klarkomme, ist ziemlich knapp die Doku. Und dann wäre das Ergebnis auch noch nach Linux zu übersetzen :)
      http://blog.rolfrost.de/
      
      The art of steam.
  - +2 replies
  - GwenDragon
    
    2025-08-13 09:38
    
    User since
    2005-01-17
    14861 Artikel
    Admin1
    
    stat($filename) reicht da nicht?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - rosti
      
      2025-08-13 10:04
      
      User since
      2011-03-19
      3683 Artikel
      BenutzerIn
      
      2025-08-13T07:38:01 GwenDragon
      stat($filename) reicht da nicht?
      
      Doch doch, für meine Zwecke (FTP-Server auf Windows lokal) reicht das. Da genügen auch gefakte Permissions, es muss nur das Schema ls -l passen, die Größenangabe bei Dateien und das erste Bit ob Datei oder Directory.
      
      Was ich bisher habe:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
      
      # current dir sub dir{ shift; my @names = map{ unpack "A*", $_ } qx(dir /b); my $res = ""; my @months = qw(Jan Feb Mar Apr Mai Jun Jul Aug Sep Oct Nov Dec); foreach my $name(@names){ my $stat = [stat($name)]; my @mtime = localtime $stat->[9]; my $day = $mtime[3]; my $mon = $months[$mtime[4]]; my $year = $mtime[5] + 1900; $res .= sprintf qq(%srw-rw-rw- 1 usr grp %11d %s %02d %04d %s\n), -d $name ? "d" : "-", -f $name ? $stat->[7] : 0, $mon, $day, $year, $name; } return $res; }
      
      Genügt also meinen Ansprüchen. Ticket kann zu ;)
      
      (das habe ich jetzt entschieden)
      
      mfg
      Last edited: 2025-08-13 10:05:43 +0200 (CEST)
      http://blog.rolfrost.de/
      
      The art of steam.

View all threads created 2025-08-12 15:29.