perl 常用模块使用例子------欢迎大家补充。 - 第2页

**devel** · 03-12-06, 23:37

(15) Shell

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Shell;



print "now is : ", date();

print "current time is : ", date("+%T");



my @dirs = ls("-laF");

foreach(@dirs)

{

   print if(//$/);#print directory

}

exit 0;

Shell命令直接做为函数，在Perl中调用。

**devel** · 03-12-06, 23:37

Another use of Time::HiRes Module.

(16) Time::HiRes, sleep(), time()

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Time::HiRes qw(sleep time);



$| = 1;

my $before = time;

for my $i (1..100)

{

   print "$i\n";

   sleep(0.01);   

}

printf("time used : %.5f seconds\n", time - $before);

exit 0;

use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以
取代perl内置的相应函数。
其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒，
time()可以返回浮点数。

**devel** · 03-12-06, 23:38

(17) HTML::LinkExtor, links(), parse_file()

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use HTML::LinkExtor;



my $p = new HTML::LinkExtor;

$p->parse_file(*DATA);



foreach my $links ($p->links())

{

   map {print "$_ "} @{$links};

   print "\n";

}

exit 0;

__DATA__

代码:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 Strict//EN"
   "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US">
<head>
<meta http-equiv="Content-Type" content="text/html"/>
<title>CPAN</title>
<!-- Copyright Jarkko Hietaniemi <jhi@iki.fi> 1998-2002
     All Rights Reserved.
     The CPAN Logo provided by J.C. Thorpe.
     You may distribute this document either under the Artistic License
     (comes with Perl) or the GNU Public License, whichever suits you.

     You are not allowed to remove or alter these comments. -->
<!-- $Id: cpan-index.html,v 1.7 2003/02/17 10:23:46 jhi Exp $ -->
<link rev="made" href="mailto:cpan@perl.org"></link>
<style type="text/css">
<!--

body{
  color:black;
  background:white;
  margin-left:2%;
  margin-right:2%;
}

h1{
  text-align:center;
}

img     {
  vertical-align:        50%;
  border:       0;
}

.left{
  text-align:left;
  float:none;
}

.center{
  text-align:center;
  float:none;
}

.right{
  text-align:right;
  float:none;
}

-->
</style>
</head>
<body>

<table width="100%">
<tr>
  <td rowspan="2">
   <div class="left">
    <img src="misc/jpg/cpan.jpg"
         alt="[CPAN Logo]" height="121" width="250"/>
   </div>
  </td>
  <td>
   <div class="right">
    <h1><a id="top">Comprehensive Perl Archive Network</a></h1>
   </div>
  </td>
</tr>
<tr>
  <td>
    <div class="center">
    2003-06-10 online since 1995-10-26<br/>1662 MB 246 mirrors<br/>2903 authors 4767 modules
    </div>
  </td>
</tr>
<tr>
  <td colspan="2">
   <p class="left">
Welcome to CPAN! Here you will find All Things Perl.
   </p>
  </td>
  <td>
  </td>
</tr>
</table>

<hr/>

<table width="100%">

<tr>

<td>

<h1>Browsing</h1>
<ul>
  <li><a href="modules/index.html">Perl modules</a></li>
  <li><a href="scripts/index.html">Perl scripts</a></li>
  <li><a href="ports/index.html">Perl binary distributions ("ports")</a></li>
  <li><a href="src/README.html">Perl source code</a></li>
  <li><a href="RECENT.html">Perl recent arrivals</a></li>
  <li><a href="http://search.cpan.org/recent">recent</a> Perl modules</li>
  <li><a href="SITES.html">CPAN sites</a> list</li>
  <li><a href="http://mirrors.cpan.org/">CPAN sites</a> map</li>
</ul>

</td>

<td>

<h1>Searching</h1>

<ul>
<li><a href="http://kobesearch.cpan.org/">Perl core and CPAN modules documentation </a> (Randy Kobes)</li>
<li><a href="http://www.perldoc.com/">Perl core documentation</a> (Carlos Ramirez)</li>
<li><a href="http://search.cpan.org/">CPAN modules, distributions, and authors</a> (search.cpan.org)</li>
<li><a href="http://wait.cpan.org/">CPAN modules documentation</a> (Ulrich Pfeifer)</li>
</ul>

<h1>FAQ etc</h1>

<ul>
<li><a href="misc/cpan-faq.html">CPAN Frequently Asked Questions</a></li>
<li><a href="http://lists.cpan.org/">Perl Mailing Lists</a></li>
<li><a href="http://bookmarks.cpan.org/">Perl Bookmarks</a></li>
</ul>

<p><small>
Yours Eclectically, The Self-Appointed Master Librarian (OOK!) of the CPAN<br/>
<i>Jarkko Hietaniemi</i>
<a href="mailto:cpan@perl.org">cpan@perl.org</a>
<a href="disclaimer.html">[Disclaimer]</a>
</small>
</p>

</td>

</tr>

</table>

<hr/>

<table width="100%">
<tr>

<td>
<div class="left">
<a href="http://validator.w3.org/check?uri=http%3A%2F%2Fwww.cpan.org%2Findex.html">
<img src="misc/gif/valid-xhtml10.gif" alt="Valid XHTML 1.0!" height="31" width="88"/></a>
<a href="http://jigsaw.w3.org/css-validator/validator?uri=http%3A%2F%2Fwww.cpan.org%2Findex.html">
<img src="misc/gif/vcss.gif" alt="[Valid CSS]" height="31" width="88"/></a>
</div>
</td>
<td>
<div class="right">

<table width="100%">

<tr>
<td class="right">
<small>
CPAN master site hosted by
</small>
</td>
</tr>
<tr>
<td class="right">
<a href="http://www.csc.fi/suomi/funet/verkko.html.en/"><img src="misc/gif/funet.gif" alt="FUNET" height="25" width="88"/></a>
</td>
</tr>
</table>

</div>
</td>

</tr>
</table>

</body>
</html>

**devel** · 03-12-06, 23:38

18) Net::Telnet, open(), print(), getline()

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Net::Telnet;



