glabel-map

#!/usr/bin/env perl

use strict;
use warnings;

## main ()

my %gpt_map = get_gpt_map();

while (my $line = <STDIN>) {
  $line =~ s{(gpt(?:id)?/\S+)}{
    my $k = $1;
    my $l = length ($k);
    my $v = exists $gpt_map{$k} ? $gpt_map{$k} : $k;
    sprintf("%-${l}s", $v);
  }egx;
  print $line;
}

## subroutines

sub get_gpt_map {
  my %map;
  open(GLABEL, "/sbin/glabel status |") or die $!;
  while (my $line = <GLABEL>) {
    chomp $line;
    if ($line =~ m%\s*(\S+)\s+(\S+)\s+(\S+)%) {
      my ($id, $status, $component) = ($1, $2, $3);
      next if $id eq 'Name';
      $map{$id} = $component;
    }
  }
  close(GLABEL);
  return %map;
}

$ zpool status | glabel-map