linux ssh 单向限制,Linux SSH 单用户登录限制 两种方式

#!/usr/bin/perl -w

use strict;

sub main

{

my @lines = `ps -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;

}