-
多进程编程：Perl与C进程间的消息队列通信
所属栏目：[大数据] 日期：2020-12-16 热度：173
前言: perl和C语言都提供了消息队列的机制,而且这两种语言中的消息队列可以相互兼容. 当涉及到系统架构时， 可以用C语言实现核心计算模块,用Perl实现业务逻辑层, 而这两层间可以通过消息队列来实现不同语言的进程间的通信. 本文先用两个示例程序讲解Perl对消[详细]
-
perl 实现数字千分位分隔
所属栏目：[大数据] 日期：2020-12-16 热度：174
sub digitize{ my $v = shift or return '0'; $v =~ s/(?=^d)(?=(ddd)+$) #处理不含小数点的情况 | (?=^dd)(?=(ddd)+$) #处理不含小数点的情况 | (?=d)(?=(ddd)+.) #处理整数部分 | (?=.ddd)(?!$) #处理小数点后面第一次千分位，例子中就[详细]
-
Perl中的REPL
所属栏目：[大数据] 日期：2020-12-16 热度：154
? Perl 本身是不提供 REPL 的，但是需要的东西都有所以随手就能组装个比如 perl -E "print qq{Welcome to my Perl Shell v0.1.n }; print eval($_),qq{n } while " 复制代码 print qq{Welcome to my Perl Shell v0.1.n }; print? ?? ?? ?? ?? ?? ?? ?? ??[详细]
-
使用 Perl 作为唯一命令行工具（抛弃 awk , sed 之类）
所属栏目：[大数据] 日期：2020-12-16 热度：145
前言： ????做为系统管理人员,每天面对大量的事情,所以他们想了很多法子来自动化,单行脚本就是其中之一,但到后来,他们发现要学的东西,又多又乱,比如sed和awk,单这二样,就可以写一本书出来.所以Larry Wall写了perl来替换学习n多的软件和语言,以perl来完成所有[详细]
-
perl 简单语法积累
所属栏目：[大数据] 日期：2020-12-16 热度：62
1. 模块(.pm)和包(Package)： 1.1 perl 中的模块：edsp.pm 在perl 脚本中，很多时候有 ?use edsp ；test就是一个类；其实 edsp 是一个单独写的类：edsp.pm ? ?这个类中有变量、函数、等； #!/usr/bin/perl -luse strict;use edsp; 调用类中的变量和函数需要n[详细]
-
perl
所属栏目：[大数据] 日期：2020-12-16 热度：55
1,一个相当常见的全局替换是缩减空白，也就是将任何连续的空白转换成单一空格： s/s+ //g; 2,将开头的空白替换成空字符串 s /^s+//; 3,讲结尾的空白替换成空字符串 s /s+$// 4,去除开头和结尾的空白符 s/^s+|s+$//g[详细]
-
Perl正则表达式记忆法
所属栏目：[大数据] 日期：2020-12-16 热度：157
Perl正则表达式可以分为四个角色。 （1）装载师 ? ? ? ? ?主要负责次数相关的匹配。 ? ? ? ? ?* 匹配之前的字符，出现=0次 ? ? ? ? ?+匹配之前的字符，出现=1次 ? ? ? ? ??匹配之前的字符，出现=1次 （2）变形金刚 ? ? ? ? 主要负责某一类型的匹配。 ? ? ? ?[详细]
-
perl正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：62
一、简介 二、匹配操作符 三、模式中的特殊字符 1、字符 2、字符 []和[^] 3、字符 +，*和? 4、转义字符 5、匹配任意字母或数字 6、锚模式 7、模式中的变量替换 8、字符范围转义前缀 9、匹配任意字符 10、匹配指定数目的字符 11、指定选项 12、模式的部分重用[详细]
-
Perl模式匹配
所属栏目：[大数据] 日期：2020-12-16 热度：101
Perl 内置的模式匹配让你能够简便高效地搜索大量的数据。不管你是在一个巨型的商业门户站点上用于扫描每日感兴趣的珍闻报道，还是在一个政府组织里用于精确地描述人口统计（或者人类基因组图），或是在一个教育组织里用于在你的 web 站点上生成一些动态信息[详细]
-
Perl使用总结
所属栏目：[大数据] 日期：2020-12-16 热度：79
1. 如何检查变量是否初始化？ if(defined($var)) 对于数组的初始化检测，可以同样适用，但并不提倡这么做，运行会提示使用了 Deprecate函数。可以通过检测数组长度判断： if($#array eq -1){} 2. 数组遍历 my $i = 0; while($i $#ar) #$#取得数组@ar的最后一[详细]
-
在使用perl xs 扩展C/C++的时候，如何在测试文件中使用到C/C++定
所属栏目：[大数据] 日期：2020-12-16 热度：52
在使用perl xs封装C或者C++的函数的时候，如果C或者C++函数中的头文件中定义有常量或者enum常量的时候，如何在perl的测试文件中使用它们呢？很简单。 1：修改Makefile.PL文件，在Makefile.PL文件中加入以下代码： if (eval {require ExtUtils::Constant; 1})[详细]
-
Perl模块的三种安装方法
所属栏目：[大数据] 日期：2020-12-16 热度：128
一般来说，安装perl模块常见有源码、CPAN命令、包管理工具等三种方法，本文以安装Net::Telnet模块为例，简单的介绍一下这三种方法。 第一种，直接去CPAN官网下载源码包安装，详细的安装方法等，请参照解压目录下的README或者INSTALL文件： ? 1 2 3 4 5 6 [ro[详细]
-
Perl中常见的特殊符号
所属栏目：[大数据] 日期：2020-12-16 热度：178
Perl的特殊符号 @????? ??数组?? ? ? ? ? ? ? ? ? ? ? ? ?? $x{}??? ?x名字前面是美元符号($),后面是花括号({}),则其为?hash?元素 %??????? ?要引用整个?hash,使用百分号(“ )作为前缀。前面几页中使用的?hash?的名字为%family_name。 $!??????? 根据上下文[详细]
-
Perl 获取当前程序的绝对路径与勘误
所属栏目：[大数据] 日期：2020-12-16 热度：148
前言 ? 你写的脚本（或程序）的应用场景肯定有很多，如：本机登录用户在程序所在的目录下运行；本机登录用户在根目录下运行；或者是远程用户使用SSH调用。 ? 而此时，你的程序涉及到一些文件的读/写操作，这时就需要以当前程序所在绝对路径为文件路径坐标基[详细]
-
Perl 获取当前程序的绝对路径与勘误
所属栏目：[大数据] 日期：2020-12-16 热度：145
前言 ? 你写的脚本（或程序）的应用场景肯定有很多，如：本机登录用户在程序所在的目录下运行；本机登录用户在根目录下运行；或者是远程用户使用SSH调用。 ? 而此时，你的程序涉及到一些文件的读/写操作，这时就需要以当前程序所在绝对路径为文件路径坐标基[详细]
-
如何用Perl发送邮件
所属栏目：[大数据] 日期：2020-12-16 热度：188
使用Perl 发送邮件有很多方式，随便可数出来的有: mail, sendmail,Arial; line-height:26px">Mail::Mailer,Arial; line-height:26px">MIME::Lite 等等。这些方式都能实现邮件的发送，具体的就要看用在什么场合了。 1. mail方式 这个调用系统命令，算是最简单[详细]
-
Perl实现的C/S模式的本地端口发送与监听
所属栏目：[大数据] 日期：2020-12-16 热度：138
用Perl写的一个C/S模式的: client端向本机端口消息发送消息， server端监听本机端口，接收并响应client发送的消息。 也可以说是两进程间的socket通信。 实现很简单，但能稳定而良好地工作， 稍作改造，加些功能后，能用在很多类似需要C/S工作模式的场合。 se[详细]
-
多进程编程: Perl与C进程间的消息队列通信
所属栏目：[大数据] 日期：2020-12-16 热度：100
前言: perl和C语言都提供了消息队列的机制,而且这两种语言中的消息队列可以相互兼容. 当涉及到系统架构时， 可以用C语言实现核心计算模块,用Perl实现业务逻辑层, 而这两层间可以通过消息队列来实现不同语言的进程间的通信. 本文先用两个示例程序讲解Perl对消[详细]
-
Basic exception handling in Perl
所属栏目：[大数据] 日期：2020-12-16 热度：199
Exception Handling Basic exception handling in Perl The most basic way to handle exceptions in Perl is to use an?eval BLOCK?and have?$@?transmit the error. 1 2 3 4 5 6 eval {????????????????????????? # try ???? ...run the code here.... 1;[详细]
-
Perl/TKx 常用窗口控件
所属栏目：[大数据] 日期：2020-12-16 热度：190
1. 创建提示框： Tkx::tk___messageBox(-type = "yesno",-message = "Are you sure you want to install SuperVirus?",-icon = "question",-title = "Install"); tk___messageBox的各个参数含义如下： type：提示框类型，显式的按钮有所不同。 ok (default)[详细]
-
perl常用函数集合
所属栏目：[大数据] 日期：2020-12-16 热度：108
?Split: Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中。 例1: $info="Caine:Michael:Actor:14,LeafyDrive"; ? @personal=split(/:/,$info); ? result:@personal=("Caine","Michael","Actor","14,LeafyDrive");[详细]
-
mmm-启动mmm-agent服务错误信息-Starting MMM Agent daemon... C
所属栏目：[大数据] 日期：2020-12-16 热度：89
在配置相关的mmm架构中，有些包需要安装，比如使用perl编译的相关包数据，在编译的时候有时候会提示以下错误信息如： Starting MMM Agent daemon... Can't locate Log/Log4perl.pm in @INC。。。。。。。。。。。。。。。。。 这里我们可以使用 perl?-MCPAN?[详细]
-
perl初学
所属栏目：[大数据] 日期：2020-12-16 热度：67
编译器下载：http://strawberryperl.com/ 1.建立程序文件 test.pl test.pl 代码： print "Hello,Perl.n" 2.点击下面红色地方，进入dos,再进入要编译的文件路径,指令：perl ?test.pl[详细]
-
探索perl的世界1-10章讲义及示例
所属栏目：[大数据] 日期：2020-12-16 热度：103
?见附件[详细]
-
perl把Excel一列复制
所属栏目：[大数据] 日期：2020-12-16 热度：115
#!perl -wuse Win32::OLE qw(in with);my $file = "C:/Users/Administrator/Desktop/input.xls";my $fileOut = "C:/Users/Administrator/Desktop/output.xls";my $sheet = 1;#第几个页my $Row = 3;#你要取出的列my $Excel = Win32::OLE-GetActiveObject('Exc[详细]
