小弟来问个价，求梦吧各位大神指点～～_梦幻西游吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：1,419,300贴子：
小弟来问个价，求梦吧各位大神指点～～收藏
1楼 21:13&|来自
相关的贴子481678742相关的图贴
大家一起来玩炉子啦
-------------带着我楼下的小伙伴们来玩啦~
2楼 21:13&|
这玩意能值几个小钱？求给价～
3楼 21:14&|来自
4楼 21:21&|来自
梦吧无爱？？？
5楼 21:22&|来自
梦吧无爱？？？
6楼 21:22&|来自
梦吧无爱？？？
7楼 21:22&|来自
梦吧无爱？？？
8楼 21:24&|来自
5w 天台速度了 副本要开了呢 麻利点 怎么 不来 妈的 影蛊已开 小子 别粗安全区　　　　------欧皓辰你造吗?我宣你为直都宣你，我的脑han我的心，我全身上下每一个器官都在说我宣你! ]
9楼 21:27&|
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
内&&容:使用签名档&&
想了解更多关于 ”梦幻西游“的信息,请&或求个打书大神
跪谢~！_梦幻西游吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：1,419,300贴子：
求个打书大神
跪谢~！收藏
这是当前的。。。这个这个是队伍的求上个大发。。好人么么哒
1楼 13:00&|
相关的贴子3714329109相关的图贴
LZ，你太年轻了，你真以为有这么多人跟你玩贴吧？其实整个吧就我一个人，这些ID都是我的，不信我再换个ID给你发同样的话
2楼 13:03&|
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
内&&容:使用签名档&&
想了解更多关于 ”梦幻西游“的信息,请&或新手园地& & & 硬件问题Linux系统管理Linux网络问题Linux环境编程Linux桌面系统国产LinuxBSD& & & BSD文档中心AIX& & & 新手入门& & & AIX文档中心& & & 资源下载& & & Power高级应用& & & IBM存储AS400Solaris& & & Solaris文档中心HP-UX& & & HP文档中心SCO UNIX& & & SCO文档中心互操作专区IRIXTru64 UNIXMac OS X门户网站运维集群和高可用服务器应用监控和防护虚拟化技术架构设计行业应用和管理服务器及硬件技术& & & 服务器资源下载云计算& & & 云计算文档中心& & & 云计算业界& & & 云计算资源下载存储备份& & & 存储文档中心& & & 存储业界& & & 存储资源下载& & & Symantec技术交流区安全技术网络技术& & & 网络技术文档中心C/C++& & & GUI编程& & & Functional编程内核源码& & & 内核问题移动开发& & & 移动开发技术资料ShellPerlJava& & & Java文档中心PHP& & & php文档中心Python& & & Python文档中心RubyCPU与编译器嵌入式开发驱动开发Web开发VoIP开发技术MySQL& & & MySQL文档中心SybaseOraclePostgreSQLDB2Informix数据仓库与数据挖掘NoSQL技术IT业界新闻与评论IT职业生涯& & & 猎头招聘IT图书与评论& & & CU技术图书大系& & & Linux书友会二手交易下载共享Linux文档专区IT培训与认证& & & 培训交流& & & 认证培训清茶斋投资理财运动地带快乐数码摄影& & & 摄影器材& & & 摄影比赛专区IT爱车族旅游天下站务交流版主会议室博客SNS站务交流区CU活动专区& & & Power活动专区& & & 拍卖交流区频道交流区
空间积分0 信誉积分204 UID阅读权限10积分86帖子精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
白手起家, 积分 86, 距离下一级还需 114 积分
帖子主题精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
论坛徽章:0
求大神指导~~~跪谢！！！！
现有文件格式如下
&seq1& & & & 12
CAGCTAGCTACGTCG
&seq2& & & & 22
CACGATGCTACGTAGCAGCT
&seq3& & & & 2
CAGCTACGTAGCGAAG
&seq4& & & & 4
CAGCTAGCGAGCTACG
&seq5& & & & 6
CACGATCGAGCGTAGCTAGC
现在想得到不同长度的序列 他们ID行的后面的数字的和；
好比如下结果：
length=15 number=12
length=20 number=28
length=16 number=6
长度是15的序列，number就是原文件里的12
长度是20的序列，number就是原文件里的22+6=28
长度是16的序列，number就是原文件里的2+4=6
求大神指点，万分感谢~~~~~
&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp
空间积分0 信誉积分1459 UID阅读权限90积分18534帖子精华可用积分18534 专家积分0 在线时间1878 小时注册时间最后登录
大富大贵, 积分 18534, 距离下一级还需 1466 积分
帖子主题精华可用积分18534 专家积分0 在线时间1878 小时注册时间最后登录
论坛徽章:8
albertkingking my %h;
$/=&&&;
&DATA&;
while(&DATA&){
& && &&&
& && &&&my ($name,@seq) = (split /\n/);
& && &&&my $key = join(&&,@seq);
& && &&&my $value = (split /\s+/,$name)[-1];
& && &&&$h{length($key)} += $
}
$/=&\n&;
foreach my $k (sort keys %h){
& && &&&print &length=&.$k.&\tnumber=&.$h{$k}.$/;
}
__DATA__
&seq1& && &&&12
CAGCTAGCTACGTCG
&seq2& && &&&22
CACGATGCTACGTAGCAGCT
&seq3& && &&&2
CAGCTACGTAGCGAAG
&seq4& && &&&4
CAGCTAGCGAGCTACG
&seq5& && &&&6
CACGATCGAGCGTAGCTAGC复制代码
---------------------------------------------------
以上为菜鸟写法，如有不适，跪请回复药方~
空间积分0 信誉积分204 UID阅读权限10积分86帖子精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
白手起家, 积分 86, 距离下一级还需 114 积分
帖子主题精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
论坛徽章:0
好厉害 我咋就想不出来呢 谢谢~~~~~回复
空间积分0 信誉积分2672 UID阅读权限90积分58504帖子精华可用积分58504 专家积分0 在线时间4754 小时注册时间最后登录
帖子主题精华可用积分58504 专家积分0 在线时间4754 小时注册时间最后登录
认证徽章论坛徽章:32
#!/usr/bin/perl
my($num, %hash);
while(&DATA&){
& & & &
& & & & if($. % 2){
& & & & & & & & $num = (split)[1];
& & & & }else{
& & & & & & & & $hash{length $_} += $
& & & & }
}
printf &length=%d number=%d\n&, $_, $hash{$_} for keys %
__DATA__
&seq1& && &&&12
CAGCTAGCTACGTCG
&seq2& && &&&22
CACGATGCTACGTAGCAGCT
&seq3& && &&&2
CAGCTACGTAGCGAAG
&seq4& && &&&4
CAGCTAGCGAGCTACG
&seq5& && &&&6
CACGATCGAGCGTAGCTAGC复制代码
空间积分0 信誉积分292 UID阅读权限50积分3106帖子精华可用积分3106 专家积分0 在线时间187 小时注册时间最后登录
小富即安, 积分 3106, 距离下一级还需 1894 积分
帖子主题精华可用积分3106 专家积分0 在线时间187 小时注册时间最后登录
论坛徽章:0
我也写了一个
#!/usr/bin/perl -w
$/=&&&;&DATA&;$/=&\n&;
while (&DATA&){
my ($a,$number) = split /\s+/;
my $seq = &DATA&;
&&$/=&\n&;
$seq =~ s/&$//;
$seq =~ s/\n//g;
my $length = length($seq);
push @{$hash{$length}},$
foreach my $k (sort keys %hash){
my $sum = 0;
& & $sum += $_ for @{$hash{$k}};
print &length=$k\tnumber=$sum\n&;
&seq1& && &&&12
CAGCTAGCTACGTCG
&seq2& && &&&22
CACGATGCTACGTAGCAGCT
&seq3& && &&&2
CAGCTACGTAGCGAAG
&seq4& && &&&4
CAGCTAGCGAGCTACG
&seq5& && &&&6
CACGATCGAGCGTAGCTAGC回复
albertkingking
我是真菜鸟~最菜的写法~
空间积分0 信誉积分204 UID阅读权限10积分86帖子精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
白手起家, 积分 86, 距离下一级还需 114 积分
帖子主题精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
论坛徽章:0
醉了&&太牛叉了&&谢谢~~~~回复
yestreenstars
空间积分0 信誉积分204 UID阅读权限10积分86帖子精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
白手起家, 积分 86, 距离下一级还需 114 积分
帖子主题精华可用积分93 专家积分0 在线时间97 小时注册时间最后登录
论坛徽章:0
都好牛~~~~ 学习了~~~~回复}