Perl subroutine to creating kmer !
sub k_mers { my ($sequence, $k) = @_; my $len = length($sequence); my @result = (); for (my $i = 0; $i1619 days ago
Perl script to remove duplicated lines !
#!/usr/bin/perl use strict; use warnings; { $_ = ; my $next_line; while( $next_line = ) { #print "current line: $_ -- next line: $next_line$/";...1612 days ago
1611 days ago
1609 days ago
Bash command to install bwa, samtools, picard !
(base) [wsu29@bladeamd-2 tmp]$ conda install bwa Collecting package metadata (repodat...| h7b6447c_3 3.7 MB perl-5.26.2 |...bioconda/linux-64::bwa-0.7.17-hed695b0_7 perl...1607 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 sho...1602 days ago
1593 days ago
1577 days ago
1566 days ago
Perl script to reads and extract webpage contents !
use 5.010; use strict; use warnings; use WWW::Mechanize; my ($url) = @ARGV; die "Usage: $0 URL\n" if not $url; my $w = WWW::Mechanize->new; $w->get($url); say $w->content; #Run #jit@jit-HP-Pro-3335-MT:~/Downloads/testDock$ perl web.pl https://bioinformaticsonline.com1565 days ago