应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Shell&Perl » 请帮忙编写一个perl程序处理文本
北京石油化工学院2026年研究生招生接收调剂公告
273/3返回列表上一页123
查看: 2052  |  回复: 26
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

essen11

铜虫 (初入文坛)
引用回帖:
18楼: Originally posted by jackie1179 at 2012-05-11 11:28:51:
还有一个可能就是你用查找替换可能是不区分大小写的，如果你不需要区分大小写的话，那么可以再修改下

是需要区分大小写的。不用再修改了，我用查找替换找小写的共有14774处，但是我在程序返回的序列中搜索只有10261，看了一下程序返回的序列，这里面的差异有一部分肯定是因为返回序列不完整引起的，但还有一部分是不是因为程序没找到漏掉了。因此我在想，可以怎样修改一下这个程序可以将不含有短序列的序列找出来，这样，两者的和应该是我的序列总数。但我试着改了一下，只返回3000多条序列，肯定是我没处理好。不知道你是否可以帮着改一下程序，返回不含有gggggcg的序列。谢谢！
赞一下 回复此楼
21楼2012-05-15 21:43:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackie1179

木虫 (正式写手)
引用回帖:
21楼: Originally posted by essen11 at 2012-05-15 21:43:30:
是需要区分大小写的。不用再修改了，我用查找替换找小写的共有14774处，但是我在程序返回的序列中搜索只有10261，看了一下程序返回的序列，这里面的差异有一部分肯定是因为返回序列不完整引起的，但还有一部分是 ...

这个程序它是先将分布在多行的每条序列合并为一条完整的序列后再进行正则匹配的，所以一般不会出现匹配不到的情况，下面程序中将不含短序列的序列放到文件out2.txt中，其余不变
#!/usr/bin/perl
use strict;
use warnings;

