版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

>論壇更新日志 (5589)
>考研 (2584)
>導師招生 (2440)
>文獻求助 (461)
>蟲友互識 (396)
>碩博家園 (249)
>考博 (160)
>招聘信息布告欄 (137)
>博后之家 (103)
>休閑灌水 (92)
>論文投稿 (81)
>綠色求助(高懸賞) (57)
>基金申請 (47)
>找工作 (47)
>SciFinder/Reaxys (34)
>藥學 (32)

北京石油化工學院2026年研究生招生接收調劑公告

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

xiezhancnu

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 5291.5
紅花: 1
帖子: 147
在線: 84.2小時
蟲號: 1387285
注冊: 2011-09-02
專業(yè): 生物信息學

[求助] perl程序求助，請大神們賜教~~~

我現(xiàn)在有十個基因，附件里的兩個文件分別是這十個基因任意兩個之間的相關系數(shù)和p-alue的值，附件應該是很容易看懂的，呵呵~~，現(xiàn)在呢，我想改變一下輸出的格式，將兩個文件整合一下，輸出成這種格式：
基因1 基因2 相關系數(shù) p-value （這一行可有可無）
DR_2577 DR_A0328 0.81186 0.0000000171
……
輸出結果不算可有可無的第一行的話，應該總共有45行，就是這么一個程序~~
我覺得應該是說清楚了，呵呵~~若是哪里說的不夠清楚的話，請大神們主動提出來，呵呵~~謝謝啦~~~

回復此樓

» 本帖附件資源列表

歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內容負責。
本內容由用戶自主發(fā)布，如果其內容涉及到知識產權問題，其責任在于用戶本人，如對版權有異議，請聯(lián)系郵箱：xiaomuchong@tal.com
附件 1 : pvalue.csv

2012-08-10 21:25:34, 11.5 K

附件 2 : cor.xls

2012-08-10 21:25:40, 12 K

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

請教碳材料的氮氣吸附脫附曲線分析！請各位大神不吝賜教！~~ 已經有5人回復
請幫忙編寫一個perl程序處理文本已經有26人回復
Perl 生物信息學編程求助，運行出現(xiàn)問題，煩請幫忙查找一下錯誤，謝謝！已經有3人回復
【緊急求助】offer鑒定及相關問題~~請有經驗的蟲友不吝賜教~~ 已經有10人回復
Perl 編程請大神們幫忙�。�！生物信息的牛人請進已經有11人回復
【求助/交流】求構載體高手賜教構建亞細胞定位載體pCAMBIA1302 已經有4人回復
【求助】新手上路請不吝賜教（熒光法測臨界膠束濃度原理）已經有4人回復
【求助】扣式電池組裝的幾個基本問題，請高手賜教已經有8人回復
【求助】關于催化燃燒，請蟲友賜教。已經有7人回復
【求助/交流】求教一個關于酶方面的問題，請高手不吝賜教已經有10人回復
【求助】求大俠賜教：非水溶液滴定已經有3人回復
【求助】熟悉XRD、XRF的大俠來賜教已經有6人回復

1樓 2012-08-10 21:39:31

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

herter

金蟲 (著名寫手)

應助: 3 (幼兒園)
金幣: 1013.9
散金: 901
紅花: 6
帖子: 1614
在線: 492.2小時
蟲號: 494724
注冊: 2008-01-14
性別: GG
專業(yè): 生物信息學

補充，
二維數(shù)組，換成一維就可以的；
每次讀入perl中一行，分別記錄了，1-2，1-3,1-4，。。。，1-3000；
第二行，2-3,2-4,2-5,...,2-3000;
直到最后一行，全部完成；

贊一下

回復此樓

7樓2012-08-12 16:18:16

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 10 個回答

wizardfan

至尊木蟲 (著名寫手)

應助: 599 (博士)
貴賓: 1.818
金幣: 24632.2
散金: 197
紅花: 48
沙發(fā): 2
帖子: 2254
在線: 400.7小時
蟲號: 1879241
注冊: 2012-07-05
性別: GG
專業(yè): 生物信息學

本來是想幫你的，但是以前幫過你以后，一點回音都沒有http://www.gaoyang168.com/bbs/viewthread.php?tid=4773466&fpage=1，我也建議別人不要幫助沒有基本禮儀的人。

贊一下

回復此樓

2樓2012-08-11 01:58:24

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

xiezhancnu

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 5291.5
紅花: 1
帖子: 147
在線: 84.2小時
蟲號: 1387285
注冊: 2011-09-02
專業(yè): 生物信息學

引用回帖:

2樓: Originally posted by wizardfan at 2012-08-11 01:58:24
本來是想幫你的，但是以前幫過你以后，一點回音都沒有http://www.gaoyang168.com/bbs/viewthread.php?tid=4773466&fpage=1，我也建議別人不要幫助沒有基本禮儀的人。

不是的，我暈~~，現(xiàn)在放假了，那幾天家里有事回去了，我家農村的，家里又上不了網(wǎng)！在家?guī)Я耸畞硖�，就把那個帖子給忘了，平時小木蟲上的又不多，請您不要生氣了哈~~現(xiàn)在把金幣給您~~暈~~·

贊一下

回復此樓

3樓2012-08-11 09:30:25

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jackie1179

木蟲 (正式寫手)

應助: 11 (小學生)
金幣: 1929.2
紅花: 1
帖子: 460
在線: 47.2小時
蟲號: 1119284
注冊: 2010-10-11
專業(yè): 生物信息學

