当前位置：首页 > PHP教程 > Apach > 列表

ssh单用户登录写法

发布:smiling　来源: PHP粉丝网 　添加日期：2013-11-23 21:06:46　浏览: 评论：0　
#!/usr/bin/perl -w 
use strict; 
sub main 
{ 
my @lines = `-eo user,pid,etime,cmd | grep sshd`; 
my $users; 
for my $line (@lines) { 
if(my ($user, $pid, $etime, $cmd) = $line =~ /^([^s]+)s+(d+)s+([^s]+)s+(sshd:.+)$/) { 
next if($user eq ‘root’); 
my $proc = {‘pid’, $pid, ‘etime’, $etime, ‘cmd’, $cmd}; 
push @{$users->{$user}}, $proc; 
} 
} 
for my $key(keys(%$users)) { 
my @sshs = sort { 
my ($lb, $la) = (length($b->{‘etime’}), length($a->{‘etime’})); 
if($lb == $la) { 
$b->{‘etime’} cmp $a->{‘etime’}; 
} else { 
$lb <=> $la; 
} 
} @{$users->{$key}}; 
for (1 .. 1) { shift @sshs; }; 
for my $ssh (@sshs) { 
kill 9, $ssh->{‘pid’}; 
} 
} 
} 
while(1) { 
main; 
sleep 3; 
}

Tags: ssh 单用户 登录

分享到：

相关文章

推荐文章

热门文章

最新评论文章