摘要:
【转】Fst指数 转载自 http://blog.csdn.net/zhu_si_tao/article/details/71513099 与 http://blog.sina.com.cn/s/blog_4ab0b3390102viol.html 群体遗传学--Fst指数,即群体间分化指数,用于群
阅读全文
posted @ 2019-07-01 10:02
YUANya
阅读(748)
推荐(0)
摘要:
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 $_ = 'duwanxkm,c.,df;oq123@#!@%$#^'; 7 my $d ='d';my $o = 'o';my $where =index($_,$o);print "$where\n"; 8 $where =index($_,$d,7);print ...
阅读全文
posted @ 2019-06-30 22:50
YUANya
阅读(254)
推荐(0)
摘要:
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 foreach my $arg(@ARGV) 7 { 8 print "one is $arg\n"; 9 } 10 11 # perl t.pl *.txt 12 # one is 1.txt 13 # one is 2.txt 14 15 my @al...
阅读全文
posted @ 2019-06-30 22:12
YUANya
阅读(159)
推荐(0)
摘要:
TTY:终端是一种字符型设备,它有多种类型,通常使用tty 来简称各种类型的终端设备
阅读全文
posted @ 2019-06-30 19:22
YUANya
阅读(298)
推荐(0)
摘要:
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 $_ = 'oireqo````'; 7 8 unless($_ =~ /^a/m){print "no match to a\n"} 9 10 #no match to a 11 12 if(!($_ =~ /^a/m)){print ...
阅读全文
posted @ 2019-06-30 16:52
YUANya
阅读(323)
推荐(0)
posted @ 2019-06-28 11:47
YUANya
阅读(3)
推荐(0)
posted @ 2019-06-27 21:31
YUANya
阅读(1)
推荐(0)
摘要:
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 my $input = $ARGV[0];my $name = $ARGV[1];my $start = $ARGV[2];my $cut_start=$ARGV[3];my $cut_end=$ARGV[4]; 7 8 my $all_start=$ARGV[5]...
阅读全文
posted @ 2019-06-27 21:23
YUANya
阅读(295)
推荐(0)
posted @ 2019-06-26 23:18
YUANya
阅读(2)
推荐(0)
摘要:
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 my $number = 1;$number =~/(\w*)/;print "$1"; 7 $number++;print "$number\n";
阅读全文
posted @ 2019-06-26 17:44
YUANya
阅读(551)
推荐(0)