perl 指定长度并生成一个随机的DNA序列的脚本代码
perl指定长度并生成一个随机的DNA序列的代码,有需要的朋友可以参考下 复制代码代码如下:#!/bin/perl usestrict; usewarnings; #进行定义 my@dna; my$dna_length; my$ne...perl去除重复内容的脚本代码(重复行+数组重复字段)
perl去除重复内容的小脚本,有需要的朋友可以参考下,包括重复行、数据组中重复的字段 假如有这样的一段序列:12 12 21 13 14 15 41我们需要得到如下的结果:13&nbs...- 0
- 0
- 0
- 0
- 0
perl中子程序中参数的两种引用(传递)方式介绍
这里主要讨论的是当你要传递的参数不是仅仅一个的时候,也就是两个以上,并且他们数据的类型还不一致的时候,我们要遇到的问题 下面是一个例子:复制代码代码如下:usestrict;#这里是两个数组my@i=...- 0
- 0
- 0
- 0
- 0
perl实现blog备份的脚本代码
用perl实现的备份sql的代码,需要的朋友可以参考下之前总不重视自己的博客,上回一丢才心疼,现在重视起来,决定定期备份sql。写个小脚本如下:复制代码代码如下:#!/usr/bin/perlusewarnings;usestri...- 0
- 0
- 0
- 0
- 0
perl use vars pragma使用技巧
perl中的vars是perl中的一个pragma(预编译指示符),专门用来预定义全局变量,这些预定义后的全局变量在qw()列表中,在整个引用perl文件中皆可使用,即便使用usestrict也不会报错 perl中的vars是pe...- 0
- 0
- 0
- 0
- 0
一个perl扩展正则表达式代码分析
今天傍晚,莫言在Q群里贴了一个他写的正则表达式,回来翻了翻perlre文档,基本算是看懂,赶紧记录下来复制代码代码如下:my$ip="192.168.0.1|192.168.0.2|192.168.0.1";if($ip=~/ ^ ...- 0
- 0
- 0
- 0
- 0
perl中单行注释和多行注释使用介绍
在编程时把一段代码注释掉,即通过注释的方法,使其不能够运行,但是依然存在于代码中,等以后需要时再去掉注释 Perl中的程序注释:单行注释和多行注释(一)单行注释:以#开头的行都被perl认为是注释...- 0
- 0
- 0
- 0
- 0
Perl Sort函数用法总结和使用实例
这篇文章主要介绍了PerlSort函数用法总结和使用实例,需要的朋友可以参考下 一)sort函数用法 sortLISTsortBLOCKLISTsortSUBNAMELIST sort的用法有如上3种形式。它对LIST进行排序,并返回排序后...- 0
- 0
- 0
- 0
- 0
perl qw以空格为分隔符问题的解决方法
perl中创建数组时,可以使用到qw。但考虑到英文名称中间的空格等情况就需要单独处理了 perl中创建数组时,可以使用到qw。 但有一个问题,如果要创建有20个人名组成的数组,并且每个人的名字是这种...- 0
- 0
- 0
- 0
- 0
Perl使用File::Basename获取文件扩展名的代码
本文为大家介绍的这个例子,实现了获取/home/topgkw中所有文件后缀,其中目录返回空值File::Basename模块用来析取文件路径中的目录,文件名以及后缀。本文为大家介绍的这个例子,实现了获取/home/to...- 0
- 0
- 0
- 0
- 0
Perl中使用MIME::Lite发送邮件实例
这篇文章主要介绍了Perl中使用MIME::Lite发送邮件实例,本文介绍了使用sendmail方式发送、发送HTML格式邮件、smtp方式发送邮件等内容,需要的朋友可以参考下 有时候我们在部署脚本的时候,我们想知...- 0
- 0
- 0
- 0
- 0
perl用{}修饰变量名的写法分享
在perl中用{}修饰变量名,可以防止_被解释为变量名的一部分复制代码代码如下:subtest{ my$head="abc"; my$tail="def"; my$full="${head}_${tail}"; &nbs...- 0
- 0
- 0
- 0
- 0
perl 模块打包加入外部依赖程序
Perl社区并不是所有的东西都发布在CPAN上。甚至专门有一个Module::ThirdParty模块记录这些非CPAN的perl项目列表。其中最有名的应该就属写博客的MovableType和做监控的SmokePing了 Perl社区并不...- 0
- 0
- 0
- 0
- 0
perl的POD权限问题处理
今天我们继续查找mod_perl对req_header的处理,有需要的朋友建议参考学习之 一开始打算用perldoc看Apache2::Request模块,结果在运行时出现如下错误: 复制代码代码如下:Errorintempfile()using...- 0
- 0
- 0
- 0
- 0
Perl内置特殊变量总结
这篇文章主要介绍了Perl内置特殊变量总结,需要的朋友可以参考下 [文件句柄] $| 如果非零,则在对当前选定的文件执行写或打印操作后强制清除缓冲区$% 当前选中文件句柄的当前页码$=&...- 0
- 0
- 0
- 0
- 0
perl中的$a和$b介绍
有关perl中的$a和$b,这两个变量是为sort函数准备的内置变量,所以声明时可以不加my 即使打开了strict和warnings选项也无妨,下面代码并无错误和警告。复制代码代码如下:#!/usr/bin/perlusestrict...- 0
- 0
- 0
- 0
- 0
perl写的一个随机编故事的程序(rand随机函数)
用perl写的一个随机编故事的程序,用到了rand随机函数,注释也很详细,需要的朋友可以参考下复制代码代码如下:#!/bin/perlusestrict; usewarnings; #定义变量 my$count; my$i...- 0
- 0
- 0
- 0
- 0
Perl 函数集小结
perl中常用的函数集合,特分享下,方便需要的朋友 一、进程处理函数 1、进程启动函数函数名eval调用语法eval(string)解说将string看作Perl语句执行。正确执行后,系统变量$@为空串,如果有错误,$@中...- 0
- 0
- 0
- 0
- 0
perl子程序的运用及子程序中变量私有(my)声明的重要性
perl中的my可以来定义私有变量,可以在很多情况下防止错误的发生 一个转换程序,简单的把DNA序列中的A转变成T,第一种情况没有使用私有变量。复制代码代码如下:#!/bin/perl#下面是一段DNA序列&nbs...- 0
- 0
- 0
- 0
- 0