之前一直以为chomp函数只是去掉字符串末尾的\n, 但是今天写程序遇到一个bug,最后的原因就处在chomp上: 读取fasta文件,内容如下: >1 ATGCTAGCTACGTACGTACGTTTTTTTTT >2 ACGATCGACGATCGTACGTACGTACGATT >3 ATGCATGCTATACATCAGCTAATATCGCT perl中$/代表默认的输入记录的分隔符:这里将$/设置为">": #!/usr/bin/perl use warnin…

读取标准输入<STDIN> <STDIN>表示从标准输入中读取内容,如果没有,则等待输入.<STDIN>读取到的结果中,如果没有意外,都会自带换行符. 例如,test.plx文件内容: #!/usr/bin/perl # $line=<STDIN>; if($line eq "\n"){ print "blank line\n"; } else { print "not blank: $line"…

1.Perl 子程序(函数)Perl 子程序也就是用户定义的函数.Perl 子程序即执行一个特殊任务的一段分离的代码,它可以使减少重复代码且使程序易读. Perl 子程序可以出现在程序的任何地方,语法格式如下:sub subroutine{   statements;} 调用子程序语法格式:subroutine( 参数列表 ); 2.向子程序传递参数Perl 子程序可以和其他编程一样接受多个参数,子程序参数使用特殊数组 @_ 标明.  (@_ 子程序的私有变量)因此子程序第一个参数为 $_[0]…

前几天写了一片 如何用正确的姿势编写jQuery插件 有朋友拍砖,指正.再此谢谢! 讨论:指定函数的constructor作用到底是什么? 我们一般写jQuery插件的时候是这样的: //构造函数 function Person(options) { this.name = ""; this.age = -1; $.extend(this, options); } Person.prototype = { getName: function () { return this.name;…

