aix lspv tester

exp/lspv.pl

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $lspv = "/usr/sbin/lspv";
+
+open LSPV, "$lspv|" or die;
+my(@lspv) = <LSPV>;
+close LSPV;
+
+my $dlm = ("-" x 25) . "\n";
+
+print "$lspv\n", @lspv;
+print $dlm;
+
+for my $line (@lspv) {
+    my $disk = (split /\s+/, $line)[0];
+    next unless $disk;
+    next if $line =~ / None/;
+    my $cmd = "$lspv -l $disk";
+    open LSPV, "$cmd|" or die;
+    my(@pv) = <LSPV>;
+    close LSPV;
+    print "$cmd\n", @pv;
+    print $dlm;
+}