perl
whiffen_cann
这个作者很懒,什么都没留下…
展开
-
perl FindBin 与 Cwd寻找脚本路径和当前工作路径
寻找所调用脚本的路径: use FindBin qw($Bin $script);my $lib_path = $Bin;print "程序$0的路径: $lib_path\n"; 当前工作目录的路径: use Cwd qw( getcwd abs_path);my $path = getcwd();$path = abs_path($path); 或者直接一点: my $path = abs_path(getcwd()); ...原创 2021-05-13 01:07:39 · 1034 阅读 · 0 评论 -
perl 文件句柄处理.gz 文件
打开并读取.gz 文件: open IN,"gzip -dc $yourfile |" or die $!; (gzip -dc 解压缩但不会改变原文件,原文件还是.gz 压缩文件) 生成.gz 文件: open OUT , " | gzip >$outfile" or print $!;原创 2021-05-12 22:10:30 · 527 阅读 · 0 评论 -
随机提取fq文件中的reads perl程序处理
比如我测了500X,分析后,我想看一下低深度数据的分析效果。从原fq数据中提取200X数据,也就是提取原数据量的0.4倍。辣么,我就写了个小程序。原创 2016-05-12 15:20:56 · 2823 阅读 · 1 评论 -
Perl中if [-e $file] 判断
转自:http://blog.sina.com.cn/s/blog_4a082449010112h8.html-r 文件或目录对此(有效的)用户(effective user)或组是可读的-w 文件或目录对此(有效的)用户或组是可写的-x 文件或目录对此(有效的)用户或组是可执行的-o 文件或目录由本(有效的)用户所有-R 文件或目录对此用户(real user)或组是可读的转载 2016-08-15 15:16:12 · 10325 阅读 · 0 评论 -
如何用Perl对字符串或者数字数组进行排序。 hash 按value/按keys 排序(多种方法)。
转载自:http://www.jb51.net/article/67894.htmPerl有个内置函数叫做sort毫无疑问的可以排序一个数组。 其最简单的形式是传递一个数组,它会返回排序后的元素组成的数组。@sorted = sort @original。基于ASCII码排序复制代码代码如下:#!/usr/bin/perluse strict转载 2017-03-14 14:43:58 · 5143 阅读 · 0 评论