unix major number ermitteln - #151977 (Allgemeines zu Perl)

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 )

#!/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