using Net::SSH2 shell 的二个方法

方法一：

$chan2 = $ssh2->channel();
$chan2->blocking(0);
print $chan2 "tail -5 /var/log/authlogn";
print "**$_" while <$chan2>;

方法二：

#shell use
my $chan2 = $ssh2->channel();
$chan2->shell();
print $chan2 "uname -an";
print "LINE : $_" while <$chan2>;
print $chan2 "whon";
print "LINE : $_" while <$chan2>;
$chan2->close;

通过perl实现一个简单的NIDS
随着对网络安全需求的深入开发，基于网络的入侵检测技术已经成为一个重要且有意思的研究方向。想学习NIDS技术除了去读一些现成的资料和一些开源

perl用变量做句柄介绍
#!/usr/bin/perl-wusestrict;usewarnings;useFileHandle;my%fh;my@array=(1..10);for(1..5){open$fh{$_},"$_.txt"ordie;}for(1..5){#print$fh{$_}"$_n";此处错误$fh{$_}-print("$_n");#为FileHandle里的

Perl学习基本备忘录
1.Perl数组(1):1)初始化数组@array=("stringA","stringB","stringC");2)使用负索引循环检索print$array[-1];#输出索引为(-1+3)%3=2的stringC3)动态增长$array[4]="stringD";#虽然$array