PERL - 技术教程文章
perl智能匹配【代码】
1.perl中~~为智能匹配，它能够智能地依据符号两側的操作数来确定操作。如要推断某个元素是否存在于数组中，不使用智能匹配，程序像这样：my $x=2; my @array=(1,2,3); my $flag=0; for (@array) { if($x==$_) { $flag=1; } }if($flag == 1){ print "$x is in the array"; } else { print "$x is not in the array"; } 使用智能匹配，程序像这样：my $x=2; my @array; if(@array~~$x) { print "$x is in the array"; } else { print...
perl---window下Mojolicious框架POST/GET路由选择时提示找不到模版【代码】
Page not found... yet!None of these routes could generate a response for your POST request for /login, maybe you need to add a new one?$r->post(‘/login‘)->to(‘PostPage#login‘);debug提示：。。。 不知道是咋的模版居然会多了下划线 Template "post_page/login.html.ep" not found.把PostPage改成Postpage 就好了。。。 大小写问题吧。。。本文出自 “RZL_01的博客” 博客，请务必...
perl中ENV的使用【代码】
在打印环境变量的时候可以用到。实际上是%ENV，perl中的哈希变量，里面保存的是环境变量。键是环境变量名，值是环境变量值。例如，有一个环境变量是PATH，其值为C:\windows，那么，打印这个环境变量的方法就是：print($ENV{PATH}); #！usl/bin/perlmy$directory = $ENV{ZION_HOME};print"Environment:$directory";#打印环境变量，D:\ZionProjectsexit0unlessexists($ENV{ZION_HOME});#如果存在，后面一句不执行，因为程序已经退出p...
Perl常用特殊变量【代码】
perl 内置变量$- 当前页可打印的行数,属于Perl格式系统的一部分$! 根据上下文内容返回错误号或者错误串$” 列表分隔符$# 打印数字时默认的数字输出格式$$ Perl解释器的进程ID$% 当前输出通道的当前页号$& 与上个格式匹配的字符串$( 当前进程的组ID$) 当前进程的有效组ID$* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之.$, 当前输出字段分隔符$. 上次阅读的文件的当前输入行号$/ 当前输入记录分隔符,默认情况是新行$: 字符设置...
PHP扩展模块Pecl、Pear以及Perl的区别
一、简短总结：pear：一个书写的比较规范，国外较流行的工具箱代码集pecl：php扩展包，但不属于php基本扩展范围perl：一种早于php出现的脚本级语言，php借鉴了他的正则表达式部分二、Pear、Pecl都是PHP扩展模块的集合。是扩展PHP的两种方法：A.一种是用纯粹的PHP代码写函数和类。Pear就是这样一个项目。PEAR是PHP的官方开源类库(PHP Extension and Application Repository的缩写)。Pear在英文中是梨子的意思。PEAR将PHP程序开发过程...
perl C/C++ 扩展（一）【代码】
通过h2xs 中间件，我们可以快速的使用c或则C++ 库来实现perl 扩展功能第一讲：跑通hello world 程序******************************我们使用命令：h2xs -A -n test它会帮助你建立一个test的文件夹，里面已经初始化部分文件了进入test目录cd test打开文件test.xsvi test.xs原文件内容为：#include "EXTERN.h" #include "perl.h" #include "XSUB.h"#include "ppport.h"MODULE = test PACKAGE = test我们增加一个函数变成#include "EX...
spring mybatis 关于 basepackage 和 mapperLocations 的通配符匹配实例【代码】
SqlSessionFactoryBeanmapperLocations 注意下面几点classpath*dm***list valueMapperScannerConfigurer basePackage 注意下面几点不支持 listvalue不支持 xx*不同的包使用分号分隔<!-- SqlSessionFactory管理 --><bean id="sqlSessionFactory" class="org.mybatis.spring.SqlSessionFactoryBean"><!-- 注入数据源 --><property name="dataSource" ref="dataSource"/><!-- 加载mybatis的全局配置文件 --><property name="configLoc...
详细说明什么是Perl
一、Perl是什么? Perl是Practical Extraction and Report Language的缩写，它是由Larry Wall设计的，并由他不断更新和维护，用于在UNIX环境下编程。 .Perl具有高级语言（如C）的强大能力和灵活性。事实上，你将看到，它的许多特性是从C语言中借用来的。 .与脚本语言一样，Perl不需要编译器和链接器来运行代码，你要做的只是写出程序并告诉Perl来运行而已。这意味着Perl对于小的编程问题的快速解决方案和为大型事件创...
Perl中的列表和数组学习笔记
一、列表列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , "hello" , 2)，空列表：()。 注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。列表例：复制代码 代码如下: (17, $var, "a string") (17, 26 << 2) (17, $var1 + $var2) ($value, "The answer is $value") 二、数组--列表的存贮 列表存贮于数组变量中，与简单变量不同，数组变量...
[perl] 连接mysql【代码】
先写在这里吧，之后再改进~~ package mysql_conn; use DBI; use strict; sub new{my $class = shift();print ("CLASS=$class\n");my $self={};$self->{"location"} = shift();$self->{"db_name"} = shift();$self->{"db_user"} = shift();$self->{"db_pass"} = shift();bless $self,$class;return $self; } sub get_table_flag_1_3{my ($self,$TABLE)=@_;my $port = "3306"; #这是mysql的缺省my $location=$self->{"location"};my ...
MySQL复制ERROR 1794 (HY000): Slave is not configured or failed to initialize properly.
ERROR 1794 (HY000): Slave is not configured or failed to initialize properly. You must at least set --server-id to enable either a master or a slave. Additional error messages can be found in the MySQL error log. error log中有类似日志：2016-05-10 17:21:25 14407 [Warning] InnoDB: Cannot open table mysql/innodb_table_stats from the internal data dictionary of InnoDB though the .frm file for the ...
perl 标量和运算符的一些知识介绍
1.Perl将一般的变量成为标量，该变量可以指代的直接量包括两种：数字直接量；字符串直接量。a) 字符串的表示方法：单引号，单引号中的字符串中的含义直观，不需要求变量值和转义字符；双引号，需要求变量值和转义字符值。如果需要消除，通常需要在前面添加反斜杠，其中的单引号或双引号也需要。b) 此外，可以使用qq或q分别代替双引号或单引号，界限符可以用成对的(), <>, {}, []等。2. 标量变量：$加变量名（数组使用@，哈希结构使...
perl的输出缓冲
今天写一个小脚本的时候，需要即时输出当前进度到命令行上，并即时将重要数据写入报告文件中。但是perl默认是有输出缓冲的，显示到命令行上必须以\n结尾才行，输出到文件中，回车了都不行，非得要等缓冲区满了。 代码:select( STDOUT ); $| = 1; open( REPORT, ">report.txt" ) || die "create report error: $!\n"; select( REPORT ); $| = 1; select( STDOUT ); 在写入报告和输出进度之前这样处理一...
【log4j】springboot项目启动 ,使用的druid数据源，log4j报错 log4j:WARN Please initialize the log4j system properly.【代码】【图】
springboot项目启动 ,使用的druid数据源，log4j报错2018-05-2108:59:21.168 INFO 1496 --- [ restartedMain] o.hibernate.annotations.common.Version : HCANN000001: Hibernate Commons Annotations {5.0.1.Final} log4j:WARN No appenders could be found for logger (druid.sql.Connection). log4j:WARN Please initialize the log4j system properly. log4j:WARN See http://logging.apache.org/log4j/1.2/faq.html#noconf...
安装keepalived OpenSSL is not properly installed on your system. !!!【代码】【图】
错误信息：configure: error:!!! OpenSSL is not properly installed on your system. !!!!!! Can not include OpenSSL headers files. 解决方案：安装opensslyum install -y openssl openssl-devel 原文：https://www.cnblogs.com/arebirth/p/keepalivedinstallopenssl.html
perl 学习杂项笔记
###由于perl 语法属于很自由的那种, 建议出现错误的时候打开 -w 或者使用 -Mdiagnositics 试一下 ###如何调试 perl程序 http://www.ibm.com/developerworks/cn/linux/sdk/perl/culture-4/原文：http://www.cnblogs.com/qrlozte/p/5018034.html
perl返回哈希和的键和值
#!/usr/bin/perl#!/usr/bin/perl %data = (‘google‘=>‘google.com‘, ‘runoob‘=>‘runoob.com‘, ‘taobao‘=>‘taobao.com‘);@names = keys %data;#该函数返回所有哈希的所有key的数组 #注意是数组print "$names[0]\n";print "$names[1]\n";print "$names[2]\n";%data2 = (‘google‘=>‘google.com‘, ‘runoob‘=>‘runoob.com‘, ‘taobao‘=>‘taobao.com‘);@urls = values %data2;#该函数返回所有哈希的所有value的数...
perl学习之：use and require【代码】
本文和大家重点学习一下Perl use和require用法对比，这两个函数都是一个意思,加载和引用Perl的模块,或者是子程序，区别在于Perl use是在当前默认的里面去寻找,一旦模块不在指定的区域内的化,用Perl use是不可以引入的。Perl use和require用法对比对比（一）说明：这两个函数都是一个意思,加载和引用Perl的模块,或者是子程序,区别在于Perl use是在当前默认的里面去寻找,一旦模块不在指定的区域内的化,用Perl use是不可以引入的第一、...
Perl 哈希【代码】
Perl 哈希哈希是 key/value 对的集合。 Perl中哈希变量以百分号 (%) 标记开始。 访问哈希元素格式：${key}。 以下是一个简单的哈希实例：实例#!/usr/bin/perl%data = ('google', 'google.com', 'CodingDict', 'CodingDict.com', 'taobao', 'taobao.com');print "\$data{'google'} = $data{'google'}\n"; print "\$data{'CodingDict'} = $data{'CodingDict'}\n"; print "\$data{'taobao'} = $data{'taobao'}\n";执行以上程序，输出结...
Perl命令行应用程序详解
perl - Practical Extraction and Report Language，Perl有很多命令行参数，通过它可以让你的程序更简练，并且可以写出很多只有一行命令的perl。在这篇文章里我们来了解一些常用的命令行参数。命令行调用复制代码 代码如下: perl [ -sTtuUWX ] [ -hv ] [ -V[:configvar] ] [ -cw ] [ -d[t][:debugger] ] [ -D[number/list] ] [ -pna ] [ -Fpattern ] [ -l[octal] ] [ -0[octal/hexadecimal] ] [ -Idir ] [ -m[-]module ] [ -M[-]‘...
perl 大文本词频统计.【代码】
思想是设置子文本最大长度,然后分割成多个子文本, 最后合并.词频则是当前位置字和前一位置的字的组合 进入hash.代码如下use Encode; ##编码解码 system("time /t"); ##开始时间 $g_MaxBiNum=1000000; ##最大文本长度 BiCount("train.txt"); MergeBi(\@BiTmp,"bi.txt"); foreach (@BiTmp){unlink($_); } system("time /t"); ##结束时间TrainWordToNum; ##统计字频sub BiCount ##统计词语 {my($File)=@_;$BiFile="tmp";open...
Perl:log自动分析程序随笔1
已实现功能：抓取warn及其描述和num数量未实现功能：怎么对这些warn进行优先级划分，方便以后report分析使用想法：1.找到永久保存和最快速度读取warn level/advice数据的方法：文本？数据库？。。。2.优先级如何划分：建议以5级划分——完全不重要/完全不会导致问题1[不报]，不重要/不会导致问题2[不报]，一般/一般不会导致问题3[统计表格里报]，重要/有可能导致问题4[统计表格报，报告结尾给出一条描述]，非常重要/一定会导致问题...
Perl IO:Socket IO:Select server client
server程序接受客户端信息，并发送回应#!/usr/bin/perl -w# socket_server.pluse strict;use IO::Socket;use IO::Select;# hash to install IP Portmy ($ser_addr, $ser_port)=("127.0.0.1", "12345");our($buffer, $len);my $socket = IO::Socket::INET->new( LocalAddr => "$ser_addr", #本机IP地址 LocalPort => "$ser_port", #定义本机的Port，然后进行bind Type => SOCK_STREAM, #套接字类型 Proto => "tcp",...
解决Caused by: java.sql.SQLException: ORA-00933: SQL command not properly ended
是iBATIS.xml这句话出错了 <isNotEmpty prepend="AND" property="beginDt" >a.updatedate >= #beginDt# </isNotEmpty> <isNotEmpty prepend="AND" property="endDt" >a.updatedate >= #endDt# </isNotEmpty>改成 <isNotEmpty property="beginDt">and a.updateDate>=#beginDt#</isNotEmpty><!-- 起初日期 --> <isNotEmpty property="endDt">and a.updateDate<=#endDt#</isNotEmpty><!-- 结束日期 -->就好原文...
利用perl、python、php、shell、sed、awk、c 实现字符串的翻转
原题：Q：有a.txt文件，里面内容如下 1234569 abcABCabc 要求使用awk打印出以下结果 987654321 cbaCBAcbaA：shell ：[root@vps tmp]# rev a.txt 9654321 cbaCBAcbaperl ： [root@vps tmp]# perl -nle ‘print scalar reverse $_;‘ a.txt 9654321 cbaCBAcbaawk： [root@vps tmp]# awk ‘{num=split($0,arr,”");for(i=num;i>0;i–){printf arr[i];if(i==1){printf “\n”}}}‘ a.txt 9654321 cbaCBAcbaphp： [root@vps tmp]# php ...
perl learning
Perl 中文教程 http://cn.perlmaven.com/perl-tutorial learning perl in about 2 hours 30 minuteshttp://qntm.org/files/perl/perl.html china unix http://bbs.chinaunix.net/forum-25-1.htmlhttp://bbs.chinaunix.net/thread-159016-1-1.html 知乎https://www.zhihu.com/question/20317871https://www.zhihu.com/question/19647485 原文：http://www.cnblogs.com/kex1n/p/5103270.html
perl获取linux缓存的内存号【代码】
我正在写一个perl脚本,我真的想获得当前在我的linux盒子上使用的缓存内存量.当你运行“free -m”时,你得到这个输出：total used free shared buffers cached Mem: 496 322 173 0 33 106 -/+ buffers/cache: 183 312 Swap: 1023 25 998“缓存”下的数字是我想要的值.我一直在使用Linux::SysInfo,这有助于我获得有关我...
使用perl+MongoDB实现一个WEB站点请求耗时日志分析系统
PS:从我的新浪博客搬过来的文章 前段时间部门要我统计各个web应用的请求耗时情况，以便各个组能找出耗时多的功能进行优化。其实这个分析看似比较简单，只要拿到各个web应用的access日志就很容易获得所有请求的耗时。但调查了实际环境以后发现要填的坑还真不PS:从我的新浪博客搬过来的文章 前段时间部门要我统计各个web应用的请求耗时情况，以便各个组能找出耗时多的功能进行优化。其实这个分析看似比较简单，只要拿到各个web应用的...
linux – 如何让Log4perl每天轮换我的日志？【代码】
我正在阅读Log4perl,并希望尝试使用它来简单地管理在Linux机器上运行的Perl脚本.我也读过newsyslog和logrotate但是想尽可能使用Log4perl. 我正在尝试配置/etc/log4perl.conf文件,以便它： >定义一个小部件记录器(INFO级别),它将所有输出写入/opt/myapp/logs/myapp-\u0026lt;datetime\u0026gt;.log,其中< datetime>是一个日期/时间格式的字符串,如2012-12-20>此myapp-< datetime> .log文件需要每天轮换(最好在午夜),旧文件将被删除,...
Perl内联Java中的Java枚举【代码】
我使用Inline::Java从我的Perl代码中调用Java库.但是,有一个函数调用我无法使用,因为它需要枚举类型作为参数. 这些是我的Java方法签名：public class Initializer {[...] public int initializeExtractor() {...}public int initializeExtractor(Language... languages) {...}我试图在Perl中调用后者：use Inline (Java => 'STUDY',[...]AUTOSTUDY => 1,STUDY => [[...],'package.Language'],JNI => 0, );[...]my $ins...