查找没有assign到client lpar的disk_niannian-ChinaUnix博客

查找没有assign到client lpar的disk_niannian-ChinaUnix博客

从SAN map到vios的一些盘，由于种种原因，有时候并未assign到lpar，也未做其他用途，久之成为无用的盘，耗费了storage的空间，需要把它们找出来，并删除。这个是找出它们的脚本

#! /usr/bin/perlmy @lsdev_rs = `/usr/ios/cli/ioscli lsdev -type disk | grep -i mpio | awk -F " " '{print \$1}'`;my @lspv_rs = `lspv | awk -F " " '{print \$1}'`;my @lsmap_rs = `/usr/ios/cli/ioscli lsmap -all | grep -i "backing device" | awk -F " " '{print \$3}' | sed -n '/hdisk/p'`;#print @lsmap_rs;sub non_intersect{#my ($array_ref1, $aray_ref2) = @_;my $array_ref1 = shift;my $array_ref2 = shift;my %all_hash = ();my @non_intersec;foreach $em ( @$array_ref1, @$array_ref2 ) {$all_hash{$em} ;}foreach $em ( keys %all_hash ) {if ($all_hash{$em} == 1){push @non_intersec, $em;}}return \@non_intersec;}my $disklist_ref = non_intersect(\@lsdev_rs, \@lsmap_rs);my %disk_uid = ();foreach my $em ( @$disklist_ref ) {chomp $em;my $uid = `lsattr -El $em -a unique_id | awk -F " " '{print \$2}'`;$uid = substr( $uid, 5, 32 );$disk_uid{$em} = $uid;}foreach $k ( keys %disk_uid ){print "$k:$disk_uid{$k}\n";}

结果示例：

# ./detectUselessDisk.pl

hdisk5:600507680280838EC8000000000008E5

hdisk10:600507680280838EC80000000000089D

hdisk8:600507680280838EC80000000000089C

hdisk6:600507680280838EC800000000000899

hdisk3:600507680280838EC800000000000728

hdisk7:600507680280838EC80000000000089B

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。