my $p = Net::Telnet->new();

my $h = shift || "www.chinaunix.net";



$p->open(Host => $h, Port => 80);

$p->print("GET /\n");

while(my $line = $p->getline())

{

   print $line;

}

exit 0;

**devel** · 03-12-06, 23:39

(19) Compress::Zlib, gzopen(), gzreadline(), gzclose()

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Compress::Zlib;



my $gz = gzopen("a.gz", "rb");



while( $gz->gzreadline(my $line) > 0 )

{

   chomp $line;

   print "$line\n";

}



$gz->gzclose();

exit 0;



#直接使用shell的zmore, zless, zcat打开文件也不错，但是如果gz文件很大，还是应该选择zlib。

**devel** · 03-12-06, 23:39

(20) Net::POP3, login(), list(), get()

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Net::POP3;

use Data::Dumper;



my $user = "user";

my $pass = shift or die "Usage : $0 passwd\n";

my $host = "pop3.web.com";#pop3 address



my $p = Net::POP3->new($host) or die "Can't connect $host!\n";

$p->login($user, $pass) or die "user or passwd error!\n";

my $title = $p->list or die "No mail for $user\n";



foreach my $h(keys %$title)

{

   my $msg = $p->get($h);

   print @$msg;   

}

$p->quit;

exit 0;

telnet pop3.web.com 110 也可以直接连到pop3 server上，然后通过
pop3命令与邮件服务器交互，
简单的命令有：
USER name
PASS string

STAT
LIST [n]
RETR msg
DELE msg
NOOP
RSET
QUIT
有兴趣的朋友可以试一试。
这样，也就可以利用Net::Telnet来做一个收信件的简单程序。

