代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
根据一个ID列表文件来从一个fasta文件里面挑取符合要
作者:
ulwulwvfje
/ 发布于
2014/8/12
/
509
其中一个文件是ID列表,一个ID占一行,另一个文件是fasta格式的序列,一行是>开头的标记,旗下所有行都是该标记的内容,直到下一个>开头的标记
#!/usr/bin/perl -w if( @ARGV != 2 ) { print "Usage: we need two files\n"; exit 0; } my $ID=shift @ARGV; my $fasta=shift @ARGV; open FH1,"<$ID" or die "can not open the file,$!"; while (<FH1>) { chomp; $hash{$_}=1; } #读取第一个参数,ID列表,每一行的ID都扫描进去hash表 open FH2,"$fasta" or die "can not open the file,$!"; while(defined($line=<FH2>)) { chomp $line; if($line =~ />/) { $key = (split /\s/,$line)[0]; $key =~ s/>//g; $flag = exists $hash{$key}?1:0; }#这个flag是用来控制这个标记下面的序列是否输出 print $line."\n" if $flag == 0; }
试试其它关键字
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
ulwulwvfje
贡献的其它代码
(
1
)
.
根据一个ID列表文件来从一个fasta文件里面挑取符合要
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3