aix43cpu利用率采集.docVIP

use aris; use IO::Socket; dispatchCmds(); #========================================================================= #以下四个函数分别是命令集合，结果分析，输入参数，输出参数，需要定制 #========================================================================= #命令集合 sub dispatchCmds{ #该参数必须选定 my $script_type=0;#脚本类型，0为执行命令的脚本，1为局数据备份脚本 #执行命令脚本请填写以下参数 my $pattern1= ---- More ----;#分页显示的提示符 my $pattern2=[\$#] ?$;#命令执行的提示符 my $timeout=10;#超时等待时间 my $cmdName=[vmstat 1 5];#待发送的命令数组 #局数据备份脚本请填写以下参数 my $backup_type=ciscoCommand; perlTemplate({ ScriptType=$script_type, Pattern1=$pattern1, Pattern2=$pattern2, Timeout=$timeout, CmdName=$cmdName, BackupType=$backup_type }); } #输入参数 sub inputArgvFile{ my $fileName=substr($0,length($path))..in; my @inputArgv; push (@inputArgv,中文释义\t\t\t参数名称\t参数类型\t有效值范围\n); push (@inputArgv,是否测试标志位\t\t\tTest_Flag\t布尔类型\t(false为不测试，true为测试)\n); push (@inputArgv,是否监视\t\t\tMonitor_Flag\t布尔类型\t(false为不监视，true为监视)\n); push (@inputArgv,消息服务器ip地址\t\taddress\t\t字符串类型\t有效的IP地址\n); push (@inputArgv,消息服务器使用socket通信端口\tport\t\t整数\t\t有效的端口值\n); push (@inputArgv,客户端标识ID\t\t\tClient_ID\t字符串\t\t符合格式要求的客户端ID\n); push (@inputArgv,要访问的设备IP地址\t\tDevice_IP\t字符串类型\t有效的IP地址\n); push (@inputArgv,登录SASS(NSS)系统的用户名称\tSASS_Username\t字符串\t\t可用的用户名\n); push (@inputArgv,登录SASS(NSS)系统的用户口令\tSASS_Password\t字符串\t\t与用户名匹配的用户密码\n); open (FILE,$path.$fileName); print FILE @inputArgv; close(FILE); print @inputArgv; } #输出参数 sub outputArgvFile{ my $fileName=substr($0,length($path))..out; my @outputArgv; push(@outputArgv,cpu利用率=int,%,cpu利用率); open (FILE,$path.$fileName); print FILE @outputArgv; close(FILE); print @outputArgv; } #模版，一般不需要修改 sub perlTemplate{ print enter in perl\n; #获取脚本文件所在的路径，在该路径下存储输入参数格式文件inputArgv.txt和输出参数格式文件outputArgv.txt my $path=getScriptPath($0); #获取执行方式信息 my $Mode_Type=getModeType($ARGV[0]); #判断执行方式 if($Mode_Typ