equal
deleted
inserted
replaced
2 |
2 |
3 use strict; |
3 use strict; |
4 use warnings; |
4 use warnings; |
5 use File::Find; |
5 use File::Find; |
6 |
6 |
7 sub ff($$) { |
7 sub ff($$); |
8 my ($dir, $id) = @_; |
|
9 my $found; |
|
10 find( |
|
11 sub { |
|
12 return if $found; |
|
13 $found = (stat)[6] == $id ? $File::Find::name : undef; |
|
14 return; |
|
15 }, |
|
16 $dir |
|
17 ); |
|
18 return $found; |
|
19 } |
|
20 |
8 |
21 sub info($\%) { |
9 sub save($\%) { |
22 my ($file, $part) = @_; |
10 my ($file, $part) = @_; |
23 |
11 |
24 foreach (`blkid -c /dev/null`) { |
12 foreach (`blkid -c /dev/null`) { |
25 my ($dev) = (split /:/)[0]; |
13 my ($dev) = (split /:/)[0]; |
26 |
14 |
45 } |
33 } |
46 |
34 |
47 } |
35 } |
48 } |
36 } |
49 |
37 |
|
38 sub ff($$) { |
|
39 my ($dir, $id) = @_; |
|
40 my $found; |
|
41 find( |
|
42 sub { |
|
43 return if $found; |
|
44 $found = (stat)[6] == $id ? $File::Find::name : undef; |
|
45 return; |
|
46 }, |
|
47 $dir |
|
48 ); |
|
49 return $found; |
|
50 } |
|
51 |
50 1; |
52 1; |
51 # vim:sts=4 sw=4 aw ai si: |
53 # vim:sts=4 sw=4 aw ai si: |