Perl

A Genbank to BED converter

2015-10-14 gaoch
𝕃ike the previous Genbank -> GTF converter, this script is also depended on BioPerl, so you need firstly get the module installed in your system (Install BioPerl). To check whether BioPerl is … 阅读全文 →

Fix “getopts.pl can not be located in @INC” error in SSPACE_Standard_v3.0.pl

2015-08-16 gaoch
𝕊SPACE是一个常用的Scaffolding软件.当你有新的测序数据时,你可以使用SSPACE将原有的contigs延长,scaffolding等. 在Ubuntu 14.04系统中运行该软件v3.0会出现错误.谷歌也没有发现好的解决方法,最终通过研究源代码,发现这是一个简单的问题,修订源代码之后,终于能够成功运行. 两处修订如下: [cc lang=”perl”] #~ require … 阅读全文 →

修复Bio::Tree::Draw::Cladogram 输出EPS BoundingBox错误的问题

2013-12-25 gaoch
使用Bio::Tree::Draw::Cladogram 输出的 EPS 文档在很多 EPS 查看软件(如Windows下面的ACDsee,gsView等)中不能打开,经查是由于 BoundingBox 出现浮点数所致,具体设计的代码为 Cladogram.pm 的 new 方法和 print 方法,简便起见,可以在原先的 443 行代码前面添加两行代码,以解决该问题。 如下所示 : [perl] … 阅读全文 →

使用正则表达式匹配DOI

2012-03-10 gaoch
先看几个DOI的例子: […] 可以看出,DOI的编码以“10”开始,可以含有数字]0-9],小数点,斜杠等分隔,但是其中不会出现空格。鉴于此,在perl中使用以下正则表达式匹配: [cc lang=”perl”] $str1 =~ /10\.[^\s\/]+\/[^\s]+/; # borrowed from Zotero $str2 =~ … 阅读全文 →

Perl中的split函数和join函数:不同的参数书写样式

2011-03-13 gaoch
这两个函数其实是一对孪生函数,它们的作用是恰恰相反的。而我,就一直以为这两个函数的用法相同,其实它们是有很大的不同的。 split的用法 […] split /PATTERN/,EXPR […] [perl]split(/(?=\w)/, ‘hi there!’);[/perl] join的用法 […] join EXPR,LIST […] … 阅读全文 →

Perl LWP:从“国家地理每日图片”到“Cell最近一期的封面”

2010-12-08 gaoch
在网上看到了一个从国家地理杂志网站下载每日图片的Perl程序。因为网站改版,脚本已经不能正常运行,经过修改后,经测试可以将每日图片下载到当前目录,代码如下: #!/usr/bin/perl # author: # Seraphxby # Purpose: # 查看国家地理每日图片的Perl脚本 # history: # v0.1 first draft # 2010-12-8 modified … 阅读全文 →