File: get_pv_info.pl

package info (click to toggle)
liblinux-lvm-perl 0.17-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 204 kB
  • sloc: perl: 380; makefile: 6
file content (12 lines) | stat: -rwxr-xr-x 194 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
use Linux::LVM;
Linux::LVM->units('G');
use Data::Dumper;
 
%hash = get_pv_info("/dev/hdd1");

print Dumper(\%hash);

foreach(sort keys %hash) {
    print "$_ = $hash{$_} \n";
}