unix major number ermitteln (Allgemeines zu Perl)

[thread]16674[/thread]

unix major number ermitteln

Tags: perl5 Dateisystem stat Unix Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+8 replies
bora99

2011-08-30 18:07

User since
2009-12-05
54 Artikel
BenutzerIn

hallo,

gibt es mit standard modulen die möglichkeit die "major nr" von
einem unix file zu ermitteln ?

in File::stat habe ich nichts entdeckt:

ich habe nur gefunden :

http://search.cpan.org/~pirzyk/Unix-Mknod-0.04/lib...

dieses modul ist leider nicht installiert.

gruss

modedit Editiert von GwenDragon: Stichworte erweitert
Last edited: 2011-08-31 12:33:34 +0200 (CEST)
- bianca
  
  2011-08-30 18:28
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  2011-08-30T16:07:36 bora99
  dieses modul ist leider nicht installiert.
  
  Warum wird es nicht installiert?
  10 print "Hallo"
  20 goto 10
- GwenDragon
  
  2011-08-30 18:43
  User since
  2005-01-17
  14760 Artikel
  Admin1
  Ich dachte, die major number steht in Array-Eintrag 0 des stat-Ergebnis?
  
  Schnippsel t.pl zum Test:
  
  Code: (dl )
  
  1 2 3 4
  
  my $snum = shift; my $file = shift; my ($i) = (stat $file)[$snum]; print $i;
  
  root@se ~ # stat /dev/null File: `/dev/null' Size: 0 Blocks: 0 IO Block: 4096 character special file Device: 5h/5d Inode: 600 Links: 1 Device type: 1,3 Access: (0666/crw-rw-rw-) Uid: ( 0/ root) Gid: ( 0/ root) Access: 2011-08-27 17:11:24.570047736 +0200 Modify: 2011-08-27 17:11:24.570047736 +0200 Change: 2011-08-27 17:11:24.570047736 +0200 root@se ~ # perl t.pl 0 /dev/null 5 root@se ~ #
  
  //EDIT: Obwohl glaube ich, bei special devices der Eintrag 6 von stat gilt.
  
  Ich bin nicht sicher, ob wir beide dasselbe meinen.
  Last edited: 2011-08-30 18:54:16 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- Dubu
  
  2011-08-30 23:21
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl use strict; use warnings; use File::stat; my $st=stat("/dev/null"); printf "major: %d, minor: %d\n", $st->rdev >> 8, $st->rdev & 0xFF; __END__ major: 1, minor: 3
  - +4 replies
  - bora99
    
    2011-08-31 09:20
    
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    hallo,
    
    von einem file /dev/volumegr/group :
    ll /dev/volumegr/group
    crw-r--r-- 1 root sys 64 0x040000 Oct 8 2007 /dev/volumegr/group
    
    liefert perl ergebnis:
    
    major: 4195328, minor: 0
    
    sollte ergebnis nicht:
    major: 0x040000 , minor: 64
    sein ?
    
    gruss
    - +3 replies
    - GwenDragon
      
      2011-08-31 11:42
      
      User since
      2005-01-17
      14760 Artikel
      Admin1
      
      Das Perl-Programm von Dubu gibt in Dezimal aus (siehe %d format in printf!)
      
      Dubus Programm mit Hex:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      #!/usr/bin/perl use strict; use warnings; use File::stat; my $file=shift || '/dev/null'; my $st=stat($file) or die "Can not stat $file\n"; printf "major: %x, minor: %x\n", $st->rdev >> 8, $st->rdev & 0xFF;
      
      Ich weiß nicht was ll ist, wohl irgendein Alias für ls auf deinem Linux.
      //EDIT: Ich kann /dev/volumegr/group nicht überprüfen aus Mangel an Existenz auf meinem System.
      
      Warum gibst du nicht mal was mit dem Linux-Programm stat als Test aus?
      stat -c "Minor %T (hex) Major %t (hex)" /dev/volumegr/group
      
      //EDIT:
      Test:
      root@se ~ # perl t.pl /dev/ppp major: 6c, minor: 0 root@se ~ # stat -c "Minor %T (hex) Major %t (hex)" /dev/ppp Minor 0 (hex) Major 6c (hex) root@se ~ #
      Last edited: 2011-08-31 11:50:52 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - bora99
        
        2011-08-31 14:09
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        hallo,
        
        vorab zu "ll" , es ist ein unix command fuer anzeige von file mit attributen , auch als "ls -al" bekannt
        
        ich habe jetzt die lösung gefunden :
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        $st=stat("/dev/volumegr/group"); printf "%d 0x%06.6x\n", ($st->dev >> 24) & 0xff, $st->rdev & 0xffffff; __END__
        
        danke
        
        modedit Editiert von GwenDragon: Perl-Formatierung für Code
        Last edited: 2011-08-31 14:27:13 +0200 (CEST)
        
        GwenDragon
        
        2011-08-31 14:31
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        Da ll auf den Systemen ein Shell-Alias für ls $LS_OPTIONS -l ist, kann es auf jedem System je nach der Umgebungsvariable LS_OPTIONS verschieden angezeigt werden.
        Ich kann jedenfalls so keine Anzeige mit Hexzahlen wie bei dir sehen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-08-30 18:07.