PERL - 技术教程文章

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 ->符号第二种用法,就是调用类或者对象...

[Linux]centOS7下RPM安装Perl

1.下载rpm依赖包,依照顺序安装.perl-parent-0.225-244.el7.noarch perl-HTTP-Tiny-0.033-3.el7.noarch perl-podlators-2.5.1-3.el7.noarch perl-Pod-Perldoc-3.20-4.el7.noarch 1:perl-Pod-Escapes-1.04-286.el7.noarch perl-Text-ParseWords-3.29-4.el7.noarch perl-Encode-2.51-7.el7.x86_64 perl-Pod-Usage-1.63-3.el7.noarch 4:perl-libs-5.16.3-286.el7.x86_64 4:perl-macros-5.16.3-286.el7.x86_64 perl-Storable-2.45-3.el...

Perl:Perl的一些应用例子。【代码】

1. 如何把一个字符串中的所有大写字符转成小写?my$name="I am John"; $name=~s/[A-Z]*/\L$&/g; print$name; 转成小写:$name=~s/[a-z]*/\U$&/g; 原文:http://www.cnblogs.com/zuiaishenlin/p/3984722.html

解决Jetty Maven Plugin:Please initialize the log4j system properly(转)【代码】

解决Jetty Maven Plugin:Please initialize the log4j system properly.Jetty Maven Plugin环境:<plugin><groupId>org.mortbay.jetty</groupId><artifactId>jetty-maven-plugin</artifactId><version>8.1.10.v20130312</version> </plugin> 加入日志配置文件:<plugin><groupId>org.mortbay.jetty</groupId><artifactId>jetty-maven-plugin</artifactId><version>8.1.10.v20130312</version><configuration><systemProperties><s...

Perl List::Util模块用法详解【代码】

本文介绍Perl标准库List::Utils中的列表工具,有时候它们非常好用。比如Perl中测试列表中是否包含某个元素(某个元素是否存在于列表中)没有比较直接比较方便的功能,但使用List::Utils中的first或any函数,则非常方便且高效。此外,该模块都有对应的C代码的函数,所以它们的效率也不差。可以将List::Utils模块中的功能大致分为3类:reduce类、key/value类以及其它类:reduce类:reduce类的函数是依次取(迭代)列表中的元素,并对这些...

Perl6 Bailador框架(3):路径匹配【代码】

use v6; use Bailador;=begin pod 注意的是, 当/:one设置时 虽然你有/admin或/about, 但这个/:one不会跟现有的匹配 只跟没有的匹配: 也就是说, 当你输入/admin或/about时, get ‘/:one‘对应的匿名子例程不会运行 当你访问的不是/admin或/about时, get ‘/:one‘发条会执行 还有一点要注意的就是 当你设置/admin时, 所有/admin或/admin*都会返回get ‘/admin‘子例程 如果你要设置/admin/login子例程时, 要明确指定才行, 并...

Perl处理数据(一):s替换、split和Join【代码】

m//模式用来匹配文本,也就是说用来找数据。而s///用来查找并替换文本,所以可以用来处理文本文件。在有了正则的基础之后,s///用起来会简单很多。用法格式为:$str =~ s/reg/replacement/;它表示用reg去搜索$str中的内容,并将搜索出来的内容替换为replacement。1.s///的斜线可以替换为其他对称的符号(括号类)或相同的符号。例如s!!!、s###、s%%%、s()()、s{}{}、s<><>、s[][]等,还可以混用符号,例如s{}##、s{}()等。$str = "ma...

攻防世界-web-i-got-id-200(perl文件上传+ARGV造成任意文件读取和任意命令执行)【代码】【图】

题目来源:csaw-ctf-2016-quals题目描述:嗯。。我刚建好了一个网站进入场景后有3个链接,点进去都是.pl文件,.pl文件都是用perl编写的网页文件。尝试后发现,Files链接可以上传文件并把文件内容打印出来。猜想后台应该用了param()函数。param()函数会返回一个列表的文件但是只有第一个文件会被放入到下面的接收变量中。如果我们传入一个ARGV的文件,那么Perl会将传入的参数作为文件名读出来。对正常的上传文件进行修改,可以达到读...