²é¿´: 2032  |  »Ø¸´: 26

essen11

Í­³æ (³õÈëÎÄ̳)

[ÇóÖú] Çë°ïæ±àдһ¸öperl³ÌÐò´¦ÀíÎı¾ ÒÑÓÐ1È˲ÎÓë

ÏÖÔÚÎÒÅöµ½ÕâÑùÒ»¸öÎÊÌ⣬ÎÒÓÐÒ»¸öÎı¾Îļþ1.txt£¬ÄÚÈÝÈçÏ£º
>ÐòÁÐÃû×Ö1£¨ÐòÁÐÃû×Ö¿ÉÒÔÈÎÒⳤ¶È£©ATGgcggggccccATAGGGGGGTTCCUTG¡£¡£¡£
>ÐòÁÐÃû×Ö2ATGgcggggccccAgTAGGGGGGTTCCUTG¡£¡£¡£
>ÐòÁÐÃû×Ö3CTGgggggggccccccgggggutg¡£¡£¡£¡£¡£¡£
ºóÃæ»¹ÓкܶàÐòÁÐ

ÒªÇó´ÓÕâЩÐòÁÐÀïÃæÉ¸Ñ¡³ö°üº¬Ò»Ð¡¶Î×ÓÐòÁУ¨Æ©ÈçccccAg)µÄÐòÁÐ,ÒÔÉÏÃæµÄÈý¸öÐòÁÐΪÀý£¬·µ»ØµÄÐòÁÐÎļþÓ¦¸ÃÊÇ
>ÐòÁÐÃû×Ö2ATGgcggggccccAgTAGGGGGGTTCCUTG¡£¡£¡£¡£¡£¡£
ºóÃæ»¹ÓкܶàÐòÁС£

ÓÉÓÚÐòÁÐ1£¬3²»°üº¬Õâ¸ö¶ÌÐòÁÐËùÒÔ±»É¾³ýÁË¡£

ÇëÎÊÔõÑù±àдһ¸öperl³ÌÐò´¦ÀíÉÏÃæµÄÎÊÌâ°¡£¿Ð»Ð»ÁË
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
»ØÌûÖ§³Ö ( ÏÔʾ֧³Ö¶È×î¸ßµÄǰ 50 Ãû )

ÈÎÌìÇà

½ð³æ (СÓÐÃûÆø)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
xzhdty: ½ð±Ò+1, лл²ÎÓë 2012-05-04 23:28:41
ÎÒÖ»¶®Ò»µãµã£¬Ï£ÍûÄܰﵽÄã¡£
°Ñ³ÌÐòÁí´æÎªfind.pl
ÔËÐÐʱÊäÈ룺 perl  find.pl 1.txt

³ÌÐò²¿·Ö£º

#!/usr/bin/perl
use strict;
use warnings;

