Chinaunix

标题: 获得HBA卡的wwn号 [打印本页]

作者: dabay 时间: 2008-11-25 20:28
标题: 获得HBA卡的wwn号
最近学习了一下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-26 15:22
厉害。活学活用。

作者: yuhuohu 时间: 2008-11-26 17:14
感谢分享

作者: dabay 时间: 2008-11-26 20:31
修改了一下，把LANG变量设置进去了，因为有一些机器默认是中文。

作者: 风之幻想 时间: 2008-11-27 09:24

原帖由 dabay 于 2008-11-26 20:31 发表
修改了一下，把LANG变量设置进去了，因为有一些机器默认是中文。

哈哈。又改进了。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)