免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › Perl模块使用 => 简短例子代码集合！
12345下一页
最近访问板块 发新帖
楼主: deathcult
打印 上一主题 下一主题

Perl模块使用 => 简短例子代码集合！  关闭 [复制链接]

deathcult

论坛徽章:
0
11楼 [报告]
发表于 2003-06-06 18:53 |只看该作者

Perl模块使用 => 简短例子代码集合！

(10) File::Find, find()

  2. #!/usr/bin/perl -w
  3. use strict;
  4. use File::Find;

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

  9. find(\&process, $path);

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

  13. exit 0;
复制代码
   

#用于在unix文件树结构中查找对象。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
12楼 [报告]
发表于 2003-06-09 21:55 |只看该作者

Perl模块使用 => 简短例子代码集合！

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

查看已经安装的模块的相应信息。


  2. #!/usr/bin/perl
  3. use strict;
  4. use ExtUtils::Installed;

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

  9. foreach(@modules)
  10. {
  11.         my $ver = $inst->;version($_) || "???";
  12.         printf("%-12s --  %s\n", $_, $ver);       
  13. }
  14. exit 0;
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
13楼 [报告]
发表于 2003-06-09 21:56 |只看该作者

Perl模块使用 => 简短例子代码集合！

(12) DBI, connect(), prepare(), execute(), fetchrow_array()

  2. #!/usr/bin/perl
  3. use strict;
  4. use DBI;

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

  12. while(my @array=$sth->;fetchrow_array())
  13. {
  14.         printf("%-35s", $_) foreach(@array);
  15.         print "\n";
  16. }
  17. $dbh ->; disconnect();
  18. exit 0;
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
14楼 [报告]
发表于 2003-06-09 21:57 |只看该作者

Perl模块使用 => 简短例子代码集合！

(13) Getopt::Std

命令行参数解析。


  2. #!/usr/bin/perl
  3. use strict;
  4. use Getopt::Std;

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

  9. foreach(keys %opts)
  10. {
  11.         /c/ && print "welcome to ", $opts{$_} || "ChinaUnix", "!\n";
  12.         /h/ && print "Usage : $0 -[hv] -[c msg] \n";
  13.         /v/ && print "This is demo, version 0.001.001 built for $^O\n";
  14. }
  15. exit 0;
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
15楼 [报告]
发表于 2003-06-09 21:58 |只看该作者

Perl模块使用 => 简短例子代码集合！

(14) Proc:rocessTable
#直接访问Unix进程表，类似ps command。

  2. #!/usr/bin/perl
  3. use strict;
  4. use Proc::ProcessTable;

  6. my $pt = new Proc::ProcessTable;

  8. foreach(reverse sort @{$pt->;table})
  9. {
  10.         print $_->;pid, " =>; ";
  11.         print $_->;cmndline, "\n";
  12. }
  13. exit 0;
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
16楼 [报告]
发表于 2003-06-09 21:58 |只看该作者

Perl模块使用 => 简短例子代码集合！

(15) Shell

  2. #!/usr/bin/perl
  3. use strict;
  4. use Shell;

  6. print "now is : ", date();
  7. print "current time is : ", date("+%T");

  9. my @dirs = ls("-laF");
  10. foreach(@dirs)
  11. {
  12.         print if(/\/$/);#print directory
  13. }
  14. exit 0;
复制代码
   

Shell命令直接做为函数，在Perl中调用。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
17楼 [报告]
发表于 2003-06-10 13:59 |只看该作者

Perl模块使用 => 简短例子代码集合！

Another use of Time::HiRes Module.

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

  2. #!/usr/bin/perl
  3. use strict;
  4. use Time::HiRes qw(sleep time);

  6. $| = 1;
  7. my $before = time;
  8. for my $i (1..100)
  9. {
  10.         print "$i\n";
  11.         sleep(0.01);       
  12. }
  13. printf("time used : %.5f seconds\n", time - $before);
  14. exit 0;
复制代码
   

use Time::HiRes后，此模块提供sleep(), alarm(), time()的增强版以
取代perl内置的相应函数。
其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒，
time()可以返回浮点数。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
18楼 [报告]
发表于 2003-06-10 16:06 |只看该作者

