Drvial

在perl语言中，几个特殊而常用的符号： q 是单引号 qq 是双引号 qw 单词列表引号 qr 正则表达式引号 qx 反引号 其中qq，qw又较为常用。 qq{foobar}的意思为意思为双引号字符串，可内插变量,相当于 "foobar" qw{foo bar}的意思为用空格分解字符串，得到列表，相当于如下语句 split(' ','foo bar') 得到的结果是'...

#!/usr/bin/perl #Version 0.2 #2011.5.31 use Encode; use Net::Telnet::Cisco; use Spreadsheet::WriteExcel; open HOST,"</home/host.txt"; open IP,"</home/iplist.txt"; ...