#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $base = $ARGV[0] or die "Must supply a filename to open. $!";

open my $fh, "<", $base or  die "Unable to locate file: $!\n";

my %data;

{
	local $/ = "---- lsattr ";
	while (<$fh>) {
		chomp;
		next unless /^-El\s+(\S+)/;
		my $vg = $1;
		
		next unless /^label\s+(\S+)/m;
		my $label = $1;
		next if $label eq "None";
		
		next unless /^lvserial_id\s+(\S+)/m;
		my $name = $1;
		
		next unless /^size\s+(\d+)/m;
		my $size = $1;
		
		@{ $data{ $vg } }{ qw/ label name size / } = ($label, $name, $size);
		
		#print "VG: $vg : MOUNT: $label : LV_name: $name : SIZE: $size\n";
	}
}

print Dumper \%data;