版块导航
正在加载中...
客户端APP下载
论文辅导
调剂小程序
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(3957)
>
导师招生
(708)
>
虫友互识
(569)
>
文献求助
(372)
>
考研
(343)
>
招聘信息布告栏
(202)
>
硕博家园
(191)
>
休闲灌水
(167)
>
论文投稿
(107)
>
考博
(97)
>
博后之家
(83)
>
教师之家
(46)
>
公派出国
(42)
>
SciFinder/Reaxys
(38)
>
找工作
(34)
>
基金申请
(31)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
程序语言
»
Shell&Perl
»
perl程序求助,请高手不吝赐教~~
13
2/2
返回列表
上一页
1
2
查看: 1233 | 回复: 12
只看楼主
@他人
存档
新回复提醒
(忽略)
收藏
在APP中查看
tanyxxmc
新虫
(初入文坛)
应助: 1
(幼儿园)
金币: 496.5
红花: 1
帖子: 25
在线: 10.5小时
虫号: 1912502
注册: 2012-07-27
专业: 神经生物学
【答案】应助回帖
★
jjdg: 金币+1, 辛苦了
2013-07-07 00:30:33
补充模块链接:
http://search.cpan.org/~jhi/Graph-0.96/lib/Graph.pod
赞
一下
回复此楼
11楼
2013-06-07 11:24:57
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
libranjie
木虫
(小有名气)
应助: 10
(幼儿园)
金币: 1570.9
散金: 75
红花: 8
帖子: 147
在线: 89.3小时
虫号: 2535241
注册: 2013-07-06
性别: GG
专业: 生物信息学
CODE:
#!/usr/bin/perl -w use strict; ################################################################################ unless(2==@ARGV) { &usage; exit; } ################################################################################ my($infile,$result)=@ARGV; my(@info,$i,%store,%print,$id); ################################################################################ open IN,"<$infile" or die "Read $infile $!\n"; while(<IN>) { chomp; @info=split; push(@{$store{$info[1]}},$info[0]); } close IN; ################################################################################ open OT,">$result" or die "Write $result $!\n"; foreach $i(sort keys %store) { %print=(); print OT $i,"\t"; $print{$i}='Y'; &fathers($i); print OT "\n"; } close OT; ################################################################################ sub fathers { my($ID)=@_; my($id,$i,$j); for($i=0;$i<@{$store{$ID}};++$i) { $id=$store{$ID}[$i]; next if(defined $print{$id}); print OT $id,";"; $print{$id}='Y'; next unless(defined $store{$id}); &fathers($id); print OT "\t"; } } ################################################################################ sub usage { print STDERR "\n Description\n Start by Sat Jul 6 14:03:36 2013\n This script is to print the father of the xxx format\n Usage: \$perl $0 [input.txt] [output]\n \n" }
赞
一下
回复此楼
12楼
2013-07-06 22:59:46
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
libranjie
木虫
(小有名气)
应助: 10
(幼儿园)
金币: 1570.9
散金: 75
红花: 8
帖子: 147
在线: 89.3小时
虫号: 2535241
注册: 2013-07-06
性别: GG
专业: 生物信息学
★ ★
jjdg: 金币+2, 辛苦了
2013-07-07 00:30:18
抱歉,这个B B S代码区不够理想,代码直接贴很乱,上传了附件,下载吧。
赞
一下
回复此楼
» 本帖附件资源列表
欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
附件 1 :
abc.pl
2013-07-06 23:06:32, 1.49 K
13楼
2013-07-06 23:07:50
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
相关版块跳转
第一性原理
量子化学
计算模拟
分子模拟
仿真模拟
程序语言
我要订阅楼主
philip890220
的主题更新
13
2/2
返回列表
上一页
1
2
如果回帖内容含有宣传信息,请如实选中。否则帐号将被全论坛禁言
普通表情
龙
兔
虎
猫
百度网盘
|
360云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
最具人气热帖推荐
[查看全部]
作者
回/看
最后发表
[
考研
]
22408 312求调剂
+18
门路摸摸
2026-04-14
19/950
2026-04-15 14:23
by
巴塞罗那2015
[
考研
]
085801电气专硕272求调剂
+19
电气李
2026-04-13
21/1050
2026-04-15 13:37
by
黑科技矿业
[
考研
]
药学求调剂
+11
喽哈加油
2026-04-14
13/650
2026-04-14 21:14
by
qingfeng258
[
考研
]
求助调剂,跨调
+18
X十甫寸Y
2026-04-11
19/950
2026-04-14 19:26
by
Art1977
[
考研
]
求调剂
+12
何气正
2026-04-13
13/650
2026-04-14 14:47
by
zs92450
[
基金申请
]
RY:中国产出的科学垃圾论文,绝对数量和比例都世界第一
+6
zju2000
2026-04-14
17/850
2026-04-14 14:34
by
jurkat.1640
[
考研
]
求调剂
+16
雪逢冬
2026-04-10
16/800
2026-04-14 14:27
by
逆水乘风
[
考研
]
一志愿华南理工大学331分材料求调剂
+10
天下ww
2026-04-09
11/550
2026-04-13 23:25
by
pies112
[
考研
]
一志愿085802 323分求调剂
+13
drizzle_9
2026-04-12
14/700
2026-04-13 10:26
by
Faiz5552
[
考研
]
0831一轮调剂失败求助
+10
小熊睿睿_s
2026-04-11
10/500
2026-04-12 22:43
by
长弓傲
[
硕博家园
]
新一代电子信息294求调剂 不挑学校
+7
Ytyt11
2026-04-09
8/400
2026-04-12 16:57
by
ajpv风雷
[
考研
]
322求调剂
+6
123安康
2026-04-12
13/650
2026-04-12 15:51
by
123安康
[
考研
]
307求调剂
+10
tzq94092
2026-04-10
10/500
2026-04-12 08:18
by
wise999
[
考研
]
277 数一104,学硕,求调剂
+21
瓶子PZ
2026-04-09
23/1150
2026-04-11 23:12
by
labixiaoqiao
[
考研
]
药学专硕调剂
+8
? 一路生?花?
2026-04-10
10/500
2026-04-11 21:21
by
zhouxiaoyu
[
考研
]
调剂
+5
文道星台
2026-04-11
5/250
2026-04-11 15:01
by
凯凯要变帅
[
考研
]
计算机类求调剂,22408-274分
+7
上岸de小虫
2026-04-09
8/400
2026-04-10 19:56
by
fxue1114
[
考研
]
一志愿京区985,085401,与本科专业一致,电子信息工程,
+4
阳光开朗的男孩
2026-04-10
4/200
2026-04-10 18:27
by
shenrf
[
考研
]
一志愿京区985,085401电子信息,本科电子信息
+3
阳光开朗的男孩
2026-04-10
3/150
2026-04-10 16:29
by
sophia_93
[
考研
]
求调剂
+11
翩翩一书生
2026-04-09
13/650
2026-04-10 10:27
by
liuhuiying09
信息提示
关闭
请填处理意见
关闭
确定