my $subseq="ccccAg";
my $seq;
my $title;
open OUTFILE, ">>outfile.txt";
while(<>{

        if (/>(\w+) (\w+)/) {
                 $title=$1;
                $seq=$2;
                if ($seq=~/$subseq/) {
                        print ">$title\n";
                        print OUTFILE ">$title\n";
                        print OUTFILE "$seq\n";
                }
       
        }

}

close OUTFILE;
ʵÑéŰÎÒǧ°Ù±é£¬ÎÒ´ýʵÑéÈç³õÁµ...
4Â¥2012-05-04 20:16:24
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

jackie1179

ľ³æ (ÕýʽдÊÖ)

¶Ô²»ÆðÍüÁËÌù´úÂë,²¹ÉÏ£º
#!/usr/bin/perl
use strict;
use warnings;

my $subseq=$ARGV[1];
my $seq;
my $title;
open IN,"<$ARGV[0]";
open OUTFILE, ">outfile.txt";
while({
  if (/$subseq/) {
    print OUTFILE "$_\n";
   
  }

}
close IN;
close OUTFILE;
9Â¥2012-05-07 09:13:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
ÆÕͨ»ØÌû

cmdblock

Òø³æ (ÕýʽдÊÖ)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ÓÃperд̫Âé·³£¬ÓÃgrep°É
2Â¥2012-05-04 18:49:29
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

essen11

Í­³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by cmdblock at 2012-05-04 18:49:29:
ÓÃperд̫Âé·³£¬ÓÃgrep°É

¿ÉÊÇgrepÒ²²»»á°¡£¬ÏÖÔÚÍêÈ«²»¶®±à³Ì¡£
3Â¥2012-05-04 19:46:40
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÈÎÌìÇà

½ð³æ (СÓÐÃûÆø)

ÄǸö£¬ÊÇÓÒÀ¨ºÅ)
ʵÑéŰÎÒǧ°Ù±é£¬ÎÒ´ýʵÑéÈç³õÁµ...
5Â¥2012-05-04 20:18:01
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

essen11

Í­³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
5Â¥: Originally posted by ÈÎÌìÇà at 2012-05-04 20:18:01:
ÄǸö£¬ÊÇÓÒÀ¨ºÅ)

ok,thank you very much!!!ÏÈÔËÐÐһϰ¡£¬ÒªÊdzɹ¦µÄ»°£¬Õæ²»ÖªµÀÔõô¸ÐлÄãÁË£¡£¡
6Â¥2012-05-05 12:53:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

essen11

Í­³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
5Â¥: Originally posted by ÈÎÌìÇà at 2012-05-04 20:18:01:
ÄǸö£¬ÊÇÓÒÀ¨ºÅ)

ÔõôÄÇô¿ì¾ÍÔËÐÐÍêÁË£¬¶øÇÒÊä³öÎļþÀïʲô¶¼Ã»ÓУ¬¿ÕÎļþÒ»¸ö¡£
7Â¥2012-05-05 12:56:24
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

jackie1179

ľ³æ (ÕýʽдÊÖ)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
¶ÔÇ°ÃæµÄÉÔ¼Ó¸ÄϾͿÉÒÔÁË£º
³ÌÐò±£´æÎªfind.pl
ÔÚÖÕ¶ËÊäÈ룺perl ./find.pl  1.txt   substring
find.pl ºÍ1.txt·ÅÔÚͬһĿ¼Ï£¬È·±£Çл»µ½find.plËùÔÚĿ¼£¬substringΪÄãÒªÕÒµÄ×ÓÐòÁÐ
½á¹ûÊä³öµ½outfile.txtÖÐ
8Â¥2012-05-07 09:12:38
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

essen11

Í­³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
9Â¥: Originally posted by jackie1179 at 2012-05-07 09:13:33:
¶Ô²»ÆðÍüÁËÌù´úÂë,²¹ÉÏ£º
#!/usr/bin/perl
use strict;
use warnings;

