-
A perl script for XSLT using MSXML
所属栏目：[大数据] 日期：2020-12-16 热度：103
Last version:?https://gist.github.com/1053576 sub TransformWithArgs { ???? my ( $xsltFile , $xmlFile ,128); ">$argsHash ) = @_ ; ???? my $template = Win32:: OLE - new ( 'MSXML2.XSLTemplate.4.0' ) ??????? or die "Couldn't create MSXML2.XSLT[详细]
-
perl中q系列符号用法总结
所属栏目：[大数据] 日期：2020-12-16 热度：93
在perl语言中，有两个特殊而常用的符号qq qw,分别解释如下： qq{foobar}的意思为意思为双引号字符串，可内插变量 相当于 "foobar" qw{foo bar}的意思为用空格分解字符串，得到列表，相当于如下语句 split(' ','foo bar') 得到的结果是'foo','bar' 字符串比较[详细]
-
Erlang的list-at-a-time操作 与 Perl的函数型编程
所属栏目：[大数据] 日期：2020-12-16 热度：56
2 Even = fun(X) - ( X rem 2 ) =:= 0 end. #Funerl_eval.6.80247286 3 List = [1,2,3,4,5,6,7,8]. [1,8] 4 lists:map(Even,List). [false,true,false,true] 5 lists:filter(Even,List). [2,8] 像上面的map和filter这样在一个函数调用（Even）中处理整个列表[详细]
-
从重复包含一个文件来看require 和 use 的区别和联系
所属栏目：[大数据] 日期：2020-12-16 热度：200
?个人水平有限，如有错误，请赐教！ 如果从网上搜索require和use的区别和联系，绝对是一搜一大堆，但还是很含糊，基本上都知道他们之间有以下三点区别： ? ? 第一、 Perl use 只能够引用模块，而require没有限制，例如： ?????????????有一个模块 TEST.pm(在[详细]
-
perl简单文本文件处理
所属栏目：[大数据] 日期：2020-12-16 热度：178
??? 中国移动游戏频道，游戏玩家套餐包中的玩家乐园游戏上线啦，很开心，作为开发人员之一，加了那么多班，眼看出了成果，激动一下下，哈哈，随之而来的是各种各样的pv、uv的数据统计。 ??? 领导问：还会写perl啊？ ??? 我答：会一些。 ??? ????进入这个公司[详细]
-
Perl中显示已经安装的模块/Module
所属栏目：[大数据] 日期：2020-12-16 热度：81
1、Windows 1) chcp 437 －－ 将Perl的字符集改为英语(United States)，中文字符集为936 ppm query * / Module Name ? 2) perldoc?perllocal 3) 推荐pmtools里的pminst命令 ?? http://search.cpan.org/src/MLFISHER/pmtools-1.01/pminst ? 2、Linux 1) perld[详细]
-
Beijing Perl Workshop2011参会记录
所属栏目：[大数据] 日期：2020-12-16 热度：145
? ? ? ? ?今天一大早赶到东单参加 Beijing Perl Workshop，上一次大会是2009年举行，当时也是在东单。 ? ? ? ? ?这届的Perl Workshop没有上一届热闹，可能是因为有几位爱热闹的台湾同胞没过来（台湾近期也有开源大会），场下提问、讨论的气氛不够热烈。 不过[详细]
-
用Perl写一个读取nginx配置文件到csv，实现域名与IP对应的实用程
所属栏目：[大数据] 日期：2020-12-16 热度：191
标题有点长，这算是我第一个写出的Perl程序，主要是服务器太多的网站，而之前的管理工作没有做好，没有做对应的IP和域名对应。 我的nginx主要是用来做前端反向代理的，里面n多的网站。 下面是我的nginx配置文件代码 server {listen0.0.0.0:80;server_namewww[详细]
-
用perl来改写shell
所属栏目：[大数据] 日期：2020-12-16 热度：106
查看Web服务器的并发请求数及其TCP连接状态的命令 netstat?-n?|?awk?'/^tcp/?{++S[$NF]}?END?{for(a?in?S)?print?a,?S[a]}'?? 据说是从新浪互动社区事业部技术总监王老大那儿获得的，非常不错。 返回结果一般为 LAST_ACK?247?（正在等待处理的请求数）? SYN_[详细]
-
perl snmp rrdtool 画图
所属栏目：[大数据] 日期：2020-12-16 热度：154
在上一篇文章中，有兄弟问我要code source，因前面写的数据收集用的是本地获取的，所以就想先改进下数据收集方式，再发出来。今天，我采用snmp方式把数据收集出来，并画图。 以下代码仅供参考: #!/usr/bin/perl ? use?Net::SNMP;? use?RRDs;? ? my?@hosts=([详细]
-
perl的EXCEL操作初级学习总结
所属栏目：[大数据] 日期：2020-12-16 热度：158
1、使用EXECL驱动(生成脚本到固定文件) ######################################################################use Win32::OLE qw(in with);use Win32::OLE::Const 'Microsoft Excel';#################################################################[详细]
-
perl连接mysql的例子
所属栏目：[大数据] 日期：2020-12-16 热度：129
? #!/bin/perl? ? #? load ?module? use?DBI;? ? #? connect ? my?$dbh?=?DBI- connect ( "DBI:mysql:database=db2;host=localhost" ,? "joe" ,? "guessme" ,?{ 'RaiseError' ?=?1});? ? #? execute ? INSERT ?query? my?$ rows ?=?$dbh-do( "INSERT?INTO?us[详细]
-
perl 的特殊符号说明
所属栏目：[大数据] 日期：2020-12-16 热度：152
??@ ? ? ? 数组 ? ? ? ? ? ? ? ? ? ? ? ? ?? ? $x{} ? x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素 % ? ? ? 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。 $! ? ? ?系统产生的一些可读的信息,也可[详细]
-
AnyEvent 简单介绍和入门
所属栏目：[大数据] 日期：2020-12-16 热度：127
http://www.php-oa.com/2011/03/23/perl-anyevent-ev.html ? 转载本站文章请注明，转载自：扶凯[http://www.php-oa.com] 本文链接: http://www.php-oa.com/2011/03/23/perl-anyevent-ev.html ????? AnyEvent 是一个性能非常好的基于事件驱动的程序,见有人使[详细]
-
事件框架 POE 学习
所属栏目：[大数据] 日期：2020-12-16 热度：63
转载本站文章请注明，转载自： 扶凯 [http://www.php-oa.com] 本文链接: http://www.php-oa.com/2009/09/09/perl-poe-1.html POE结构： ???????????????? Kernel ????????????????????? | ???????????????? Session | _______________________________ | ? ?[详细]
-
perl教程
所属栏目：[大数据] 日期：2020-12-16 热度：124
http://www.perltutorial.org[详细]
-
Perl 中的 use base 的用法
所属栏目：[大数据] 日期：2020-12-16 热度：56
? use base 是面向对象编程时，用来描述“基类”的，其实说白了， use base somemodule; 就相当于以下两句的结合： BEGIN{ ? ? use somemodule (); ? ? push @ISA,qw(somemodule); } 也可以同时 use base 两个或者两个以上的模块，例如： use base qw(Foo Ba[详细]
-
perl-cookie实例(亲测成功)
所属栏目：[大数据] 日期：2020-12-16 热度：189
http://www.gossland.com/course/cgi_use/cookies.html[详细]
-
用perl对CDN节点日志进行统计
所属栏目：[大数据] 日期：2020-12-16 热度：68
前段时间公司运维部门要求我对CDN节点的日志进行分析，具体要求如下 1、输入参数为文件名，支持统配。文件为gz压缩，可用zcat解压。统配的多个文件， 必须是一天内的。 2、文件内为一条条的访问日志。格式如下： 2011-01-02 15:55:01 122.245.127.73 "/down.[详细]
-
perl判断ipv6,ipv4,ip
所属栏目：[大数据] 日期：2020-12-16 热度：72
前些日子做网页时，用js写了个判断ipv6的函数，最近把它改为perl实现,大家可以随便使用 。 下面这个本程序的功能为判断一个字符串是不是ip,是ipv4还是ipv6： ? ? 程序代码如下： ? #本程序的功能为判断一个字符串是不是ip,是ipv4还是ipv6 ? ? # 以下是用来将[详细]
-
用perl获取可用的代理服务器地址
所属栏目：[大数据] 日期：2020-12-16 热度：181
对于网速慢，被墙的朋友，你们有福了，我现在把我经常获取可以的代理服务器地址的代码发出来 ? ? ? ########################################## ? ? #获取有效http代理服务器列表程序 ? ? #作者:yifangyou ? ? #创建时间:2011-03-27?17:14:00 ? ? #本程序实[详细]
-
投币自动售票程序
所属栏目：[大数据] 日期：2020-12-16 热度：116
题目：投币自动售票程序 要求: 找钱原则“有大面值的货币就不找小面试的货币” 例如：当售票机中有10c=1,20c=3,50c=1。需要找60c，这个时候就要找1个50c的和1个10c的硬币，而不是3个20c的硬币。 再比如，当售票机中有5c=1,50c=1,100c($1) = 1，需要找160c，[详细]
-
perl画图 -- Open Flash Chart
所属栏目：[大数据] 日期：2020-12-16 热度：59
网址 http://teethgrinder.co.uk/open-flash-chart/download.php[详细]
-
perl参考文档
所属栏目：[大数据] 日期：2020-12-16 热度：64
http://perldoc.perl.org/index.html[详细]
-
perl 操作xml实例
所属栏目：[大数据] 日期：2020-12-16 热度：80
1. ?用XML::Simple来写xml代码如下： #!perl -wuse strict; use warnings; use XML::Simple;my $str = XML_STRING_;config logdir="/var/log/foo/" debugfile="/tmp/foo.debug" server name="sahara" osname="solaris" osversion="2.6" address10.0.0.101 /a[详细]