1:函数模板不是一个实在的函数,因此编译器不能为其生成可执行的代码.定义函数模板只是一个对函数功能框架的描述,在具体执行时,将根据传递的实际参数决定其功能. 2:函数模板定义的一般形式如下: template <类型形式参数> 返回类型 函数名(形式参数表) { ...//函数实现 } 其中template为关键字,表示定义一个模板,尖括号“<>”中为模板参数,模板参数主要有两种,一种是模板类型参数,另一种是模板非类型参数.上述代码中定义的模板使用的是模板类型参数,模板类型参数使用…

  作者: default|标签:PHP set_time_limit 执行时间|2017-3-21 15:03   set_time_limit 不生效或者无效解决方法 <?php global $begin; global $end; $begin = microtime(TRUE); try { $dsn = "mysql:host=localhost;dbname=kaixin"; $db = new PDO($dsn, 'root', '111'); $db->e…

转载 Perl printf 函数…

Perl exists 函数和defined函数的区别…

这是标准的Perl解释器所支持的所有重要函数/功能的列表.在一个函数中找到它的详细信息. abs - 绝对值函数 accept - 接受传入的socket连接 alarm - 调度一个SIGALRM atan2 -Y/X的反正切值,范围在-PI到PI bind - 地址绑定到一个套接字 binmode - 准备二进制文件I / O bless - 创建一个对象 caller - 获取当前子程序调用的上下文 chdir - 改变当前的工作目录 chmod - 改变权限的文件列表 chomp - 从…

在Perl中,子程序的引用常用来做回调函数(callback).闭包(closure),特别是匿名子程序. 回调函数(callback) 关于什么是回调函数,见一文搞懂:词法作用域.动态作用域.回调函数.闭包 以File::Find模块的find函数为例,它用来搜索给定目录下的文件,然后对每个搜索到的文件执行一些操作(通过定义子程序),这些操作对应的函数要传递给find函数,它们就是回调函数.就像unix下的find命令一样,找到文件,然后print.ls.exec CMD操作一样,这几个操作就…

这是标准的Perl解释器所支持的所有重要函数/功能的列表.在一个函数中找到它的详细信息. 功能丰富的 Perl:轻松调试 Perl Perl脚本的调试方法 perl 入门教程 abs - 绝对值函数 accept - 接受传入的socket连接 alarm - 调度一个SIGALRM atan2 -Y/X的反正切值,范围在-PI到PI bind - 地址绑定到一个套接字 binmode - 准备二进制文件I / O bless - 创建一个对象 caller - 获取当前子程序调用的上下文 ch…

[引言] 我们经常需要多函数进行耗时测试,测试方法有许多,这里介绍装饰者的方法,提高耗时测试代码的可复用性,在其他方面的应用也是如此. [设计原则] 类应该对扩展开放,对修改关闭. [代码] (1)定义装饰者具体方法 #encoding: UTF-8 ''' Created on 2016��12��7�� @filename: test.py @author: YYH ''' import time from functools import wraps class TimeRecorder:…

一) sort函数用法 sort LISTsort BLOCK LISTsort SUBNAME LIST sort的用法有如上3种形式.它对LIST进行排序,并返回排序后的列表.假如忽略了SUBNAME或BLOCK,sort按标准字串比较顺序来进行(例如ASCII顺序).如果指定了SUBNAME,它实际上是个子函数的名字,该子函数对比2个列表元素,并返回一个小于,等于,或大于0的整数,这依赖于元素以何种顺序来sort(升序,恒等,或降序).也可提供一个BLOCK作为匿名子函数来代替SUBNAM…

我们在linux常常用到一个程序需要加入参数,现在了解一下perl中的有关控制参数的函数.getopt.在linux有的参数有二种形式.一种是–help,另一种是-h.也就是-和–的分别.–表示完整参数.-表示简化参数. 在perl中也分这二种. Getopt::Std模块的功能: 初始化perl命令行中所接受的参数,简化了命令行参数的解析. 简化参数例子: 1 2 3 4 5 6 7 8 9 10 #!/usr/bin/perl -w use strict; use Getopt::Std; …

Vsftp:/root/perl/7# cat scan1.pm package scan1; require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw(fun1 frobnicate); ###导出fun1函数 sub fun1() { my $a=shift; my $b=shift; return 67 + $a + $b; }; Vsftp:/root/perl/7# cat a7.pl unshift(@INC,"/root/perl…

在计算机程序设计中,回调函数,或简称回调(Callback),是指通过函数参数传递到其它代码的,某一块可执行代码的引用.这一设计允许了底层代码调用在高层定义的子程序. 没啥不好理解的呀,就是向函数的参数为 一个函数的引用呀.. [root@wx03 ~]# cat a2.pl use AE; use AnyEvent; ##定义watch sub run { my $code=shift; my $t = AnyEvent->timer( after => 0, interval =>…

29.2.32 eval • eval BLOCK • eval EXPR • eval eval 关键字在Perl 里起两种不同的但相关的作用.这些目的是用两种形式的语法 来表现的, eval BLOCK 和eval EXPR.第一种形式捕获那些致命的运行时例外 (错误),类似于C++ 或Java 里的"try 块". eval { ... }; # 捕获运行时错误 if ($@) { ... } # 处理错误 [tomcat@wx03 ~]$ cat a1.pl use File:…

关于作用域和作用链域的问题,很多文章讲的都很详细,本文属于摘录自己觉得对自己有价值的部分,留由后用,仅供参考,需要查看详细信息请点击我给出的原文链接查看原文件 做一个有爱的搬运工~~ ------------------------------------------------------------------------------------------------------------------------------------------- 作用域 js中作用域只有一种,就是函…

本文和大家重点讨论一下如何读写Perl文件,主要包括打开.关闭Perl文件,读写Perl文件,Perl文件的状态,命令行参数和打开管道六部分内容,希望通过本文的学习你对读写Perl文件有深刻的认识. 读写Perl文件 一.打开.关闭Perl文件 语法为open(filevar,filename),其中filevar为Perl文件句柄,或者说是程序中用来代表某Perl文件的代号,filename为Perl文件名,其路径可为相对路径,亦可为绝对路径.open(FILE1,"file1");…

PHP有两种正则系列函数 POSIX 系列和兼容Perl系列的函数 在PHP大于5.3使用POSIX系列函数会报E_DEPRECATED 错误, POSIX系列函数在大于5.3版本不建议使用,PHP7.0已经移除了. 所以以后尽量使用preg系列函数…

memset()函数原型是: extern void *memset(void *buffer, int c, int count) //buffer:为指针或是数组, //c:是赋给buffer的值, //count:是buffer的长度. 这个函数在socket中多用于清空数组.如:原型是: memset(buffer, 0, sizeof(buffer)) 2.memset 用来对一段内存空间全部设置为某个字符,一般用在对定义的字符串进行初始化为' '或'\0': char a[100];…

functools模块介绍 functools用于高阶函数:指那些作用于函数或者返回其他函数的函数.通常情况下,只要是可以被当做函数调用的对象就是这个模块的目标. functools模块的功能 python 中提供一种用于对函数固定属性的函数(与数学上的偏函数不一样) # 通常会返回10进制 int(') # print 12345 # 使用参数 返回 8进制 int(', 8) # print 4681 每次都得添加参数比较麻烦, functools提供了partial的方法 import f…

摘要: fsockopen()函数的作用是可以用来打开一个socket连接,另一个函数pfsockopen()也有相似的功能,只不过后者是一个“持续”(persistent)的fsockopen()函数,它在脚本运行完之后并不立即断开. 一.第一步 找到php.ini文件,用记事本打开,查找 allow_url_fopen = 看看后面是 off  还on, 如果是on,直接看下一步,如果是off 那就修改成on,需要注意完整的是allow_url_fopen = on等号的左右有空格.allo…

遇到这样的一个需求,即替换新闻正文中的所有图片,将其图片地址补充为完整的地址. 刚开始的时候,采用匿名函数的方法可以使用,但有一个问题,好像是php的匿名函数5.4以前的版本支持的并不好. 然后在内部写了一个函数,再调用 但发现这样并不起作用.坑得了,经过查阅php.net官方文档,得出如下结论 即使用下述方法调用即可.…

最近想用layui开发一个论坛模板用的是fly-ui,才接触layui对其还不太熟悉.一个简单的登录就困扰了我很久.登录的form通过ajax提交回调函数老是不起作用.经过浪费了N多时间的调试,发现layui的button默认就是submit提交.所以在ajax提交的时候同时进行了submit的表单提交.因为ajax是异步的,所以在回调函数还没有来得及执行,submit把表单页面提交了,所以回调函数老是不起作用.后台还有可能报不支持的post请求.因为通过submit把表单又提交了一次.搞清楚原…

perl中的引用和C中的指针一样,用"\"标识,引用后可使用符号"->"取值.解引用则在对应的数据类型前加$,@ 或%. 这里这里用两数组求和做示例,引用传递的子函数的用法. 1 use strict; 2 3 my @s1=(1,13,4,25,6,27,8,22); 4 my @s2=(11,2,34,5,6,23,1,54); 5 6 my @sum=sums(\@s1,\@s2); 7 8 foreach my $k(@sum){ 9 print &q…

前言 有些时候我们在父类中使用了 self.tr('XXX'),使用 Qt Linguist 完成翻译并导出 qm 文件后,发现子类中仍然是英文原文.比如下面这段代码: class AlbumCardBase(QWidget): """ 专辑卡基类 """ def __init__(self, parent=None): super().__init__(parent=parent) self.playButton = BlurButton( s…

函数名: system 功   能: 发出一个DOS命令  用   法: int system(char *command);  system函数已经被收录在标准c库中,可以直接调用 system()函数用于向操作系统传递控制台命令行,以WINDOWS系统为例,通过system()函数执行命令和在DOS窗口中执行命令的效果是一样的,所以只要在运行窗口中可以使用的命令都可以用SYSTEM()传递,但要注意的是输入斜线时要输入两个,以名C语言当作转义字符处理. 常用的DOS命令,可用system函数…

在寻找k_word时,为了去打末尾的换行符,使用chomp;但 在windows下创建的的文件,读取一行,如一行为  weather  把它赋值为$str,然后print length($str),得到8:chomp $str; print length($str) 得到7 同样在linux创建同样的文件,一样操作,结果也一样: 但问题,在linux下创建的文件,上传到linux下,一样操作,得到的是9,8: 可能是windows下的换行符是\r\n :linux下是\n; 但window下的c…

参考 http://www.perlcn.com/perlbc/perljc/315.html 使用reverse操作符时,perl会先计算变量的值,也就是=右边的值,然后再进行复制,如果reverse是将值赋给新的数组,那么原来的变量的值是不变的,如果将值赋给本身,则会改变变量的值,如果不复制给任何变量,那么这个操作是错误的,使用的时候应该特别注意. print reverse("HelloWorld"); # "HelloWorld" $rev = print…