perl-灿烂的笑-51CTO博客

原创 66
翻译 3
转载 17

分享：

全部

网络蛤蟆发布于：2012-11-27
0

perl XML::Writer生成XML 参考文献：http://search.cpan.org/~josephw/XML-Writer-0.615/Writer.pm 脚本： [root@dou xml]# cat w1.pl #!/usr/bin/perl -w use strict; use XML::Writer; use IO::File; my %host = (

原创

阅读 946

评论 0

收藏 0
网络蛤蟆发布于：2012-11-27
0

perl 将XML格式转换为html、txt、pod格式 xmlfile： [root@dou xml]# cat example <?xml version="1.0" encoding="UTF-8"?> <README> <NAME>Test README File</NAME> <SYNOPSIS> &nbs

原创

阅读 512

评论 0

收藏 0
网络蛤蟆发布于：2012-11-27
0

perl XML::RSS创建RSS文件并解析参考文献：http://search.cpan.org/~shlomif/XML-RSS-1.49/lib/XML/RSS.pm 脚本： [root@dou xml]# cat rss1.pl #!/usr/bin/perl -w use strict; use XML::RSS; my $rss = XML::RSS->new; $rss->channel(title

原创

阅读 441

评论 0

收藏 0
网络蛤蟆发布于：2012-11-26
0

perl 使用XML::Parser的Handler解析XML 来一个event-based的XML解析，其实Style的Stream方法就是一个event-based的XML解析。参考文献：http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm#HANDLERS 操纵文档： [root@dou xml]# cat sample1 <FORECAST> <

原创

阅读 528

评论 0

收藏 0
网络蛤蟆发布于：2012-11-26
0

perl XML::Parser使用object方法处理XML 参考资料：http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm中的Object解说。操作文件： [root@dou xml]# cat sample1 <FORECAST> <OUTLOOK> Partly Cloudy <

原创

阅读 382

评论 0

收藏 0
网络蛤蟆发布于：2012-11-26
0

perl XML::Parser 使用Tree Style来解析xml文件操作文件： [root@dou xml]# cat sample1 <FORECAST> <OUTLOOK> Partly Cloudy </OUTLOOK> <TEMPERATURE TYPE="MAX&quo

原创

阅读 186

评论 0

收藏 0
网络蛤蟆发布于：2012-11-25
0

perl XML::Parser小介绍 1.概念： XML是一种Extensible Mark-up Language，事实上他不是一种mark-up语言，他是一种用来定义更适合特定tasks的新mark-up语言的方法。他的工作原理是：为 DTDs（Document Type Definitions）定义了语法。一个DTD定义了文档中可以出现的一系列的元素，元素的属性以及各元素之间的关系；他还定义了元素的强制性与可选性

原创

阅读 734

评论 0

收藏 0
网络蛤蟆发布于：2012-11-23
0

perl LWP::Simple分析土豆视频点击量 #!/usr/bin/perl -w # This script is used to count the numbers of page views of tudou's yinyue item. use strict; use LWP::Simple; use Encode; my $num; my $total; my @nums = (1..50); foreach my

原创

阅读 85

评论 0

收藏 0
网络蛤蟆发布于：2012-11-23
0

perl Socket实例 Perl socket programming tutorial Socket programming in perl can be done using the low level socket functions or the IO::Socket module.The IO::Socket module provides an object-oriented interface to th

原创

阅读 187

评论 0

收藏 0
网络蛤蟆发布于：2012-11-23
0

perl LWP::UserAgent抓捕腾讯音乐MV点击量抓捕腾讯音乐MV前100页的点击量 [root@dou ~]# cat lwp.pl #!/usr/bin/perl -w use strict; use LWP::UserAgent; use Encode; my $num; my $total; my @nums = (0..99); my @firstnums = (0..9) x 10; my $firstnum =

原创

阅读 193

评论 0

收藏 0
网络蛤蟆发布于：2012-11-23
0