**devel** · 03-12-06, 23:40

(21) Term::ANSIColor 例子一

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Term::ANSIColor qw(:constants);



$Term::ANSIColor::AUTORESET = 1;



$| = 1;

my $str = "Welcome to chinaunix ^_^!\n";



for my $i(0..length($str)-1)

{

   print BOLD RED substr($str, $i, 1);

   select(undef, undef, undef, 0.3);

}

exit 0;

查看ANSIColor.pm可以得知作者是利用ANSI转义序列，改变终端字符颜色的。
print "\e[34m\n";
即是改变前景色为blue;

shell命令为echo -e "\033[31m";#改变前景色为红色。
(freeBSD，Solaris下此命令测试OK)

**devel** · 03-12-06, 23:41

(21) Term::ANSIColor 例子二

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Term::ANSIColor qw(:constants);



$Term::ANSIColor::AUTORESET = 1;



$| = 1;



print "\e[20;40H";

my $str = "Welcome to chinaunix ^_^!\n";



print BOLD BLINK $str;

exit 0;

转义序列echo -e "\033[20;40H";可以改变光标位置。
perl中就可以：print "\e[20;40H";

**devel** · 03-12-06, 23:42

(22) Date::Calc Calendar(), Today()

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Date::Calc qw(Calendar Today);



my $year = "2003";

my $month = "6";

my $day;





my $cal = Calendar($year, $month);

(undef, undef, $day) = Today();