Perl模块使用 => 简短例子代码集合！

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

  2. #!/usr/bin/perl
  3. use strict;
  4. use HTML::LinkExtor;

  6. my $p = new HTML::LinkExtor;
  7. $p->;parse_file(*DATA);

  9. foreach my $links ($p->;links())
  10. {
  11.         map {print "$_ "} @{$links};
  12.         print "\n";
  13. }
  14. exit 0;



  18. __DATA__

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

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

  38. body{
  39.   color:black;
  40.   background:white;
  41.   margin-left:2%;
  42.   margin-right:2%;
  43. }

  45. h1{
  46.   text-align:center;
  47. }

  49. img     {
  50.   vertical-align:        50%;
  51.   border:       0;
  52. }

  54. .left{
  55.   text-align:left;
  56.   float:none;
  57. }

  59. .center{
  60.   text-align:center;
  61.   float:none;
  62. }

  64. .right{
  65.   text-align:right;
  66.   float:none;
  67. }

  69. -->;
  70. </style>;
  71. </head>;
  72. <body>;

  74. <table width="100%">;
  75. <tr>;
  76.   <td rowspan="2">;
  77.    <div class="left">;
  78.     <img src="misc/jpg/cpan.jpg"
  79.          alt="[CPAN Logo]" height="121" width="250"/>;
  80.    </div>;
  81.   </td>;
  82.   <td>;
  83.    <div class="right">;
  84.     <h1>;<a id="top">;Comprehensive Perl Archive Network</a>;</h1>;
  85.    </div>;
  86.   </td>;
  87. </tr>;
  88. <tr>;
  89.   <td>;
  90.     <div class="center">;
  91.     2003-06-10 online since 1995-10-26<br/>;1662 MB 246 mirrors<br/>;2903 authors 4767 modules
  92.     </div>;
  93.   </td>;
  94. </tr>;
  95. <tr>;
  96.   <td colspan="2">;
  97.    <p class="left">;
  98. Welcome to CPAN! Here you will find All Things Perl.
  99.    </p>;
  100.   </td>;
  101.   <td>;
  102.   </td>;
  103. </tr>;
  104. </table>;

  106. <hr/>;

  108. <table width="100%">;

  110. <tr>;

  112. <td>;

  114. <h1>;Browsing</h1>;
  115. <ul>;
  116.   <li>;<a href="modules/index.html">;Perl modules</a>;</li>;
  117.   <li>;<a href="scripts/index.html">;Perl scripts</a>;</li>;
  118.   <li>;<a href="ports/index.html">;Perl binary distributions ("ports")</a>;</li>;
  119.   <li>;<a href="src/README.html">;Perl source code</a>;</li>;
  120.   <li>;<a href="RECENT.html">;Perl recent arrivals</a>;</li>;
  121.   <li>;<a href="http://search.cpan.org/recent">;recent</a>; Perl modules</li>;
  122.   <li>;<a href="SITES.html">;CPAN sites</a>; list</li>;
  123.   <li>;<a href="http://mirrors.cpan.org/">;CPAN sites</a>; map</li>;
  124. </ul>;

  126. </td>;

  128. <td>;

  130. <h1>;Searching</h1>;

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

  139. <h1>;FAQ etc</h1>;

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

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

  155. </td>;

  157. </tr>;

  159. </table>;

  161. <hr/>;

  163. <table width="100%">;
  164. <tr>;

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

  177. <table width="100%">;

  179. <tr>;
  180. <td class="right">;
  181. <small>;
  182. CPAN master site hosted by
  183. </small>;
  184. </td>;
  185. </tr>;
  186. <tr>;
  187. <td class="right">;
  188. <a href="http://www.csc.fi/suomi/funet/verkko.html.en/">;<img src="misc/gif/funet.gif" alt="FUNET" height="25" width="88"/>;</a>;
  189. </td>;
  190. </tr>;
  191. </table>;

  193. </div>;
  194. </td>;

  196. </tr>;
  197. </table>;

  199. </body>;
  200. </html>;
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
19楼 [报告]
发表于 2003-06-11 11:47 |只看该作者

Perl模块使用 => 简短例子代码集合！

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

  2. #!/usr/bin/perl
  3. use strict;
  4. use Net::Telnet;

  6. my $p = Net::Telnet->;new();
  7. my $h = shift || "www.chinaunix.net";

  9. $p->;open(Host =>; $h, Port =>; 80);
  10. $p->;print("GET /\n");
  11. while(my $line = $p->;getline())
  12. {
  13.         print $line;
  14. }
  15. exit 0;
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
deathcult

论坛徽章:
0
20楼 [报告]
发表于 2003-06-11 14:21 |只看该作者

Perl模块使用 => 简短例子代码集合！

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

  2. #!/usr/bin/perl
  3. use strict;
  4. use Compress::Zlib;

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

  8. while( $gz->;gzreadline(my $line) >; 0 )
  9. {
  10.         chomp $line;
  11.         print "$line\n";
  12. }

  14. $gz->;gzclose();
  15. exit 0;
复制代码


#直接使用shell的zmore, zless, zcat打开文件也不错，
但是如果gz文件很大，还是应该选择zlib。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12345下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP