PERL - 技术教程文章
Perl 调用R分词进行文本数据分析【代码】【图】
最近有一个文本分析的需求，因分析系统用的是Perl，而Perl下优秀的中文文本分析包又少，所以调用R处理文本数据。为什么不用Python尽管Python拥有完备的NLP开源包支持，但是理由也很简单——因为Python目前接触不多，不敢班门弄斧，Python以后再说。目前，也只是需要的是一个快速原型，如果生产数据剧增，后期还需用c++重构下核心算法（顺便提一下，HMM就不重写了，吃力不讨好）。如何开始1.安装R程序，将R程序安装路径加入环境变量...
Hyperledger fabric 1.0Beta网络组成及构建流程【图】
一、fabric网络结构(暂时不包括CA) 如上图所示，在fabric网络中，O表示Orderer，P代表Peer，EP代表Endorsing Peer(endorser)，CC代表Chaincode以及Client、Channel、Ledger、Transaction，由它们组成了整个网络，下面对每种元素进行介绍： Client：安装在节点(Peer)处的客户端，可以发起构建channel的请求，也可以创建和发起事务(transaction)；它不能直接操作chaincode，必须通过peer。 Peer：从orderer处获取区块用于维护...
（转）Please ensure Intel HAXM is properly installed and usable. 解决方案
转http://www.cnblogs.com/csulennon/p/4178404.html Andriod Atom x86模拟器启动报错。http://blog.csdn.net/rznice/article/details/40210213原文：http://www.cnblogs.com/coolsxh/p/4886534.html
（三）redis的其他功能-Bitmap，HyperLogLog，GEO【代码】【图】
redis除了5种数据类型之外，还提供了其他功能，如：慢查询，pipeline，事务，发布订阅和消息队列，Bitmap，HyperLogLog，GEO1.Bitmap(位图)BitMap，即位图，其实也就是 byte 数组，用二进制表示，只有 0 和 1 两个数字。 就是通过一个bit位来表示某个元素对应的值或者状态,其中的key就是对应元素本身。我们知道8个bit可以组成一个Byte，所以bitmap本身会极大的节省储存空间。API：命令含义getbit key offset对key所存储的字符串值，...
Perl 操作符
算术运算操作符：运算符 说明 举例 +加法$a + $b-减法 $a - $b*乘法$a * $b/除法$a / $b**乘幂$a ** $b%取余$a % $b-单目负-$a整数比较操作符： 操作符 说明 举例 <小于$a < $b>大于$a > $b==等于$a == $b<=大于等于$a <= $b>=小于等于$a >= $b!=不等于$a != $b<=>比较， 两个值相等返回0， 第一个值大返回1， 第二...
Perl中的特殊内置变量详解【代码】
#!/usr/bin/perl -w@array = qw(a b c d); foreach (@array) {print$_,""; } 例子的作用就是定义一个数组并把其中的元素打印出来，这里需要注意的是foreach循环部分，foreach循环的标准格式应该是： foreach$element (@array){...... } 其中数组@array将其中的元素依次赋值给$element，但是在上面那个程序中，我并没有这样做，在程序中，我就使用到了perl中内置的一个特殊变量 $_ 在程序第五行中 foreach (@array) 实际上就是等于 ...
substr函数在perl和php中的一点不同【代码】
在perl和php中使用substr相同代码，不同结果。php：$addtime = "2009-04-13"; $datetime = "2008-12-31 12:00:00"; substr($datetime,0,10) = $addtime; echo $datetime;编译错误： Can‘t use function return value in write contextperl：#!/usr/bin/perl -w use strict; my $addtime = "2009-04-13"; my $datetime = "2008-12-31 12:00:00"; substr($datetime,0,10) = $addtime; print $datetime;结果：2009-04-13 12:00:00per...
写在HyperLedger Fabric翻译之前
因为比特币等数字货币的推广，让区块链的知名度越来越高。区块链分为，公有链，联盟链，私有链。从个人了解的知识觉得联盟链的应用程度或高于另外两种。为什么呢？区块链比较核心的作用是解决信用问题，所以私有链的应用场景不是很大(一个人建立一个私有链的商业价值不大)，或者完全可以归入到联盟链中。 公有链应用虽然是众心所向，也是最正宗最原始的区块链。但是因为在现在社会中区块链的落地除了理想，还要考虑落地场景的应...
Perl注释【图】
1.注释单行注释用#多行注释使用 =[a-z]+ =cut 组合:=acodes=cut=a和=cut需在行首。650) this.width=650;" src="/upload/getfiles/default/2022/11/16/20221116011703808.jpg" title="QQ截图20140405150548.png" />第一个=后面需接任意一个小写字符，=cut后不要再接任何字符。2. 本文出自 “飒飒秋风” 博客，请务必保留此出处http://xjhznick.blog.51cto.com/3608584/1390911原文：http://xjhznick.blog.51cto.com/360...
perl面向对象实例
首先让我们来看看有关 Perl 面向对象编程的三个基本定义：1. 一个“对象”是指一个“有办法知道它是属于哪个类”的简单引用。(对象就是引用变量) 2. 一个“类”是指一个“有办法给属于它的对象提供一些方法”的简单的包。（类就是包） 3. 一个“方法”是指一个“接受一个对象或者类名称作为第一个参数”的简单的子程序。（类的方法就是第一个参数为类名或对象的方法）一个类只是一个简单的包和 C++ 不同，Perl 并不为类定义提供...
perl 学习
#########安装PERL cpan DBD::mysql错误笔记 分类： Python/Ruby2012-12-27 17:21:14 刚开始使用:cpan DBD::mysql 命令来安装该模块由于是编译的版本的SQL版本，已经在/etc/profile 中修改：export PATH=/usr/local/mysql/bin:$PATH 担心找不到mysql lib文件。 报错如下：# Tried to use ‘DBD::mysql‘.# Error: Can‘t load ‘/root/.cpan/build/DBD-mysql-4.022/blib/arch/auto/DBD/mysql/mysql.so‘ for module DBD::mysql: l...
perl中->和=>作用
-> 用法-> 有两种用法，都和解引用有关。 第一种用法，就是解引用。 根据 -> 后面跟的符号的不同，解不同类型的引用， ->[] 表示解数组引用，->{} 表示解散列引用，->() 表示解子程序引用。 例子： $arr_ref = /@array; $arr_ref->[0] 访问数组 @array 的第一个元素。 $hash_ref = /%hash; $hash_ref->{foo} 访问 %hash 的 foo 分量 $sub_ref = /&test; $sub_ref->(1, 2, 3) 使用参数列表 (1,2,3) 来调用 &test 这个子程序。 第二种...
Cross compile perl【代码】
Alex Suykov had do some work for this purpose, and my compile script is based on her patch.StepsStep 1:Download perl source code from perl’s official site, such as:wget http://www.cpan.org/src/5.0/perl-5.20.2.tar.gzStep 2:Download the corresponding perl cross compile patch from Alex Suykov ‘s site.wget https://raw.github.com/arsv/perl-cross/releases/perl-5.20.2-cross-0.9.7.tar.gzStep 3:Extract t...
perl模块LWP::Simple学习【代码】
如何在Perl中使用该模块？ use LWP::Simple; 2. 如何获取一个页面内容？ my $content = get(‘http://www.yahoo.com.cn‘); get函数把从www.yahoo.com.cn上获取得页面内容全部赋给$content这个变量， 如果获取失败将返回一个undef的值。 3. 如何获取头(Head)？ my (b, d, $e) = head(‘http://www.yahoo.com.cn‘); 如果获取成功head函数将返回五个变量，$a-e分别代表内容类型，文档长度，最 后更新的时间，过期和服务器名称。 4. ...
Windows 8.1 新增控件之 Hyperlink【代码】【图】
原文:Windows 8.1 新增控件之 HyperlinkHyperlink 控件应该不用过多介绍大家肯定十分清楚其作用，它的功能就像HTML中的<a href=””>标签一样，只不过是在XAML中实现。使用Hyperlink 标记的文字在应用中会以特殊颜色显示，当用户点击或触碰该文字时就会自动转到NavigateUri 指向的地址链接。如下代码所示：<TextBlock FontSize="50" FontWeight="Bold">Getting started tutorials for Windows</TextBlock> <TextBlock FontSize="...
perl用变量做句柄介绍
复制代码 代码如下:#!/usr/bin/perl -wuse strict;use warnings;use FileHandle;my %fh;my @array = (1..10);for(1..5){ open $fh{$_},">$_.txt" or die;}for(1..5){ #print $fh{$_} "$_\n"; 此处错误 $fh{$_}->print( "$_\n" ); #为FileHandle里的函数 或 用（my $h = $fh{$_}; print $h "$_\n"；）亦可 }注意：上述错误是由于：<>里面不是简单标量就会被当glob，Perl 支持 <FILEHANDLE> 或者是 <$sc...
Perl实践之内容匹配整理【代码】【图】
一、前言：最近在学习Perl，发现Perl很有趣，强大的正则匹配对文本处理很有效。想到最近有在刷网课，某学习网站上的选择题的顺序是随机的，发布答案的网站选项与我的测验的选项不匹配，看着眼睛累，还容易出错。秉承着“懒惰即美德的”的想法，所以想到用利用最近学习Perl来整理下我的答案选项。以下为网站答案原有形式：9、高校对师资博士后有哪些福利A、等同于博士直接入职待遇B、所在城市基金委会提供一部分福利C、分房D、直接送...
[码海拾贝 之Perl]在字符串数组中查找特定的字符串是否存在
前言检索一个字符串是否存在于一个数组中， 最基本的想法应该就是对数组进行循环， 逐个判断数组的每个元素值和给定的值是否相等。(在Java语言还可以把数组转成 List , 在 list 中直接有 contains 方法可以使用)看一段简单的代码：my @arr2 = qw(str1 str2 str3 str4); foreach(@arr2) {if($_ eq "str2"){print "str2 exist in Array!\n";last;} }这段代码看起来挺简洁，也不难理解。 但是在Perl 在还有另外一种方法，只需要一行代...
Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享
这里首先介绍下nali的这个开源小程序，项目地址：http://code.google.com/p/qqwry/以下介绍来自项目的负责人的网站的陈述：复制代码 代码如下: 下载 nali-0.2.tar.gz – 2011-09-11发布(下载链接一，下载链接二) nali-0.1.tar.gz – 2009-08-16发布说明nali，名字取自中文“哪里”的拼音。nali包含一组命令行程序，其主要功能就是把一些网络工具的输出的IP字符串，附加上地理位置信息(使用 纯真数据库QQWry.Dat)。例如218.65.137.1...
Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace【代码】
Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace// Replacevar reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.RegEx := ‘ab‘; reg.Replacement := ‘◆‘; reg.Subject := ‘ababab‘; reg.ReplaceAll; ShowMessage(reg.Subject); //返回: ◆◆◆ reg.Subject := ‘ababab‘; //下面四行程序, 相当于 reg.ReplaceAll; while reg.MatchAgain do begin reg.Replace; end; Sh...
一个简单的perl程序【代码】【图】
和朋友聊天，说perl的神奇，最主要的是一行代码搞定所有。想想用python3写的测试脚本，觉得还是有点多的，真的用几行代码写一个测试脚本，可以节约不少时间。当然，网上黑perl的还是很多，不过自用嘛，要的是快，可以几分钟搞定的就不必再花几小时去折腾了。老规矩，先找一个乘手的工具，Padre是一个不错的工具，简单实用，最关键是官方提供，免费。下载的地址：http://padre.perlide.org/download.html，不过看起来需要vpn才行，国...
perl 纯变量（Scalar） 转载
转载http://blog.chinaunix.net/uid-20639775-id-154591.htmlPerl有三种变量：纯变量(Scalar Varible)数组(Array)关联数组(Associative array)一、纯变量 又称标量变量，是Perl处理的最简单的数据类型。标量可以是数字(如2,3或2.5e6)， 也可以是字符串(如“hello”和“网上学园”)。 Perl中的标量变量以美元符号$和一个字母开始，以后可以是字母、数字和下划线，大小写有区别，而且所有字母、数字和下划线都有效。如： $...
Hyperledger Fabric 环境搭建
前两个月间断的用业余时间在网上查了些相关的环境搭建步骤，没有比较完善的，且版本都比较旧了。最近国家响应区块链技术，于是在图书馆中无疑发现了一本关于hyperledger fabric相关的书籍，有些内容写的比较清晰简洁，结合自己实测经验，在此笔记一下。 环境搭建： 操作系统：建议64位ubuntu16.04, 内存2G以上，硬盘30G以上 （自己也测试过windows,装了个虚拟机即可） 工具： 1.git(用户获取git相关源...
perl 的基本数据类型【代码】
1、变量 scalar：$varname 变量 数组： @varnanme Hsah： %varname 文件： 通常大写字母2、变量名的命名规则 简单变量以$开头后面跟字母数字或者下划线； 区分大小写； 变量名长度不限； 没有关键字，但是不能和内置变量重名；数值：12 -12 12e3 #（科学计数法，e不区分大小写） 1_222_2333 #-只是分隔符，便于阅读，perl语句执行时会自动忽略 012 #0开头的默认是八进制数 0x2f #十六进制数，f不区分大小写#/usr/bin/...
Windows Myeclipse 10 安装 perl 插件
1.首先安装 windows 下的 perl 环境这里使用 active perl，选择最新版本 5.16.1下载地址：http://www.activestate.com/activeperl/downloads文件名：ActivePerl-5.16.1.1601-MSWin32-x86-296175.msi安装即可2.安装 myeclipse 插件 EPIChttp://sourceforge.net/projects/e-p-i-c/files/latest/download?source=filesorg.epic.updatesite_0.6.35_20090521.zip 下载后解压将 feature 和 plugins 两个文件夹放到 myeclipse 安装目录...
bioperl 自动化下载genbank 中的序列【代码】【图】
当我们想要从genbank 中下载序列的时候，总需要点击右上角的download 按钮，选择对应的格式，然后通过浏览器进行下载，这样反复的点击很费时间了其实可以通过bioperl 自动化的完成下载；代码如下：#!/usr/bin/env perluse Bio::SeqIO; use Bio::DB::GenBank;my ($acc, $out_dir) = @ARGV;die"Usage:perl $0 <acc_number> <out_dir>\n"ifscalar@ARGV != 2;system qq{mkdir -p $out_dir} if not -d $out_dir;my$seq_obj = retriev_se...
Perl 学习笔记－高级控制结构.unless控制结构【代码】
1.unless控制结构 类似于独立的else语句; 要么条件为真, 要么执行语句块内的代码; unless(<condition>){code...;} 等价于 if(<condition>){}else{code...;} 也就是当条件为假是执行.unless (0) { print "Hello"; #Hello}2. until控制结构 until就是改装过的while, 区别在于它在条件为假是执行代码块.$i = 2;$j = 10;until($i>$j){ $i++; print "Hello\n"; }3.条件修饰词 为了进一步简化表达, 表达式后面可以接...
与Perl兼容的正则表达式函数
正则表达式不能独立使用，它只是一种用来定义字符串的规则模式，必须在相应的正则表达式函数中应用，才能实现对字符串的匹配、查找、替换及分割等操作。前面也介绍过在PHP中有两套正则表达式函数库，而使用与Perl兼容的正则表达式函数库的执行效率要略占优势，所以在本书中主要介绍以“preg_”开头的正则表达式函数。另外，在处理大量信息时，正则表达式函数会使速度大幅减慢，应当只在需要使用正则表达式解析比较复杂的字符串时才...
perl---window下Mojolicious框架morbo启动后修改templates不会实时更新【代码】
不知道是不是只有我的是这样 呵呵。。。PERL\mojoka\my_app\script>morbo -h Usage: morbo [OPTIONS] [APPLICATION] morbo ./script/myapp morbo ./myapp.pl morbo -m production -l https://*:443 -l http://[::]:3000 ./myapp.pl morbo -l ‘https://*:443?cert=./server.crt&key=./server.key‘ ./myapp.pl morbo -w /usr/local/lib -w public ./myapp.plOptions: -h, --help Show this message...
Perl和操作系统交互(一)：system、exec和反引号【代码】
调用操作系统命令：system函数system函数可以直接让perl调用操作系统中的命令并执行。system入门示例例如：#!/usr/bin/perlsystem 'date +"%F %T"'; system 'echo hello world'; system 'echo',"hello","world";执行结果：2018-06-21 18:32:50 hello world hello world注意system的参数可以被单个引号包围，也可以用多个引号分隔成多个参数，如果分隔开，system会将它们用空格的方式连接起来。另外，上面使用了单引号、双引号，都能...