my @name;
my @seqs;
if($ARGV[0] eq '-h' || $ARGV[0] eq '--help') {
  print "Usage: perl ./$0  input_file  substring\n";
  exit(0);
}
if(@ARGV < 2) {
  print "Arguments not enough!\n";
  exit(0);
}
my $cnt=0;
my $subseq=$ARGV[1];
open IN,"<$ARGV[0]";
open OUTFILE, ">outfile.txt";
open OUTFILE2,">out2.txt";
while({
  if (/^>/) {
    ++$cnt;
    $name[$cnt]=$_;   
   
  }

  if(/^[ATCGatcg]/) {
    chomp;
    $seqs[$cnt] .= $_;
  }

}
close IN;
my $i;
my $length;
my $hits=0;
foreach (1..$cnt) {
  if($seqs[$_]=~/$subseq/) {
    ++$hits;
    print OUTFILE "$name[$_]";
    $length=length $seqs[$_];
    for($i=1;$i<=$length;$i++) {
      printf OUTFILE "%s",substr($seqs[$_],$i-1,1);
      if($i%50 == 0) {
        print OUTFILE "\n";
      }
            
    }
    print OUTFILE "\n";
  } else {
    print OUTFILE2 "$name[$_]";
    $length=length $seqs[$_];
    for($i=1;$i<=$length;$i++) {
      printf OUTFILE2 "%s",substr($seqs[$_],$i-1,1);
      if($i%50 == 0) {
        print OUTFILE2 "\n";
      }
    }
    print OUTFILE2 "\n";
  }
}
print "A total of $hits sequences matched.\n";


close OUTFILE;
close OUTFILE2;
赞一下 回复此楼
22楼2012-05-16 09:14:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

essen11

铜虫 (初入文坛)
引用回帖:
22楼: Originally posted by jackie1179 at 2012-05-16 09:14:03:
这个程序它是先将分布在多行的每条序列合并为一条完整的序列后再进行正则匹配的，所以一般不会出现匹配不到的情况，下面程序中将不含短序列的序列放到文件out2.txt中，其余不变
#!/usr/bin/perl
use strict;
...

if(/^[ATCGatcg]/) {这句话是干什么用的，我怎么改为我要查找的序列之后输出结果就不对了。这里不是起到判别序列里是否有我需要的序列的作用吗?
赞一下 回复此楼
23楼2012-05-16 18:44:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackie1179

木虫 (正式写手)
引用回帖:
23楼: Originally posted by essen11 at 2012-05-16 18:44:01:
if(/^/) {这句话是干什么用的，我怎么改为我要查找的序列之后输出结果就不对了。这里不是起到判别序列里是否有我需要的序列的作用吗?

前一个if（/^>/）表示匹配序列名，后一个if(/^[ATCGatcg]/) 表示匹配序列，只要是序列肯定是以ATCGatcg中的一者开头的
赞一下 回复此楼
24楼2012-05-18 09:40:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jackie1179

木虫 (正式写手)
判别序列里是否有我需要的序列是这一句代码：if($seqs[$_]=~/$subseq/) {
赞一下 回复此楼
25楼2012-05-18 09:41:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

essen11

铜虫 (初入文坛)
引用回帖:
25楼: Originally posted by jackie1179 at 2012-05-18 09:41:51:
判别序列里是否有我需要的序列是这一句代码：if($seqs=~/$subseq/) {

嗯，多谢。好几天没来了，不好意思。这样一来就没什么问题了。
赞一下 回复此楼
26楼2012-05-23 19:58:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

rongren

木虫 (小有名气)

【答案】应助回帖

#!/usr/bin/perl  -w
open IN,"<1.txt";
open OUT1,">out1.txt";
while (<IN> {
        chomp;
        my @abc=split;
        if ($abc[1]=~/ccccAg/) {
                print OUT1 "$_\n";   
        }       
        }
close IN;
close OUT1;
赞一下 回复此楼
27楼2014-07-21 21:48:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 essen11 的主题更新
273/3返回列表上一页123
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 304求调剂（085602，过四级，一志愿985） +15 化工人999 2026-04-04 15/750 2026-04-05 16:25 by 我是电风扇r
[考研] 求调剂 +9 Hll胡 2026-04-04 9/450 2026-04-05 13:31 by wwytracy
[考研] 367求调剂 +3 谢28 2026-03-30 3/150 2026-04-05 13:27 by huangmoli
[考研] 298求调剂 +7 manman511 2026-04-05 7/350 2026-04-05 10:29 by 唐沐儿
[考研] 313求调剂 +3 海日海日 2026-04-04 3/150 2026-04-05 07:48 by 544594351
[考研] 求调剂 一志愿西南交通大学085701环境工程 282分 +5 多多爱吃汉堡 2026-04-04 5/250 2026-04-04 22:14 by 啵啵啵0119
[考研] 材料调剂 +10 懒羊羊轻置玉臀 2026-04-02 11/550 2026-04-04 21:56 by laoshidan
[考研] 385分 生物学（071000）求调剂 +9 qf626 2026-04-01 9/450 2026-04-04 18:10 by macy2011
[考研] 一志愿南农090401，268，求调剂 +5 一木鸟然 2026-04-04 5/250 2026-04-04 17:07 by babysonlkd
[考研] 22408求调剂 354分 可跨专业 +3 hannnnnnn 2026-04-04 3/150 2026-04-04 14:35 by 土木硕士招生
[考研] 求调剂 +3 农业工程与信息� 2026-04-04 3/150 2026-04-04 12:19 by 舍而后得
[考研] 一志愿北交大材料工程总分358 +6 cs0106 2026-04-03 6/300 2026-04-04 11:20 by w_xuqing
[考研] 268求调剂 +8 你好tg 2026-04-03 9/450 2026-04-04 05:08 by gswylq
[考研] 工科341分调剂 +3 洛多罗 2026-04-03 3/150 2026-04-03 14:20 by 1753564080
[考研] 321求调剂 +17 y-yh 2026-04-01 20/1000 2026-04-03 12:57 by y-yh
[考研] 316求调剂 +14 舟自梗 2026-04-01 18/900 2026-04-03 10:28 by linyelide
[考研] 材料化工340求调剂 +5 jhx777 2026-03-30 5/250 2026-04-02 12:45 by smileboy2006
[考研] 一志愿北交大材料工程总分358 +3 cs0106 2026-04-02 5/250 2026-04-02 11:37 by olim
[考研] 求调剂，一志愿北林食品与营养095500，301分，已过六级，有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 318求调剂 +10 陈晨79 2026-03-30 10/500 2026-03-31 17:37 by 544594351
信息提示
关闭
请填处理意见
关闭