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

devel · 发表于 2003-12-6 23:35:03

(10) File::Find, find()[php]
#!/usr/bin/perl -w
use strict;
use File::Find;

my $file = "access.log";
my $path = "/";

find(\&process, $path);

sub process{ print $File::Find::dir, "$_\n" if(/$file/); }

exit 0;

#用于在unix文件树结构中查找对象。[/php]

devel · 发表于 2003-12-6 23:35:31

(11) ExtUtils::Installed, new(), modules(), version()

查看已经安装的模块的相应信息。[php]
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;

my $inst= ExtUtils::Installed->new();
my @modules = $inst->modules();

foreach(@modules)
{
my $ver = $inst->version($_) || "???";
printf("%-12s -- %s\n", $_, $ver);
}
exit 0;[/php]

devel · 发表于 2003-12-6 23:35:49

(12) DBI, connect(), prepare(), execute(), fetchrow_array()[php]
#!/usr/bin/perl
use strict;
use DBI;

my $dbh = DBI->connect("dbi:mysql:dbname", 'user','passwd', '')
or die "can't connect!\n";
my $sql = qq/show variables/;
my $sth = $dbh->prepare($sql);
$sth->execute();

while(my @array=$sth->fetchrow_array())
{
printf("%-35s", $_) foreach(@array);
print "\n";
}
$dbh -> disconnect();
exit 0;[/php]

devel · 发表于 2003-12-6 23:36:13

(13) Getopt::Std

命令行参数解析。[php]
#!/usr/bin/perl
use strict;
use Getopt::Std;

my %opts;
getopts("c:hv", \%opts);

foreach(keys %opts)
{
/c/ && print "welcome to ", $opts{$_} || "ChinaUnix", "!\n";
/h/ && print "Usage : $0 -[hv] -[c msg] \n";
/v/ && print "This is demo, version 0.001.001 built for $^O\n";
}
exit 0;[/php]

devel · 发表于 2003-12-6 23:36:53

(14) Proc:

rocessTable
#直接访问Unix进程表，类似ps command。[php]
#!/usr/bin/perl
use strict;
use Proc:

rocessTable;

my $pt = new Proc:

rocessTable;

foreach(reverse sort @{$pt->table})
{
print $_->pid, " => ";
print $_->cmndline, "\n";
}
exit 0;[/php]

devel · 发表于 2003-12-6 23:37:23

(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;[/php]
Shell命令直接做为函数，在Perl中调用。

devel · 发表于 2003-12-6 23:37:46

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;[/php]

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

devel · 发表于 2003-12-6 23:38:17

(17) HTML:

inkExtor, links(), parse_file()[php]
#!/usr/bin/perl
use strict;
use HTML:

inkExtor;

my $p = new HTML:

inkExtor;
$p->parse_file(*DATA);

foreach my $links ($p->links())
{
map {print "$_ "} @{$links};
print "\n";
}
exit 0;[/php]

__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>
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. -->
<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 · 发表于 2003-12-6 23:38:58

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;[/php]

devel · 发表于 2003-12-6 23:39:19

(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。[/php]

		自动登录	找回密码
密码			注册