zarb-ml/mageia-dev/2012-April/014805.html


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

#!/usr/bin/perl

@ARGV == 1 && chdir $ARGV[0] or die "usage: devices.pl <dir>\n";

if ($>) { $sudo = "sudo"; $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; }

foreach (<DATA>) {
    chomp;
    my ($typ, $maj, $min, @l) = split;
    foreach (@l) {
	my @l2 = do {
	    if (my ($prefix, $ini, $end) = /(.*)(\d+)-(\d+)$/) {
		map { "$prefix$_" } $ini .. $end;
	    } else {
		$_;
	    }
	};