| 查看: 380 | 回复: 3 | ||
xiezhancnu木虫 (小有名气)
|
[求助]
perl程序求助~ 已有2人参与
|
|
chr start end chr10 2 4 chr1 2 3 chr3 2 4 chr1 1 2 chr2 1 3 chr10 3 5 排序成： chr start end chr1 1 2 chr1 2 3 chr2 1 3 chr3 2 4 chr10 2 4 chr10 3 5 首先按照第一列染色体顺序排chr1 chr2 ……chr9,chr10,chr11……chr21,chr22,chrX,chrY 相同染色体则按照位置的前后顺序进行排列。 先谢过！ |
回复此楼» 猜你喜欢
化学工程085602 305分求调剂
已经有10人回复
-
289求调剂
已经有15人回复
-
291 求调剂
已经有7人回复
-
274求调剂
已经有14人回复
-
北京林业大学硕导招生广告
已经有3人回复
-
309求调剂
已经有5人回复
-
292求调剂
已经有8人回复
-
求调剂
已经有4人回复
-
一志愿 西北大学 总分282 英语一62 求调剂
已经有3人回复
-
调剂310
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求一个脚本程序
已经有3人回复
- perl 大神求助
已经有8人回复
- 聚酰亚胺薄膜检测项目中的耐热性标准问题
已经有18人回复
- 求人写个程序，生物信息学分析方面的要求用perl或者python来写！
已经有5人回复
- 求提取目标程序
已经有9人回复
- 生物信息学问题，染色体畸变查找
已经有9人回复
- 求助有关生物信息学的
已经有13人回复
- 求助 一个perl代码修改~~看看吧...
已经有6人回复
- 关于perl在windowsxp下安装的一个问题
已经有4人回复
- perl程序求助，请大神们赐教~~~
已经有9人回复
- 急求 运行时出现应用程序发生异常 在线等
已经有4人回复
- 关于用弦截法求f(x)=3x^3-5x^2+16x-60=0的c++编程问题，我的程序如下。
已经有3人回复
- 请帮忙编写一个perl程序处理文本
已经有26人回复
- 请教Windows系统下perl脚本的ARGV应用问题，谢谢
已经有5人回复
- 请教perl脚本的一个if语句解释，谢谢
已经有8人回复
- 求助~~!!请懂SQL SERVER的进.
已经有13人回复
- 【求助】请教各位高手：半胱氨酸与纳米金结合的原理是什么？牢固吗？
已经有10人回复
- 【求助】有很多错误的程序，找不出来了
已经有18人回复
- 【求助】Fortran 如何读取文件中特定行的内容
已经有16人回复
退化or进化
木虫 (著名写手)
- 应助: 222 (大学生)
- 金币: 4926.5
- 红花: 26
- 帖子: 1615
- 在线: 242.3小时
- 虫号: 1545339
- 注册: 2011-12-20
- 性别: GG
- 专业: 生物信息学
2楼2015-05-08 08:32:04
【答案】应助回帖
|
@ARGV==1 || die "No way"; my ($text) = @ARGV; my @tmp; my $hd; open($hd,"< $text"  || die "can not open it";while(<$hd> { chomp; s/\s+//g; s/chr//; push(@tmp,$_); } my @sorted = sort {$a <=> $b } @tmp; foreach(@sorted){s/(.*)([0-9])([0-9])$/$1 $2 $3/;print "chr$_\n";} 结果： chr1 1 2 chr1 2 3 chr2 1 3 chr3 2 4 chr10 2 4 chr10 3 5 |
3楼2015-06-12 16:22:29
【答案】应助回帖
|
@ARGV==1 || die "No way"; my ($text) = @ARGV; my @tmp; my $hd; open($hd,"< $text" || die "can not open it";while(<$hd> { chomp; s/^\s+//g; s/chr//; s/\s+/-/; push(@tmp,$_); } my @sorted = sort {$a <=> $b } @tmp; foreach(@sorted){s/\-/ /g;print "chr$_\n";} 结果：chr1 2 3 chr1 1 2 chr2 1 3 chr3 2 4 chr10 2 3 chr10 3 5 |
4楼2015-06-12 16:39:57
5
