| ²é¿´: 382 | »Ø¸´: 3 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
xiezhancnuľ³æ (СÓÐÃûÆø)
|
[ÇóÖú]
perl³ÌÐòÇóÖú~ ÒÑÓÐ2È˲ÎÓë
|
||
|
chr start end chr10 2 4 chr1 2 3 chr3 2 4 chr1 1 2 chr2 1 3 chr10 3 5 ÅÅÐò³É£º chr start end chr1 1 2 chr1 2 3 chr2 1 3 chr3 2 4 chr10 2 4 chr10 3 5 Ê×ÏȰ´ÕÕµÚÒ»ÁÐȾɫÌå˳ÐòÅÅchr1 chr2 ¡¡chr9,chr10,chr11¡¡chr21,chr22,chrX,chrY ÏàͬȾɫÌåÔò°´ÕÕλÖõÄǰºó˳Ðò½øÐÐÅÅÁС£ ÏÈл¹ý£¡ |
» ²ÂÄãϲ»¶
²ÄÁÏÇóµ÷¼Á Ò»Ö¾Ô¸¹þ¹¤´ó×Ü·Ö298·Ö£¬Ç°Èý¿Æ223·Ö
ÒѾÓÐ5È˻ظ´
085600 286·Ö ²ÄÁÏÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
086502»¯Ñ§¹¤³Ì342Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
²ÄÁÏÇóµ÷¼ÁÒ»Ö¾Ô¸¹þ¹¤´ó324
ÒѾÓÐ7È˻ظ´
328Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
340Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
Ò»Ö¾Ô¸Äϲý´óѧ324Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
Çóµ÷¼ÁÍÆ¼ö ²ÄÁÏ 304
ÒѾÓÐ15È˻ظ´
291Çóµ÷¼Á
ÒѾÓÐ19È˻ظ´
331»·¾³¿ÆÑ§Ó빤³ÌÇóµ÷¼Á
ÒѾÓÐ3È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÇóÒ»¸ö½Å±¾³ÌÐò
ÒѾÓÐ3È˻ظ´
perl ´óÉñÇóÖú
ÒѾÓÐ8È˻ظ´
¾Ûõ£Ñǰ·±¡Ä¤¼ì²âÏîÄ¿ÖеÄÄÍÈÈÐÔ±ê×¼ÎÊÌâ
ÒѾÓÐ18È˻ظ´
ÇóÈËд¸ö³ÌÐò£¬ÉúÎïÐÅϢѧ·ÖÎö·½ÃæµÄÒªÇóÓÃperl»òÕßpythonÀ´Ð´£¡
ÒѾÓÐ5È˻ظ´
ÇóÌáȡĿ±ê³ÌÐò
ÒѾÓÐ9È˻ظ´
ÉúÎïÐÅϢѧÎÊÌ⣬ȾɫÌå»û±ä²éÕÒ
ÒѾÓÐ9È˻ظ´
ÇóÖúÓйØÉúÎïÐÅϢѧµÄ
ÒѾÓÐ13È˻ظ´
ÇóÖú Ò»¸öperl´úÂëÐÞ¸Ä~~¿´¿´°É...
ÒѾÓÐ6È˻ظ´
¹ØÓÚperlÔÚwindowsxpϰ²×°µÄÒ»¸öÎÊÌâ
ÒѾÓÐ4È˻ظ´
perl³ÌÐòÇóÖú£¬Çë´óÉñÃǴͽÌ~~~
ÒѾÓÐ9È˻ظ´
¼±Çó ÔËÐÐʱ³öÏÖÓ¦ÓóÌÐò·¢ÉúÒì³£ ÔÚÏßµÈ
ÒѾÓÐ4È˻ظ´
¹ØÓÚÓÃÏҽط¨Çóf(x)=3x^3-5x^2+16x-60=0µÄc++±à³ÌÎÊÌ⣬ÎҵijÌÐòÈçÏ¡£
ÒѾÓÐ3È˻ظ´
Çë°ïæ±àдһ¸öperl³ÌÐò´¦ÀíÎı¾
ÒѾÓÐ26È˻ظ´
Çë½ÌWindowsϵͳÏÂperl½Å±¾µÄARGVÓ¦ÓÃÎÊÌ⣬лл
ÒѾÓÐ5È˻ظ´
Çë½Ìperl½Å±¾µÄÒ»¸öifÓï¾ä½âÊÍ£¬Ð»Ð»
ÒѾÓÐ8È˻ظ´
ÇóÖú~~!!Çë¶®SQL SERVERµÄ½ø.
ÒѾÓÐ13È˻ظ´
¡¾ÇóÖú¡¿Çë½Ì¸÷λ¸ßÊÖ£º°ëë×°±ËáÓëÄÉÃ×½ð½áºÏµÄÔÀíÊÇʲô£¿ÀιÌÂð£¿
ÒѾÓÐ10È˻ظ´
¡¾ÇóÖú¡¿Óкܶà´íÎóµÄ³ÌÐò£¬ÕÒ²»³öÀ´ÁË
ÒѾÓÐ18È˻ظ´
¡¾ÇóÖú¡¿Fortran ÈçºÎ¶ÁÈ¡ÎļþÖÐÌØ¶¨ÐеÄÄÚÈÝ
ÒѾÓÐ16È˻ظ´
ÉϹÙÉñËÙ
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 27.5
- Ìû×Ó: 7
- ÔÚÏß: 11.3Сʱ
- ³æºÅ: 3760218
- ×¢²á: 2015-03-23
- רҵ: ×ÔÈ»ÓïÑÔÀí½âÓë»úÆ÷·Òë
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
|
@ARGV==1 || die "No way"; my ($text) = @ARGV; my @tmp; my $hd; open($hd,"< $text" || die "can not open it";while(<$hd> ![]() { chomp; s/^\s+//g; s/chr//; s/\s+/-/; push(@tmp,$_); } my @sorted = sort {$a <=> $b } @tmp; foreach(@sorted){s/\-/ /g;print "chr$_\n";} ½á¹û£ºchr1 2 3 chr1 1 2 chr2 1 3 chr3 2 4 chr10 2 3 chr10 3 5 |
4Â¥2015-06-12 16:39:57
ÍË»¯or½ø»¯
ľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 222 (´óѧÉú)
- ½ð±Ò: 4926.5
- ºì»¨: 26
- Ìû×Ó: 1615
- ÔÚÏß: 242.3Сʱ
- ³æºÅ: 1545339
- ×¢²á: 2011-12-20
- ÐÔ±ð: GG
- רҵ: ÉúÎïÐÅϢѧ
2Â¥2015-05-08 08:32:04
ÉϹÙÉñËÙ
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 27.5
- Ìû×Ó: 7
- ÔÚÏß: 11.3Сʱ
- ³æºÅ: 3760218
- ×¢²á: 2015-03-23
- רҵ: ×ÔÈ»ÓïÑÔÀí½âÓë»úÆ÷·Òë
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
|
@ARGV==1 || die "No way"; my ($text) = @ARGV; my @tmp; my $hd; open($hd,"< $text" || die "can not open it";while(<$hd> ![]() { chomp; s/\s+//g; s/chr//; push(@tmp,$_); } my @sorted = sort {$a <=> $b } @tmp; foreach(@sorted){s/(.*)([0-9])([0-9])$/$1 $2 $3/;print "chr$_\n";} ½á¹û£º chr1 1 2 chr1 2 3 chr2 1 3 chr3 2 4 chr10 2 4 chr10 3 5 |
3Â¥2015-06-12 16:22:29














»Ø¸´´ËÂ¥
|| die "can not open it";