| 查看: 974 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
denis2008金虫 (正式写手)
|
[求助]
求助perl程序
|
||
|
各位编程高手，你们好，我目前刚学perl编程，现要编一个小程序，感觉有点困难，请求各位帮忙。 数据如下： code1 CGTCTCGATc TGCGCCGAGc AACACTGGGc CCCTGGGTCc TACGTTTCAc TGACGTGCAc code2 AAAACAGGGc CCGGGCTTGc TAAATAGTTc TACATCTTCc code 3 GATC ATCG CGTA 输出格式： code3+GGCACATTGATTTGGGAGTc+code1+code2+AGATCTGATGGCGCGAGGG 以及此序列的互补序列，分别输出到两个不同的文件中。 谢谢各位大侠帮忙！ |
回复此楼» 收录本帖的淘帖专辑推荐
 perl语言专栏 |
» 猜你喜欢
272分材料子求调剂
已经有36人回复
-
275求调剂
已经有8人回复
-
调剂求收留
已经有5人回复
-
一志愿211，化学学硕，310分，本科重点双非，求调剂
已经有20人回复
-
070300化学学硕311分求调剂
已经有19人回复
-
材料与化工调剂
已经有13人回复
-
材料与化工调剂
已经有33人回复
-
复试调剂
已经有7人回复
-
一志愿哈工大 085600 277 12材科基求调剂
已经有17人回复
-
还有化工二轮调剂的学校吗
已经有47人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助各位高手，关于perl程序~~
已经有4人回复
- perl程序求助，请大神们赐教~~~
已经有9人回复
- Perl 生物信息学编程求助，运行出现问题，烦请帮忙查找一下错误，谢谢！
已经有3人回复
- 求助用perl语言编一个程序把一个文件分成两个文件
已经有3人回复
- 【求助】求助差分电荷密度的脚本！
已经有45人回复
- 【求助】如何实现数字紧贴字母输入
已经有23人回复
- 求助一个perl 使用svg，最好要中文的。谢谢！
已经有1人回复
- 【求助】求将vasp的输出文件转化成xyz坐标的脚本
已经有11人回复
- 【求助/交流】请问，有没有谁知道，如何从NCBI上批量下载一类gene的核苷酸序列？
已经有13人回复
- 【求助】Fortran 程序可以直接读取和输出excel文件吗
已经有3人回复
- 【求助】结果文件中字符串的搜索程序
已经有5人回复
denis2008
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 685.3
- 帖子: 416
- 在线: 27.3小时
- 虫号: 250350
- 注册: 2006-05-13
- 性别: GG
- 专业: 生物信息学
3楼2012-09-29 09:16:47
mycaas
铁杆木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 6371.6
- 散金: 801
- 红花: 6
- 帖子: 586
- 在线: 549小时
- 虫号: 654016
- 注册: 2008-11-14
- 性别: GG
- 专业: 科学社会主义
2楼2012-09-28 16:07:04
scbible
木虫 (正式写手)
EPI the king of water
- 应助: 1 (幼儿园)
- 金币: 1805.1
- 散金: 20
- 红花: 1
- 帖子: 732
- 在线: 39.4小时
- 虫号: 398143
- 注册: 2007-06-10
- 性别: GG
- 专业: 生物物理、生物化学与分子
4楼2012-10-17 13:00:30
木有鱼丸
铁杆木虫 (知名作家)
- 应助: 1 (幼儿园)
- 贵宾: 2.505
- 金币: 10155.3
- 散金: 17028
- 红花: 72
- 沙发: 35
- 帖子: 5515
- 在线: 658.5小时
- 虫号: 1377098
- 注册: 2011-08-23
- 性别: GG
- 专业: 生物信息学
【答案】应助回帖
|
#!usr/bin/perl open(IN1,"E:\\code1.txt"  ||die"can't open the file:$!";open(IN2,"E:\\code2.txt" ||die"can't open the file:$!";open(IN3,"E:\\code3.txt" ||die"can't open the file:$!";open(OUT1,">E:\\positive.txt" ||die"can't open the file:$!";open(OUT2,">E:\\negtive.txt" ||die"can't open the file:$!";$file1="GGCACATTGATTTGGGAGTC"; $file2="AGATCTGATGGCGCGAGGG"; @file1=split(//,$file1); @file2=split(//,$file2); foreach(@file1) { if($_ eq "A" { $file3[$m]="T"; $m++; } if($_ eq "T" { $file3[$m]="A"; $m++; } if($_ eq "G" { $file3[$m]="C"; $m++; } if($_ eq "C" { $file3[$m]="G"; $m++; } } foreach(@file3) { $file3=$file3.$_; } foreach(@file2) { if($_ eq "A" { $file4[$n]="T"; $n++; } if($_ eq "T" { $file4[$n]="A"; $n++; } if($_ eq "G" { $file4[$n]="C"; $n++; } if($_ eq "C" { $file4[$n]="G"; $n++; } } foreach(@file4) { $file4=$file4.$_; } while( { chomp($_); $code=$_; $code1=$code1.$_; } while( { chomp($_); $code2=$code2.$_; } while( { chomp($_); $code3=$code3.$_; } print OUT1 "$code3$file1$code1$code2$file2\n"; print "$code3$file1$code1$code2$file2\n"; print OUT2 "$code3$file3$code1$code2$file4\n"; print "$code3$file3$code1$code4$file2\n"; |
5楼2012-10-22 21:46:40
