Help for this page

Select Code to Download


  1. or download this
    my $count3="-1";
foreach my $lane (@array) {
    if ($lane eq "--\n"){$count3++;print "\t" x $count3 . "0\n";}
    else     {print "\t" x $count3 . "$lane"}
    }
  2. or download this
    0
0.0175
...
"\t\t"          0
"\t\t"          0.0287
"\t\t\t"              0