24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1234  |  回复: 12

tanyxxmc

新虫 (初入文坛)

【答案】应助回帖


jjdg: 金币+1, 辛苦了 2013-07-07 00:30:33
11楼2013-06-07 11:24:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libranjie

木虫 (小有名气)

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

木虫 (小有名气)

★ ★
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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 药学求调剂 +12 喽哈加油 2026-04-14 14/700 2026-04-15 23:49 by 陈皮皮
[考研] 085404 22408 309分求调剂 +9 lzmk 2026-04-14 10/500 2026-04-15 20:02 by 学员JpLReM
[考研] 272分材料子求调剂 +41 Loy0361 2026-04-10 54/2700 2026-04-14 18:00 by lhj2009
[考研] 药学305求调剂 +10 玛卡巴卡boom 2026-04-10 10/500 2026-04-14 15:55 by zs92450
[考研] 调剂 +12 月@163.com 2026-04-11 12/600 2026-04-14 15:37 by zs92450
[考研] 302求调剂 +10 易!? 2026-04-13 10/500 2026-04-13 19:04 by lbsjt
[考研] 326求调剂 +6 Shansyn 2026-04-10 6/300 2026-04-12 09:46 by hammer3
[考研] 085410 273求调剂 +10 X1999 2026-04-09 10/500 2026-04-12 09:24 by 逆水乘风
[考研] 化工调剂求导师收留!一志愿失利,踏实肯干,有植物提取科研经历 +20 yzyzx 2026-04-09 21/1050 2026-04-12 00:12 by 小小小小啦啦啦
[考研] 085400 328分 求调剂 +10 喂你一个大橙子 2026-04-09 14/700 2026-04-11 19:53 by lqspecial
[考研] 085501机械专硕 302分 不挑专业求调剂 +7 汪某. 2026-04-09 7/350 2026-04-11 14:37 by luhong1990
[考研] 296求调剂 +6 汪!?! 2026-04-09 6/300 2026-04-11 11:25 by zhq0425
[考研] 283求调剂 +22 那个噜子 2026-04-09 22/1100 2026-04-11 10:41 by 逆水乘风
[考研] 中药学调剂 初试324 +4 洋甘菊、 2026-04-10 6/300 2026-04-11 09:41 by gong120082
[考研] 284求调剂 +12 archer.. 2026-04-10 13/650 2026-04-11 08:44 by zhq0425
[考研] 085800 能源动力求调剂 +6 阿biu啊啊啊啊啊 2026-04-10 6/300 2026-04-10 15:03 by hemengdong
[考研] 一志愿沪9,326生物学求相关专业调剂 +4 刘墨墨 2026-04-09 4/200 2026-04-10 12:07 by pengliang8036
[考研] 337求调剂 +4 Gky09300550, 2026-04-09 4/200 2026-04-09 17:18 by 帕尔马拉特
[考研] 化学工程与技术专业一志愿哈工程 291分B区 国家级大创负责人 有一作论文 +13 Emmy~ 2026-04-09 13/650 2026-04-09 14:47 by only周
[考研] 0860004 求调剂 309分 +6 Yin DY 2026-04-09 6/300 2026-04-09 10:19 by 啊李999
信息提示
请填处理意见