Remove the duplicated line present only next to each other with Perl
#!/usr/bin/perl use strict; use warnings; { $_ = ; my $next_line; while( $next_line = ) { #print "current line: $_ -- next line: $next_line$/...2351 days ago
Extract the values between to user defined string with Perl
#!/usr/bin/perl -w use strict; while () { process_record() if /^\s*START/; } sub process_record { my $line; while (defined ($line = ) and $line...2351 days ago
Plot the density of genes in R
...column1 = chromosome name and column2 = start position of the gene # check if ggplot2 is installed, if so, load it, # if not, install and load...library(ggplot2) } # import a text file with gene positions # columns sh...2343 days ago
2323 days ago
2310 days ago
Perl script to remove fasta sequences in multifasta file with certain length threshold
...arameter not provided\n"; { local $/=">"; while() { chomp; next unless /\w/; s/>$//gs; my @chunk = split /\n/; my $header = s...2310 days ago
Plot custom gene density with R
library(karyoploteR) pp2308 days ago
Estimate Genome Size with Jellyfish and R
...common/Tutorial/Genome_estimation/sample_read_2.fastq #-t -treads=unit32 Number of treads to b.....etc. #-C -both-strands Count both strands #-m -mer-len=unit32 Length of the k-mer...2304 days ago
Perl script to find palindromic regions in DNA sequences
use strict; use warnings; my $pp = qr/(?: (\w) (?1) \g{-1} | \w? )/ix; my $filename = $ARGV[0]; open(my $fh, '2213 days ago
Perl script to count the number of files in a directory with regex
#!/usr/bin/perl use strict; use warnings; my @allNames=("_D14_","_B14_","_B15_","_C1T1_","_C3T3_","_D12_","_D13_","_E1B1_","_E1B3_","_H001_","_H3-03_","_H3-04_","_...2296 days ago