最近在写一个从gmail批量下载附件的程序，用到了 Mail::POP3Client 和 MIME::Parser 2 个模块

实现代码：

use Mail::POP3Client;

use MIME::Parser;

 

my $U = 'User.Name＠gmail.com';

my $P = 'uSeR.pAsSwORd';

my $X = new MIME::Parser;

$X -> output_dir('C:\download');    #directory to save attachment

 

my $G = Mail::POP3Client -> new (

            USER        => $U,

            PASSWORD    => $P,

            HOST        => 'pop.gmail.com',

            PORT        => 995,

            USESSL      => 'true') or die "Can't Connect The Server.n";

 

for $i (1 .. $G->Count())

{

    my $C = $G->HeadAndBody($i);

    my $R = $X->parse_data($C);

}

$G->Close();

perl脚本实现限制ssh最大登录次数（支持白名单）
sshlimitperl脚本主要作用：1.限制一个ssh用户的最大登录数为n，n可自定义。2.支持白名单，如root、test登录不受限制。如果一个ssh用户的最大登录数超过

perl脚本学习指南--读书笔记
undef默认未定义字符，perl里面没有NULL，defined($x)函数：如果参数为undef返回falseqw(csphygeo)类似于（cs,"phy","geo"）列表可以赋值给数组@array数组操作符：pop,p

Perl实现的Linux下socket代理服务器
大家提供了许多linux开代理的方法，一般用到python等语言，一些服务器可能不会安装，然而perl可以说是linux标配的语言，给大家一款Perl语言的socket代理