perl脚本学习笔记
#!/usr/bin/perl my $totaltimes=0;//定义变量my %tong_visit_times; //定义散列
my %tong_unique_users;
my %userlist;
my %tongidall;
my $totalusers=0;
my $totaltongs=0;
my ($logfile)=@ARGV; //传递脚本的参数给变量
if(-e $logfile){
&readlogfile($logfile); //子程序调用
}
#here read_tong
&read_tongs();
$activeusers=(keys(%userlist));//取散列的关键字的数量,keys在标量上下文中返回key的数量
$activetongs=(keys(%tong_visit_times));
print "总活动人次:".$totaltimes."\n";
print "活动用户数:".$activeusers."占总用户$totalusers的".(100*$activeusers/$totalusers)."%\n";
print "涉及到桶数:".$activetongs."占总桶数$totaltongs的".(100*$activetongs/$totaltongs)."%\n";
print "------------------------\n";
open(USER,">last".$days."day.txt"); //定义文件句柄USER，输出到last$daysday.txt
foreach $key(keys %userlist){
print USER $key.":".$userlist{$key}."\n";
@i=split(/\|/,$userlist{$key});
if (defined($tong_unique_users{$i})){
$tong_unique_users{$i}=$tong_unique_users{$i}+1;
}else{
$tong_unique_users{$i}=1;
}
}
close(USER);
print "\n桶号 活动人次 活动用户数总数 活动比率\n";
foreach $key(sort(keys %tongidall)){
if (defined($tong_unique_users{$key})){
print $key." ".$tong_visit_times{$key}." ".$tong_unique_users{$key}." ".$tongidall{$key}." ".(defined($
tongidall{$key})?100*$tong_unique_users{$key}/$tongidall{$key}."%":"此行数据有问题")."\n";
}
}
#--------------end of main program----------
sub readlogfile{
my($curlogfile) =@_; //@_表示缺省的参数
open(FILE,$curlogfile); //打开文件句柄
while(){
if ($_=~/UNI-LOG\|/){ //模式匹配UNI-LOG的行,计数器totaltimes加1
$totaltimes++;
chop(); //去除换行符号
@items=split(/\|/); //以|进行分割,存入数组items中
my $web=0;
my $pop3=0;
my $smtp=0;
my $visitmethod=$items; //通过数组下标取数组中的元素内容
my $username=lc($items);
my $remote_ip=$items;
my $tongid=$items;
my $visithistory=0;
if (defined($userlist{$username})){ //defined()如果为undef返回false,即变量为空的话返回假
$oldvalue=$userlist{$username};
@olditems=split(/\|/,$oldvalue);
$visithistory=$olditems;
$web=$olditems;
$pop3=$olditems;
$smtp=$olditems;
}
if ($visitmethod eq "web"){
$web=1;
}
if ($visitmethod eq "pop3"){
$pop3=1;
}
if ($visitmethod eq "smtp"){
$smtp=1;
}
$visithistory="$web|$pop3|$smtp";
$userlist{$username}=$tongid."|".$visithistory;
if (defined($tong_visit_times{$tongid})){
$tong_visit_times{$tongid}=$tong_visit_times{$tongid}+1;
}else{
$tong_visit_times{$tongid}=1;
}
}
}
}
sub read_tongs{
my $server="192.168.41.168";
my $port=9901;
use IO::Socket; //使用模块
my $sk = IO::Socket::INET->new(PeerAddr => $server, //使用方法,具体参考perldoc IO::Socket::INET或者www.cpan.org
PeerPort => $port,
Proto => 'tcp',
timeout =>30);
if (!($sk)) {
print STDERR "fail to connect dbgate:".$server."\n";
exit;
}
print $sk "system.get servers\n"; //打印到文件句柄$sk
$echo=; //从$sk中读取输出
chop($echo);
if (substr($echo,0,1) eq "0"){
$echo=substr($echo,2); //跳过开头的0
@items=split/\\s/,$echo;
foreach $tongid(@items){
print $sk "server.get ".$tongid." user_count\n";
$echo=;
my $tongcount=substr($echo,2);
$totalusers=$totalusers+$tongcount;
$tongidall{$tongid}=$tongcount;
}
$totaltongs=(keys(%tongidall));
}
}
页:
[1]