5 use Data::Dump qw(dump);
7 my ($before, $delimiter, $after) = ( ''=>' | '=> "\n" ); # double space for display
8 ($before, $delimiter, $after) = ( '"'=>'","'=> '"'."\n" ) if @ARGV;
11 open(my $zpool, '-|', 'zpool status');
16 $name = $1 if /^\s+pool:\s(\S+)/;
17 $vdev = $1 if /^\s+(raid\S+|spare|log|cache)/;
18 $zfs->{$1} = join(' ', $name, $vdev) if /^\s+(sd\S+)/;
20 warn "# zfs ",dump($zfs);
23 open(my $mdstat, '<', '/proc/mdstat');
26 if ( m/(md\d+)\s+:\s+active\s+(\S+)\s+(.+)/ ) {
27 my ( $nr, $raid ) = ( $1, $2 );
28 foreach my $dev ( split(/\s+/, $3) ) {
29 my $d = $1 if $dev =~ m{(sd\w+)\d+};
30 $md->{$d} = "$nr $raid $dev";
34 warn "# md ",dump($md);
36 open(my $lsscsi, '-|', 'lsscsi --size -v');
38 print $before, join($delimiter, qw(id type name dev size pert_of path) ), $after;
40 while(my $line = <$lsscsi>) {
44 my @l = $line =~ m{(^\S+)\s+(\S+)\s+(.+)\s+(\S+)\s+(\S+)};
51 exists $zfs->{$dev} ? $zfs->{$dev} :
52 exists $md->{$dev} ? $md->{$dev} :
57 push @l, $1 if $v =~ m/\[(.+)\]/;
58 print $before,join($delimiter,@l),$after;