Perl script to Mutate a DNA Sequence
...RE ARE THE 10 SUCCESSIVE MUTATIONS:\n\n"; for ($i=0 ; $i < 10 ; ++$i) { $mutant = mutate($mutant); print "$mutant\n"; print WRITE "$mutant\n"; } sub muta...2926 days ago
2882 days ago
Perl subroutine to read and write files
...InOut('read',$file) # $string = InOut('read',$file) # InOut('write',$file,\$string) # InOut('write',$file,\@array) #$string = "...return wantarray ? @file : join '', @file; } if($bit eq 'write'){ open InOut,"> $file"...2876 days ago
2703 days ago
2504 days ago
Collision free write with Perl
#Write into outfile -- collision free because of multicore usesage sub collision_free_write { my($outFile, $msg) = @_;...$!"; print $ofh "$msg\n" or die "$0 [$$]: write: $!"; close $ofh...2471 days ago
Installing Platypus on Ubuntu !
...p_send_cmd’: tabix/knetfile.h:9:32: warning: ignoring return value of ‘write’, declared with attribute warn_unused_result [-Wunused-result] #define netwrite(fd, ptr, len) write(fd, ptr,...2029 days ago
Perl script to delete the adjacent repeats !
/usr/bin/perl #Mostly the interview question for bioinfomatician ! #Write a code to delete the adjacent repeated character .... $string='ATTTTTTGGC'; # This should be convert...1561 days ago
Set up WGD environment using conda !
...act: arzwa@psb.vib-ugent.be Options: -v, --verbosity [info|debug] Verbosity level, default = info. -l, --logfile TEXT File to write logs to (optional) --versi...1214 days ago
1169 days ago