flyinweb's blog

通过DELL服务器的序列号，可以在其网站查询到有关该序列号对应的服务器信息，如果服务器过多，逐一查询的工作量比较大，可以通过命令行方式来查询

1、单一序列号查询：

#!/usr/bin/perl -w  
use utf8;  
binmode( STDOUT, ':encoding(utf8)' );  
use LWP::Simple;  
 
if ($#ARGV+1 != 1 ) {  
    print "\nUsage: $0 <sn>\n";  
    exit;  
}  
 
#my $sn = shift;  
my $sn = $ARGV[0];  
print "$sn\n";  
my $url = "http://supportapj.dell.com/support/topics/topic.aspx/ap/shared/support/my_systems_info/zh/cn/details?c=cn&l=zh&s=gen&~ck=anavml&servicetag=$sn";  
my $content = get $url;  
 
my %h = $content =~ m{(系统类型:).*"top">(.*?)<.*(出厂日期:).*"top">(.*?)<.*(国家和地区:).*?"top">(.*?)<};  
 
print $_, $h{$_}, "\n" for keys %h; 

输出：

[root@flyinweb dell]# ./getdellinfobysn.pl  
 
Usage: ./simple.pl <sn>  
[root@flyinweb dell]# ./getdellinfobysn.pl 1rcgw1x   
1rcgw1x  
系统类型:PowerEdge 1850  
国家和地区:China  
出厂日期:2005/12/31 

2、批量查询

可以将序列号存储在文件中，通过脚本读取每一行，然后调用上述脚本通过以下脚本来进行：

#!/usr/bin/perl -w  
# getinfobysn.pl  
use utf8;  
binmode( STDOUT, ':encoding(utf8)' );  
use LWP::Simple;  
 
open(INFILE1, "sn.txt");  
#open(OUTFILE, "+>result.txt")|| die "Cannot open the newfile: $!\n";  
 
foreach $x (<INFILE1>){  
    chomp $x;  
    print "$x\n";  
    my $url ="http://supportapj.dell.com/support/topics/topic.aspx/ap/shared/support/my_systems_info/zh/cn/details?c=cn&l=zh&s=gen&~ck=anavml&servicetag=$x";  
    my $content = get $url;  
 
    my %h = $content =~ m{(系统类型:).*"top">(.*?)<.*(出厂日期:).*"top">(.*?)<.*(国家和地区:).*?"top">(.*?)<};  
    print $_, $h{$_}, "\n" for keys %h;  
    print "\n";  
}  
 
#close  OUTFILE;  
close  INFILE1;  
exit; 

输出：

# 输出  
# [root@flyinweb dell]# ./getinfobysn.pl        
# 41G833X  
# 系统类型:PowerEdge R410  
# 国家和地区:China  
# 出厂日期:2011/3/16  
 
# HKW5Y2X  
# 系统类型:PowerEdge R410  
# 国家和地区:China  
# 出厂日期:2010/8/18