发布时间：2014-10-10 10:14:01

$dispatch1 ||= 'index';如果$dispatch1为非false，那么$dispatch1还是$dispatch1，否则，$dispatch1被赋值为index。$dispatch1 ||= 'index'; 相当于下面的含义：if ( not ($dispatch1) ) {  $dispatch1 = 'index';}......【阅读全文】

发布时间：2014-09-20 18:07:55

int i,j; STREC t;for(i=1;i<M;i++)if(stu[j].s>stu[j+1].s){t=stu[j];stu[j]=stu[j+1];stu[j+1]=t;}......【阅读全文】

发布时间：2014-09-18 16:51:54

#!/usr/bin/perluse Bio::SeqIO;$in = Bio::SeqIO->new( -format => 'fasta', -file => 'example.ta' );$out = Bio::SeqIO->new( -format => 'fastq', -file => '>out' );while ( .........【阅读全文】

发布时间：2014-09-18 10:36:23

use strict;my @list;$list[0][0]="s";$list[0][1]="3";$list[1][0]="d";$list[1][1]="4";$list[2][0]="w";$list[2][1]="2";$list[3][0]="h";$list[3][1]="0";$list[4][0]="j";$list[4][1]="9";@list = sort{$a->[1] <=> $b->[1]} @list;for(@list){    print $_,' ' for @{$_};  &nb.........【阅读全文】

发布时间：2014-09-17 21:30:23

my @AOA=([1,2,3],[4,5,6],[7,8,9]);my @tmp=map{$AOA[$_][0]} (0..$#AOA);print join("\n",@tmp),"\n";......【阅读全文】