- 论坛徽章:
- 0
|
最近学习了一下perl，作为文本处理语言真的比较强大。
今天做了一个还不完善的小程序，来查看已经连接存储的HBA卡的wwn号，应该还算是有点实际作用，分享给大家。
HBA-WWN.rar
(429 Bytes, 下载次数: 33)
ps：（达人请略过）上传到unix主机上，运行perl filename，即可。
#!/usr/bin/perl -w
$ENV{'LANG'} = "en_US";
my %HBAWWN;
foreach(`luxadm -e port`){
if(/^\S+\s+\bconnected\b/i){
my $addr = (split)[0];
$HBAWWN{$addr} = "undefined";
foreach(`luxadm -e dump_map $addr`){
if(/\bhost\s+bus\s+adapter\b/i){
$HBAWWN{$addr} = (split)[4];
}
}
}
}
printf "\n%-65s%s\n","HBA Device Path","Port WWN";
print "-" x 80 ."\n";
while(($key,$value) = each %HBAWWN){
printf "%-65s%s\n", $key, $value;
}
print "-" x 80 ."\n\n";
print " Created by dabay\@sina.com\n Welcome to visit www.webbeach.com\n\n"; |
[ 本帖最后由 dabay 于 2008-11-26 19:44 编辑 ] |
评分
-
查看全部评分
|
免费注册
发表于 2008-11-25 20:28
