-
搭建 Gtk2::Perl 单步执行代码的环境
所属栏目：[大数据] 日期：2020-12-16 热度：155
所谓单步执行代码的环境有点类似 shell 那样，输入一条语句，执行一条语句 。可以实时看到结果。需要的程序如下： ?? ????emacs 22 或更高版本 ????inf-perl.el ????gtksh.pl ?? inf-perl.el 可以从 http://www.emacswiki.org/cgi-bin/emacs/inf-perl.el 下[详细]
-
perl脚本调试方法
所属栏目：[大数据] 日期：2020-12-16 热度：105
Perl调试器的用法： 缺省的Perl调试器就是perl解释器本身，另外还有图形界面的调试器。因为我们在开发 程序时一般都使用telnet访问服务器，所以这里主要介绍一下缺省的命令行调试器的用法。用 -d 命令行选项启动Perl解释器，例如 perl -d test.pl 即进入Perl[详细]
-
随手记一记学Perl 时容易搞混的地方
所属栏目：[大数据] 日期：2020-12-16 热度：179
1. while 循环控制体中是布尔上下文，但是for 相应的部分是列表上下文。所以你用for 循环替换 print while (); 时，得到的行为肯定不同。 2. kes 和values 会重置hash 的定位器，each 遍历完整个hash 之后也会重置定位器，不要在遍历的时候增加新的键值对。[详细]
-
Perl 内置特殊变量
所属栏目：[大数据] 日期：2020-12-16 热度：151
（转载自：http://www.cnblogs.com/ace9/archive/2011/04/29/2032755.html） 一、 正则表达式 特殊 变量： 1、 $n :包含上次模式匹配的第n个子串 2、 $ :前一次成功模式匹配的字符串 3、 $` :前次匹配成功的子串之前的内容 4、 $’ :前次匹配成功的子串之后[详细]
-
perl数据库连接操作
所属栏目：[大数据] 日期：2020-12-16 热度：108
#!/usr/bin/perl use strict; use warnings; use DBI; opendir (DIR,"dirpath/") ||die "can not open it"; my @connect = readdir(DIR); closedir DIR; my $dir_need; foreach my $con (sort @connect){ ? ? if ($con =~ /-[0-9]{2}-[0-9]{2}_/){ ? ? ? ? $[详细]
-
Perl模块 File::Tail::Multi特定属性用法
所属栏目：[大数据] 日期：2020-12-16 热度：59
现象： ? 打算利用Perl的模块File::Tail::Multi实现对多个文件的实时处理，可惜程序可以启动，但就是不处理文件内容，急煞我也 用法： use?File::Tail::Multi;? my?@_LIST_OF_FILE_PATHS?=?( "/path/to/one/file" ,? "/path/to/another/file" );? my?$rptTai[详细]
-
乘法口诀(perl,python,shell版)
所属栏目：[大数据] 日期：2020-12-16 热度：130
perl版： #!/bin/env perl foreach $i(1..9){ ? ? ? ? ?foreach $j(1..$i){ ? ? ? ? ? print "$j*$i=",$j*$i,"t"; ? ? ? ? } ? ?print "n"; } python版： #!/bin/env python for i in range(1,10): ? ? ?for j in range(1,i): ? ? ? ? ? print "%d*%d=%-3d[详细]
-
perl printf函数的使用
所属栏目：[大数据] 日期：2020-12-16 热度：98
printf函数可以格式化输出字符串 用法： printf FILEHANDLE FORMAT,LIST printf FORMAT,LIST 例如： printf函数先格式化字符串再输出到指定文件或当前缺省文件中，如： ?printf OUTFILE (“You owe me %8.2f",$owing);此语句取出变量$owing的值并替换掉串中[详细]
-
Perl-Can't locate Time/HiRes.pm 错误
所属栏目：[大数据] 日期：2020-12-16 热度：119
?在使用memcache-top监控memcache的时候执行报错，记录解决过程： ? 错误提示： ? Can't locate Time/HiRes.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/li[详细]
-
Perl实现后台守护进程
所属栏目：[大数据] 日期：2020-12-16 热度：148
有时候需要用perl实现一个服务程序,即linux常说的守护程序(daemon)， 而我们往往希望这样的程序能够在后台运行。 有些人一般是直接用bg命令把程序放到了后台，这么做有一些问题。 下面提供一个标准的守护进程的代码： #!/usr/bin/perl -w use strict;? use P[详细]
-
perl 安装wx 小记
所属栏目：[大数据] 日期：2020-12-16 热度：110
wx模块，即wxperl,是对wxwidgets 这个C++ GUI库的perl实现。 尝试安装这个模块。 1.环境activeperl 5.8.8 ，ppm安装，添加repo 地址；结果 运行demo会出现 入口点错误。搜索了一下说5.10.X以上才行。 2..重新装了strawberry 5.16.3.1。模块安装方式，cpan Wx[详细]
-
查看perl模块和cpan模块介绍
所属栏目：[大数据] 日期：2020-12-16 热度：155
? 如何才能知道自己装了哪些PERL的模块? rpm?-qa?|?grep?perl* ?Can't locate CGI.pm“?? 可以使用perl -MCPAN -eshell再install CGI ? 用CPAN安装Perl模块时遇到的Can't?locate?CPAN.pm?in?@INC?问题解决方法 ? CPAN 是 Comprehensive Perl Archive Network[详细]
-
Use Perl to Kill Lotus Notes Processes on Windows
所属栏目：[大数据] 日期：2020-12-16 热度：58
# Recently,I experienced Notes crash problems several times.? # It wasted me a lot of time to terminate Notes completely and then restart it, # so I wrote this Perl script to save myself. Also hope it's helpful to you when you read these c[详细]
-
perl循环匹配，并且模式中不包含某字符串
所属栏目：[大数据] 日期：2020-12-16 热度：59
#header-search .search-submit { float: left; width: 80px; height: 30px; margin: 0; padding: 0; border: 0; background: url(../img/header-submit.png) no-repeat; cursor: pointer;} #footer { width: 100%; padding-top: 20px; background: #fff url[详细]
-
perl 发邮件
所属栏目：[大数据] 日期：2020-12-16 热度：189
1， 在不需要认证的smtp服务器上发送邮件 #!/usr/bin/perl -w use Net::SMTP; $smtp = Net::SMTP-new($mail_server);??? #邮件服务器地址 $smtp-mail($send_user);???????????????? #发件人 $smtp-to($recv_user);?????????????????? #收件人 $smtp-data();[详细]
-
perl笔记（2）-数据结构
所属栏目：[大数据] 日期：2020-12-16 热度：56
学习网址：http://www.cbi.pku.edu.cn/chinese/documents/perl/perl4.htm 数组和列表： 列表是包含在括号里的一序列的值：如：(1,5.3,"hello",2，$var)， 空列表：()。 数组--列表的存贮: my @array=(1,2，$var); my @array=(); 对数组中的值通过下标存取，[详细]
-
Reading and Writing Perl Config Files
所属栏目：[大数据] 日期：2020-12-16 热度：71
Description: These snippets illustrate the following: Configuration data is aggregated in hashes (just one for these snippets) to cut down on the number of variable names. The configuration hashes are maintained in their own namespace to a[详细]
-
Perl简单模块指南
所属栏目：[大数据] 日期：2020-12-16 热度：50
关于using warnings和use模块的使用。 下面是这个模块的内容： MyModule.pm package MyModule;use strict;use Exporter;use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);$VERSION = 1.00;@ISA = qw(Exporter);@EXPORT = ();@EXPORT_OK = qw(fun[详细]
-
PERL 正则表达式详细说明
所属栏目：[大数据] 日期：2020-12-16 热度：164
一、简介? 模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array ?= split(/ /,$line);? 二、匹配操作符 =~、!~? =~检验匹配是否成功：$result = $var =~ /abc/;若在该字符串中[详细]
-
PERL LWP
所属栏目：[大数据] 日期：2020-12-16 热度：67
#! /usr/bin/perl use LWP::Simple; use Encode; my $targetfile = "C:/Users/Administrator/Desktop/123.txt"; open(TARGETHANDLE,"".$targetfile); my $url='http://www.baidu.com/s?wd=百度'; my $content = get $url; while($content =~ /(h3[^]*?(.+[详细]
-
Perl的CGI与Ajax（Extjs）交互
所属栏目：[大数据] 日期：2020-12-16 热度：174
往perl后台提交数据Extjs 按钮代码如下：bbar:['-',{text:'save',width:50,handler:function(){Ext.getCmp("panel1").getEl().mask("Saving data...","x-mask-loading");var month = Ext.util.Format.date(Ext.getCmp("month").getValue(),'Y-m');Ext.Ajax.r[详细]
-
perl split函数的用法
所属栏目：[大数据] 日期：2020-12-16 热度：70
Perl中的一个非常有用的函数是split - 把字符串进行分割并把分割后的结果放入数组中。这个函数使用规则表达式（RE），如果未特定则工作在$_变量上。 split函数可以这样使用： $info = "Caine:Michael:Actor:14,Leafy Drive"; @personal = split(/:/,$info);[详细]
-
perl多进程性能检测工具
所属栏目：[大数据] 日期：2020-12-16 热度：70
http://search.cpan.org/~timb/Devel-NYTProf-5.02/lib/Devel/NYTProf.pm 上面的链接地址为perl的一个性能检测工具，与大家共享。 有些perl实现的程序非常的消耗cpu，以下是一些总结： 1、能不用正则表达式的尽量不用 2、正则表达式尽量少的用模糊匹配 3、如[详细]
-
perl 脚本测试（觉得很有用）
所属栏目：[大数据] 日期：2020-12-16 热度：162
这是一篇关于perl脚本测试的总结性文章，其中提到了很多实用的模块，如果文中介绍的不够详细，请到cpan上搜索该模块并查阅其文档。? 1基本语法检查 Perl语言的哲学是“There is more than one way to do it”，很多讨厌Perl的人总是拿Perl的这个特性来攻击Pe[详细]
-
perl 数组的hash表
所属栏目：[大数据] 日期：2020-12-16 热度：78
数组的hash 一般的形式是这个样子的： $hash{a}[0]="a"; 这个一度让我感觉应该命名为hash的数组。但是这么命名自然还是有他的道理的，知道看到往里添加数组元素的时候， push @{$hash-{a}},"b"; 这里相当于在$hash-{a}相当于数组的一个元素 下面是获取数组的[详细]
