Add SAN disks to VxVM

add_disks.pl

#!/usr/bin/perl -w

use Getopt::Std;

getopt('dig', \%opts);

die("\nUsage: $0 -d <file with disks to add> -i <file with inq output> -g <diskgroup name>\n\n")  
	unless (defined $opts{d} && $opts{i} && $opts{g});


open(D, "<$opts{d}") || die "Can't open $opts{d}: $!\n";
open(I, "<$opts{i}") || die "Can't open $opts{i}: $!\n";

while(<D>) {
	chomp;
	push @d, $_;
}
close(D);

while(<I>) {
	($disk, $sn) = (split)[0, 5];
	
	if(/dsk/) {
		$disk =~ s,/dev/rdsk/,,;
		$sn =~ s/^....(...*?)...$/$1/;
		$i{$disk} = $sn;
	}
}
close(I);

foreach $disk (@d) {
	$orig = $nos2 = $disk;
	$nos2 =~ s/s2$//;	
	$disk =~ s/c.*?t/emc_t/;
	$disk =~ s/s2$//;
	
	print "/usr/sbin/vxdg -g $opts{g} adddisk $disk\_$i{$orig}=$nos2\n";
}