$cal =~ s/$day/e[5me[31m$daye[0m/;



print $cal;

exit 0;

本例子打印出一个2003年6月份的日历，当天日期用红色的闪烁数字表示。

Date::Calc提供了时间日期计算的另一种方式（一种是Date::Manip），
大量简单方便的方法（函数）供使用者调用。

在例子中的年和月我是自己指定的，也可以
($year, $month, $day) = Today();

颜色和闪烁是用ANSI escape sequences。
详细说明尽在ANSIColor.pm source和perldoc Term::ANSIColor里。
（perldoc Term::ANSIColor其实也在ANSIColor.pm source里）：）

**devel** · 03-12-06, 23:42

(23) Term::Cap, Tgetend(), Tgoto, Tputs()

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use Term::Cap;



$| = 1;

my $i = 1;

my $flag = 0;



my $tcap = Term::Cap->Tgetent({TERM => undef, OSPEED => 1});

$tcap->Tputs('cl', 1, *STDOUT);#clear screen



while($i)

{

   if($i > 50 || $flag == 1)

   {

      $i --;

      $flag = 1;

      $flag = 0 if($i == 1);

   }

   else

   {

      $i ++;   

      $flag = 0;

   }



   $tcap->Tgoto('cm', $i, 15, *STDOUT);#move cursor

   print " welcome to chinaunix! ";

   select(undef, undef, undef, 0.02);

}

exit 0;

Term::Cap 终端控制模块。
代码效果：一个左右移动的字串 "welcome to chinaunix! " ：）

**devel** · 03-12-06, 23:43

(24) HTTPD::Log::Filter

PHP 代码:


		
			
#!/usr/bin/perl

use strict;

use HTTPD::Log::Filter;



my $filter = HTTPD::Log::Filter->new(format => "CLF",

                           capture => ['request', 'host']);



foreach(`cat access_log`)

{

   chomp;

   unless( $filter->filter($_) )

   {

      print "[$_]\n";

      next;

   }

   print $filter->request, "\n";

}

exit 0;

如果我们工作中经常需要分析Apache日志，这个模块可以提供一些方便。
创建对象实例以后，用filter方法来过滤，没有正确匹配的行将返回false,
然后用相应的方法print出我们需要的数据。(host,request,date...等等方法，
由capture选项以参数引入)
可以用re方法打印出作者所使用的匹配模式：

代码:

use HTTPD::Log::Filter;
print HTTPD::Log::Filter->new(format=>"CLF",capture=>['request'])->re;

详见perldoc HTTPD::Log::Filter. enjoy it

**devel** · 03-12-06, 23:54

提供者：Apile

(25) Net::LDAP

PHP 代码:


		
			
#!/usr/bin/perl

use Net::LDAP;



## get a object of ldap

$ldap = Net::LDAP->new("1.1.1.1", port =>"389", version => 3) or die "$@";

# object of Net::LDAP::Message

$mesg = $ldap->bind($_cer_id, password => $_cer_pw); # 查詢用的ID/PASSWD

if($mesg->is_error) {die $mesg->error;}

$mesg = $ldap->search(

         base => "o=abc,c=tt", # 起始點

         scope => "sub", # 範圍

         filter => "(uid=apile)", # 條件

         attrs => ["cn"], # 要取得的attribute

         typesonly => 0   );



my $max_len = $mesg->count; ## get number of entry



#--取得中文姓名，可能不只一筆

for($i=0;$i<$max_len;$i++){

   $entry = $mesg->entry($i);

   $cname = $entry->get_value("cn"); # get chinese name

}



#--作密碼認證

$mesg = $ldap->bind($entry->dn, password => "abc", version => 3)

||die "can't connect to ldap";

if($mesg->code) { print "verification is failed"}

else{ print "success"}

LDAP version 3..可以用於查詢基本資料、驗證密碼之用..

**devel** · 03-12-06, 23:55

(26) Net::SMTP mail(), to(), data(), datasend(), auth()

PHP 代码:


		
			
#!/usr/bin/perl



use strict;

use Net::SMTP;



my $smtp = Net::SMTP->new('smtp.sohu.com', Timeout => 10, Debug => 0)

   or die "new error\n";

#$smtp->auth("user", "passwd") or die "auth error\n";

$smtp->mail('some');

$smtp->to('some@some.com');

$smtp->data("chinaunix,哈楼你好啊!\n[b]:[/b])");

$smtp->quit;



exit 0;

有的SMPT Server需要Authentication，那么就使用auth()方法进行验证。
Debug模式打开，可以看到详细的SMTP命令代码。也有助于我们排错。

**devel** · 03-12-06, 23:55

(27) MIME::Base64, encode_base64(), decode_base64()

PHP 代码:


		
			
#!/usr/bin/perl -w



use strict;

use MIME::Base64;



foreach(<DATA>)

{

   print decode_base64($_);

}

exit 0;

__DATA__
xOO6w6Osu7bTrcC0tb1jaGluYXVuaXguY29tIFtwZXJsXbDmIQo=
1eLKx2Jhc2U2NLHgwuu1xMD919OjrNPJTUlNRTo6QmFzZTY0xKO/6cC0veLC66GjCg==
cGVybGRvYyBNSU1FOjpCYXNlNjQgZm9yIGRldGFpbHMsIGVuam95IGl0IDopCg==

用来处理MIME/BASE64编码。

**devel** · 03-12-06, 23:56

(28) Net::IMAP::Simple, login(), mailboxes(), select(), get()...

PHP 代码:


		
			
#!/usr/bin/perl



use strict;

use Net::IMAP::Simple;



my $server = new Net::IMAP::Simple( 'imap.0451.com' );

$server->login( 'user_name', 'passwd');



#show the mailboxs

#map {print "$_\n";} $server->mailboxes();



#show mail's content

my $n = $server->select( 'inbox' ) or die "no this folder\n";

foreach my $msg ( 1..$n )

{

    my $lines = $server->get( $msg );

    print @$lines;

   print "_________________ Press enter key to view another! ...... __________________\n";

   read STDIN, my $key, 1;

}



exit 0;

在取得中文的Folder时，会出现乱码的情况，
这个问题现在没有解决。英文的Folder则没问题。

IMAP协议，默认端口为143，可以用telnet登录。

telnet imap.xxx.com 143
2 login user pass
2 list "" *
2 select inbox
......

03-12-06, 23:37	第 16 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(15) Shell PHP 代码: `#!/usr/bin/perl use strict; use Shell; print "now is : ", date(); print "current time is : ", date("+%T"); my @dirs = ls("-laF"); foreach(@dirs) { print if(//$/);#print directory } exit 0;` Shell命令直接做为函数，在Perl中调用。此帖于 03-12-09 02:37 被 georgek 编辑.

03-12-06, 23:37	第 17 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	Another use of Time::HiRes Module. (16) Time::HiRes, sleep(), time() PHP 代码: `#!/usr/bin/perl use strict; use Time::HiRes qw(sleep time); $\| = 1; my $before = time; for my $i (1..100) { print "$i\n"; sleep(0.01); } printf("time used : %.5f seconds\n", time - $before); exit 0;` use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以取代perl内置的相应函数。其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒， time()可以返回浮点数。此帖于 03-12-09 02:38 被 georgek 编辑.

03-12-06, 23:38	第 19 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	18) Net::Telnet, open(), print(), getline() PHP 代码: `#!/usr/bin/perl use strict; use Net::Telnet; my $p = Net::Telnet->new(); my $h = shift \|\| "www.chinaunix.net"; $p->open(Host => $h, Port => 80); $p->print("GET /\n"); while(my $line = $p->getline()) { print $line; } exit 0;` 此帖于 03-12-09 02:39 被 georgek 编辑.

03-12-06, 23:39	第 20 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(19) Compress::Zlib, gzopen(), gzreadline(), gzclose() PHP 代码: `#!/usr/bin/perl use strict; use Compress::Zlib; my $gz = gzopen("a.gz", "rb"); while( $gz->gzreadline(my $line) > 0 ) { chomp $line; print "$line\n"; } $gz->gzclose(); exit 0; #直接使用shell的zmore, zless, zcat打开文件也不错，但是如果gz文件很大，还是应该选择zlib。` 此帖于 03-12-09 02:39 被 georgek 编辑.

03-12-06, 23:39	第 21 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(20) Net::POP3, login(), list(), get() PHP 代码: `#!/usr/bin/perl use strict; use Net::POP3; use Data::Dumper; my $user = "user"; my $pass = shift or die "Usage : $0 passwd\n"; my $host = "pop3.web.com";#pop3 address my $p = Net::POP3->new($host) or die "Can't connect $host!\n"; $p->login($user, $pass) or die "user or passwd error!\n"; my $title = $p->list or die "No mail for $user\n"; foreach my $h(keys %$title) { my $msg = $p->get($h); print @$msg; } $p->quit; exit 0;` telnet pop3.web.com 110 也可以直接连到pop3 server上，然后通过 pop3命令与邮件服务器交互，简单的命令有： USER name PASS string STAT LIST [n] RETR msg DELE msg NOOP RSET QUIT 有兴趣的朋友可以试一试。这样，也就可以利用Net::Telnet来做一个收信件的简单程序。此帖于 03-12-09 02:40 被 georgek 编辑.

欢迎来到LinuxSir.Org!
您还未登录，请登录后查看论坛，或者点击论坛上方的注册链接注册新账号。

03-12-06, 23:40	第 22 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(21) Term::ANSIColor 例子一 PHP 代码: `#!/usr/bin/perl use strict; use Term::ANSIColor qw(:constants); $Term::ANSIColor::AUTORESET = 1; $\| = 1; my $str = "Welcome to chinaunix ^_^!\n"; for my $i(0..length($str)-1) { print BOLD RED substr($str, $i, 1); select(undef, undef, undef, 0.3); } exit 0;` 查看ANSIColor.pm可以得知作者是利用ANSI转义序列，改变终端字符颜色的。 print "\e[34m\n"; 即是改变前景色为blue; shell命令为echo -e "\033[31m";#改变前景色为红色。 (freeBSD，Solaris下此命令测试OK) 此帖于 03-12-09 02:41 被 georgek 编辑.

03-12-06, 23:41	第 23 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(21) Term::ANSIColor 例子二 PHP 代码: `#!/usr/bin/perl use strict; use Term::ANSIColor qw(:constants); $Term::ANSIColor::AUTORESET = 1; $\| = 1; print "\e[20;40H"; my $str = "Welcome to chinaunix ^_^!\n"; print BOLD BLINK $str; exit 0;` 转义序列echo -e "\033[20;40H";可以改变光标位置。 perl中就可以：print "\e[20;40H"; 此帖于 03-12-09 02:41 被 georgek 编辑.

03-12-06, 23:42	第 24 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(22) Date::Calc Calendar(), Today() PHP 代码: `#!/usr/bin/perl use strict; use Date::Calc qw(Calendar Today); my $year = "2003"; my $month = "6"; my $day; my $cal = Calendar($year, $month); (undef, undef, $day) = Today(); $cal =~ s/$day/e[5me[31m$daye[0m/; print $cal; exit 0;` 本例子打印出一个2003年6月份的日历，当天日期用红色的闪烁数字表示。 Date::Calc提供了时间日期计算的另一种方式（一种是Date::Manip），大量简单方便的方法（函数）供使用者调用。在例子中的年和月我是自己指定的，也可以 ($year, $month, $day) = Today(); 颜色和闪烁是用ANSI escape sequences。详细说明尽在ANSIColor.pm source和perldoc Term::ANSIColor里。（perldoc Term::ANSIColor其实也在ANSIColor.pm source里）：）此帖于 03-12-09 02:42 被 georgek 编辑.

03-12-06, 23:42	第 25 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(23) Term::Cap, Tgetend(), Tgoto, Tputs() PHP 代码: #!/usr/bin/perl use strict; use Term::Cap; $\| = 1; my $i = 1; my $flag = 0; my $tcap = Term::Cap->Tgetent({TERM => undef, OSPEED => 1}); $tcap->Tputs('cl', 1, STDOUT);#clear screen while($i) { if($i > 50 \|\| $flag == 1) { $i --; $flag = 1; $flag = 0 if($i == 1); } else { $i ++; $flag = 0; } $tcap->Tgoto('cm', $i, 15, STDOUT);#move cursor print " welcome to chinaunix! "; select(undef, undef, undef, 0.02); } exit 0; Term::Cap 终端控制模块。代码效果：一个左右移动的字串 "welcome to chinaunix! " ：）此帖于 03-12-09 02:42 被 georgek 编辑.

03-12-06, 23:43	第 26 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(24) HTTPD::Log::Filter PHP 代码: #!/usr/bin/perl use strict; use HTTPD::Log::Filter; my $filter = HTTPD::Log::Filter->new(format => "CLF", capture => ['request', 'host']); foreach(`cat access_log`) { chomp; unless( $filter->filter($_) ) { print "[$_]\n"; next; } print $filter->request, "\n"; } exit 0; 如果我们工作中经常需要分析Apache日志，这个模块可以提供一些方便。创建对象实例以后，用filter方法来过滤，没有正确匹配的行将返回false, 然后用相应的方法print出我们需要的数据。(host,request,date...等等方法，由capture选项以参数引入) 可以用re方法打印出作者所使用的匹配模式：代码: use HTTPD::Log::Filter; print HTTPD::Log::Filter->new(format=>"CLF",capture=>['request'])->re; 详见perldoc HTTPD::Log::Filter. enjoy it 此帖于 03-12-09 02:43 被 georgek 编辑.

03-12-06, 23:54	第 27 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	提供者：Apile (25) Net::LDAP PHP 代码: #!/usr/bin/perl use Net::LDAP; ## get a object of ldap $ldap = Net::LDAP->new("1.1.1.1", port =>"389", version => 3) or die "$@"; # object of Net::LDAP::Message $mesg = $ldap->bind($_cer_id, password => $_cer_pw); # 查詢用的ID/PASSWD if($mesg->is_error) {die $mesg->error;} $mesg = $ldap->search( base => "o=abc,c=tt", # 起始點 scope => "sub", # 範圍 filter => "(uid=apile)", # 條件 attrs => ["cn"], # 要取得的attribute typesonly => 0 ); my $max_len = $mesg->count; ## get number of entry #--取得中文姓名，可能不只一筆 for($i=0;$i<$max_len;$i++){ $entry = $mesg->entry($i); $cname = $entry->get_value("cn"); # get chinese name } #--作密碼認證 $mesg = $ldap->bind($entry->dn, password => "abc", version => 3) \|\|die "can't connect to ldap"; if($mesg->code) { print "verification is failed"} else{ print "success"} LDAP version 3..可以用於查詢基本資料、驗證密碼之用.. 此帖于 03-12-09 02:44 被 georgek 编辑.

03-12-06, 23:55	第 28 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(26) Net::SMTP mail(), to(), data(), datasend(), auth() PHP 代码: `#!/usr/bin/perl use strict; use Net::SMTP; my $smtp = Net::SMTP->new('smtp.sohu.com', Timeout => 10, Debug => 0) or die "new error\n"; #$smtp->auth("user", "passwd") or die "auth error\n"; $smtp->mail('some'); $smtp->to('some@some.com'); $smtp->data("chinaunix,哈楼你好啊!\n[b]:[/b])"); $smtp->quit; exit 0;` 有的SMPT Server需要Authentication，那么就使用auth()方法进行验证。 Debug模式打开，可以看到详细的SMTP命令代码。也有助于我们排错。此帖于 03-12-09 02:44 被 georgek 编辑.

03-12-06, 23:55	第 29 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(27) MIME::Base64, encode_base64(), decode_base64() PHP 代码: `#!/usr/bin/perl -w use strict; use MIME::Base64; foreach(<DATA>) { print decode_base64($_); } exit 0;` __DATA__ xOO6w6Osu7bTrcC0tb1jaGluYXVuaXguY29tIFtwZXJsXbDmIQo= 1eLKx2Jhc2U2NLHgwuu1xMD919OjrNPJTUlNRTo6QmFzZTY0xKO/6cC0veLC66GjCg== cGVybGRvYyBNSU1FOjpCYXNlNjQgZm9yIGRldGFpbHMsIGVuam95IGl0IDopCg== 用来处理MIME/BASE64编码。此帖于 03-12-09 02:45 被 georgek 编辑.

03-12-06, 23:56	第 30 帖
devel 已封禁注册日期: Sep 2003 我的住址: 自由的世界！帖子: 1,472 精华: 6	(28) Net::IMAP::Simple, login(), mailboxes(), select(), get()... PHP 代码: #!/usr/bin/perl use strict; use Net::IMAP::Simple; my $server = new Net::IMAP::Simple( 'imap.0451.com' ); $server->login( 'user_name', 'passwd'); #show the mailboxs #map {print "$_\n";} $server->mailboxes(); #show mail's content my $n = $server->select( 'inbox' ) or die "no this folder\n"; foreach my $msg ( 1..$n ) { my $lines = $server->get( $msg ); print @$lines; print "_________________ Press enter key to view another! ...... __________________\n"; read STDIN, my $key, 1; } exit 0; 在取得中文的Folder时，会出现乱码的情况，这个问题现在没有解决。英文的Folder则没问题。 IMAP协议，默认端口为143，可以用telnet登录。 telnet imap.xxx.com 143 2 login user pass 2 list "" * 2 select inbox ...... 此帖于 03-12-09 02:45 被 georgek 编辑.