Help for this page

Select Code to Download


  1. or download this
    if(($count != $var1) || ($count !=$var2) || ($count !=$var3))
  2. or download this
    my $cmd = 
  q#perl -F, -aane 'chomp @F; print join ",\t", @F[ grep(! /^(#
...
   . " $spectralfile > $diroutput$output ";
warn $cmd;
system( $cmd );
  3. or download this
    perl -F, -lane 'chomp @F; print join ",\t", @F[ grep(! /^(1|10|6)$/, 0
+..$#F)] ' blah.txt