【答案】應助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應助指數(shù) +1
xiezhancnu: 金幣+10 2012-08-11 09:45:21
xzhdty: 金幣+1, 謝謝參與 2012-08-13 22:21:08

你的原始文件要保存為文本文檔才好操作（用制表符分隔），因為用perl操作excel表格我也不會

CODE:

#!/usr/bin/perl 

use warnings;

$cor_file = "cor.csv";

$pvalue_file = "pvalue.csv";

$out = "out";

undef %cor;

undef %pvalue;

open(COR,"$cor_file") || die "Cannot open this file$!";

 =~ /(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)/;

for($i = 1; $i <= 10; $i++) {

  push @gene,$$i;

}

print @gene,"\n";

$cnt = 0;

while() {

  $cnt++;

  $_ =~ /^\S+\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)/;

  for($j = $cnt; $j < 10 ; $j++ ) {

    $cor{$gene[$cnt - 1],$gene[$j]} = ${$j + 1};

  }

}

close COR;

foreach (sort keys %cor) {

  print $_,"=>","$cor{$_}\n";

}

open(PVALUE,"$pvalue_file") || die "Cannot open this file$!";

;

$cnt = 0;

while() {

  $cnt++;

  $_ =~ /^\S+\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)\t(\S+)/;

  for($j = $cnt; $j < 10; $j++) {

    $pvalue{$gene[$cnt - 1],$gene[$j]} = ${$j + 1};

  }

}

close PVALUE;

open(OUT,">$out") || die "Cannot write to this file$!";

print OUT "gene1\tgene2\tcorrelation efficient\t p-value\n";

for($i = 0; $i < 10; $i++) {

  for($j = 0; $j < 10; $j++) {

    if(exists $cor{$gene[$i],$gene[$j]}) {

      printf OUT "%-8s\t%-8s\t%8s\t%8s\n",$gene[$i],$gene[$j],$cor{$gene[$i],$gene[$j]},$pvalue{$gene[$i],$gene[$j]};

    }

  }

}

close OUT;

贊一下

回復此樓

4樓2012-08-11 09:32:35

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 10 個回答

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 一志愿a區(qū)211，085601-307分求調劑 +10	黨嘉豪 2026-03-31	23/1150	2026-03-31 18:44 by JourneyLucky
[考研] 328求調劑 +5	鵬鵬碰嘭嘭 2026-03-24	5/250	2026-03-31 17:42 by 544594351
[考研] 311求調劑 +9	藍月亮亮 2026-03-30	9/450	2026-03-31 16:32 by yedezhan
[考研] 362求調劑 +9	西南交材料專碩3 2026-03-31	9/450	2026-03-31 16:25 by w蟲蟲123
[考研] 334分一志愿武理-080500 材料求調劑 +9	李李不服輸 2026-03-25	9/450	2026-03-31 16:25 by hypershenger
[考研] 求調劑 +4	圖鑒212 2026-03-30	4/200	2026-03-31 10:20 by cal0306
[考研] 085600，專業(yè)課化工原理，320分求調劑 +6	大饞小子 2026-03-29	6/300	2026-03-31 10:03 by 氯化亞硝酰
[考研] 0817化工學碩調劑 +7	努力上岸中！ 2026-03-31	7/350	2026-03-31 09:58 by nalakaiqi
[考研] 08工科求調劑286 +5	tgs_001 2026-03-28	5/250	2026-03-31 08:18 by 一只好果子?
[考研] 083000環(huán)境科學與工程調劑，總分281 +4	橙子（勝意） 2026-03-30	4/200	2026-03-31 00:44 by Linzejun
[考研] 289求調劑 +16	新時代材料 2026-03-27	16/800	2026-03-30 19:04 by Wang200018
[考研] 332求調劑 +6	@MZB382400 2026-03-28	6/300	2026-03-30 16:57 by 無際的草原
[考研] 310求調劑 +10	爭取九點睡 2026-03-30	10/500	2026-03-30 16:45 by ztnimte
[考研] 求調劑，一志愿南京航空航天大學大學，080500材料科學與工程學碩 +6	@taotao 2026-03-26	7/350	2026-03-30 10:43 by 我是小康
[考研] 337求調劑 +6	《樹》 2026-03-29	6/300	2026-03-30 10:15 by herarysara
[考研] 086000生物與醫(yī)藥調劑 +5	Feisty。 2026-03-28	9/450	2026-03-29 12:02 by longlotian
[考研] 一志愿南京航空航天大學材料學碩求調劑 +3	@taotao 2026-03-28	3/150	2026-03-28 10:26 by JourneyLucky
[考研] 0703化學求調劑，各位老師看看我�。�！ +5	祁祺祺 2026-03-25	5/250	2026-03-27 21:44 by 東方豬豬
[考研] 272求調劑 +7	腳滑的守法公民 2026-03-27	7/350	2026-03-27 17:23 by laoshidan
[考研] 302求調劑 +4	錦衣衛(wèi)藤椒 2026-03-25	4/200	2026-03-25 16:29 by 功夫瘋狂

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

xiezhancnu

[求助] perl程序求助，請大神們賜教~~~

» 本帖附件資源列表

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

herter

wizardfan

xiezhancnu

jackie1179

【答案】應助回帖

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[求助] perl程序求助，請大神們賜教~~~

» 本主題相關價值貼推薦，對您同樣有幫助: