File: get_lv_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 (9 lines) | stat: -rwxr-xr-x 179 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl
use Linux::LVM;
Linux::LVM->units('G');
# Date: 2012-02-08
%hash = get_lv_info("/dev/vg00/software");

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