perl Web::Scraper抓捕腾讯音乐MV的点击量抓捕腾讯音乐MV前100页的点击量 [root@dou ~]# cat 2.pl #!/usr/local/bin/perl use strict; use Web::Scraper; use URI; my $num; my $total; my @pathnums = (0..99); my @xpathnums = (1..28); my @firstnums = (0.

原创

阅读 272

评论 0

收藏 0
网络蛤蟆发布于：2012-11-23
0

perl LWP::Simple分析腾讯MV点击量该脚本用于计算腾讯MV前100页的实时点击量： [root@dou ~]# cat tengxun.pl #!/usr/bin/perl -w # This script is used to count the numbers of page views of tengxun's yinyue MV item. use strict; use LWP::Simple; use Enc

原创

阅读 126

评论 0

收藏 0
网络蛤蟆发布于：2012-11-23
0

perl LWP::Simple分析腾讯MV点击量该脚本用于计算腾讯MV前100页的实时点击量： [root@dou ~]# cat tengxun.pl #!/usr/bin/perl -w # This script is used to count the numbers of page views of tengxun's yinyue MV item. use strict; use LWP::Simple; use Enc

原创

阅读 150

评论 0

收藏 0
网络蛤蟆发布于：2012-11-21
0

perl文件测试运算符运算符

原创

阅读 217

评论 0

收藏 0
网络蛤蟆发布于：2012-11-21
0

perl扑克牌游戏编写一个脚本，从一叠纸牌中随机抽出10张，并打印结果值。 a：该脚本应当先借助foreach循环构建一套52张牌。 b：外层循环负责按照花色遍历整套纸牌：梅花，方块，红桃，黑桃。内层循环则针对每一种花色遍历所有数字：A、1到10、J、Q、K。从各种花色获得的纸牌都将赋值到一个数组中。 c：使用rand（）函数从上述数组中随机获得一张纸牌。这样做便能保证获得的10张纸牌互不重复。 [root

原创

阅读 471

评论 0

收藏 0
网络蛤蟆发布于：2012-11-21
0

perl检测无效符号链接 [root@dou perlref]# cat callback5.pl #!/usr/bin/perl -w use strict; use File::Find;

原创

阅读 259

评论 0

收藏 0
网络蛤蟆发布于：2012-11-20
0

curl保存cookies root@bt:~# curl -c baidu.cookies http://www.baidu.com root@bt:~# cat baidu.cookies # Netscape HTTP Cookie File # http://curl.haxx.se/rfc/cookie_spec.html # This file was generated by libcurl! Edit

原创

阅读 144

评论 0

收藏 0
网络蛤蟆发布于：2012-11-20
0

perl捕捉cookies #!/usr/bin/perl -w use strict; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Request::Common; my $cookies = HTTP::Cookies->new( file => "

原创

阅读 217

评论 0

收藏 0
网络蛤蟆发布于：2012-07-13
0

perl变量使用范围非常经典详解下面的代码以及代码执行结果还有最后的详细说明，希望能帮助大家理解变量在perl中的使用范围。谢谢大家的支持！ #!/bin/perl $global = "i'm the global version"; showme('at start'); lexical(); localized(); showme('at end'); sub showme

原创

阅读 510

评论 0

收藏 0
网络蛤蟆发布于：2012-06-30
0

perl两个神奇的数组@-和@+ [root@stationx ch2-regular]# cat perl-grep4.pl #!/bin/perl # perl-grep4.pl my $pattern = shift @ARGV; my $regex = eval { qr/$pattern/ }; die "Check your pattern! $@" if $@; while(<&

原创

阅读 169

评论 0

收藏 0

首页
上一页
1
2
下一页
末页
共27条记录

网络蛤蟆作者

分享到朋友圈

共86篇文章

这个家伙比较懒，还没有个人介绍

作者个人信息

关注技术：Oracle 数据库 Linux
无忧币：20
注册日期：2009-01-24 10.1年

七日热门

最近来访

写文章