my $subseq=$ARGV;
my $seq;
my $title;
open IN,"<$ARGV";
open OUTFILE, ">outfile.txt";
while(&l ...

ÄãºÃ£¬ÇëÎÊÔõÑù½«ÐòÁÐÃû³ÆÒ»ÆðÊä³ö°¡£¿Õâ¸ö³ÌÐò¡£
10Â¥2012-05-07 09:47:45
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ essen11 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703 ÎïÀí»¯Ñ§µ÷¼Á +3 ÎÒ¿ÉÒÔÉϰ¶µÄ¶Ô 2026-03-13 5/250 2026-03-16 10:50 by ÎÒ¿ÉÒÔÉϰ¶µÄ¶ÔÂ
[¿¼ÑÐ] »¯Ñ§¹¤³Ì321·ÖÇóµ÷¼Á +7 ´óÃ×·¹£¡ 2026-03-15 7/350 2026-03-16 10:25 by ÁËÁËÁËÁË¡£¡£
[»ù½ðÉêÇë] NSFCÉ걨ÊéÀïÉêÇëÈ˼òÀúÖдú±íÐÔÂÛÖø»¹ÐèÒªÔÚÉ걨Êé×îºóµÄ¸½¼þÀïÃæÔÙÉÏ´«Ò»±éÂð 20+5 NSFC2026ÎÒÀ´ÁË 2026-03-10 14/700 2026-03-15 23:53 by ²»¸ºÉØ»ªµÄ»¢
[ÎÄѧ·¼²ÝÔ°] »ï°éÃÇ£¬×£ÎÒÉúÈÕ¿ìÀÖ°É +15 myrtle 2026-03-10 24/1200 2026-03-15 21:16 by ËÕÖÝ_¶ººÅ
[¿¼ÑÐ] ÖпÆÔº²ÄÁÏ273Çóµ÷¼Á +3 yzydy 2026-03-15 3/150 2026-03-15 21:15 by ms629
[¿¼ÑÐ] 255Çóµ÷¼Á +3 Àî¼Î»Û£¬ 2026-03-12 4/200 2026-03-14 16:58 by ÓÐÖ»ÀêÅ«
[¿¼ÑÐ] 288Çóµ÷¼Á +14 ÍõÏþÑô- 2026-03-09 19/950 2026-03-14 02:05 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸Ìì½ò´óѧ£¬Ó¢Ò»Êý¶þ305·ÖÇóµ÷¼Á£¬ËÄÁù¼¶Òѹý +8 СС·¬µÄÇÑ 2026-03-09 8/400 2026-03-14 01:53 by JourneyLucky
[¿¼ÑÐ] Çóµ÷¼Á£¡ +4 Ë·Ë·»° 2026-03-09 4/200 2026-03-14 01:38 by JourneyLucky
[¿¼ÑÐ] 295¸´ÊÔµ÷¼Á +5 ¼òľChuFront 2026-03-09 5/250 2026-03-14 01:29 by JourneyLucky
[¿¼ÑÐ] ÔÆÄϲƾ­´óѧÐÅϢѧԺ¼ÆËã»úѧ˶ר˶ѧλµã +3 zjptai 2026-03-10 5/250 2026-03-14 01:23 by ·ÉÐÐçù
[¿¼ÑÐ] 306Çóµ÷¼Á +4 ÌÆÞ²Þ² 2026-03-09 4/200 2026-03-14 01:19 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸ºþʦ´ó»¯Ñ§289Çóµ÷¼Á +6 XMCMM3.14159 2026-03-10 6/300 2026-03-14 00:28 by JourneyLucky
[¿¼ÑÐ] 332Çóµ÷¼Á +3 zjy101327 2026-03-11 6/300 2026-03-13 22:48 by JourneyLucky
[¿¼ÑÐ] 085600µ÷¼Á +5 ÑúÑú123sun 2026-03-12 5/250 2026-03-13 22:06 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] 307Çóµ÷¼Á +5 ³¬¼¶ÒÁ°º´óÍõ 2026-03-12 5/250 2026-03-13 15:56 by °ô°ôÇòÊÖ
[ÂÛÎÄͶ¸å] Ͷ¸åÎÊÌâ 5+4 Ðǹâ²ÓÀÃxt 2026-03-12 6/300 2026-03-13 14:17 by god_tian
[¿¼ÑÐ] 268Çóµ÷¼Á +4 ºÃÔËÁ¬Ã಻¾ø 2026-03-12 4/200 2026-03-13 10:45 by hyswxzs
[¿¼ÑÐ] 0857»·¾³µ÷¼Á +5 ìÚìÚ_11 2026-03-10 5/250 2026-03-11 10:59 by wang_dand
[˶²©¼ÒÔ°] ľ³æºÃÏñ²»ÈÈÄÖÁË£¬ÊDz»ÊÇ£¿ +4 Æ«ÕñƬ 2026-03-10 4/200 2026-03-10 09:51 by longwave
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û