Remove duplicate lines with perl
#! perl -sw use strict; my %lines; #open DATA, $ARGV[0] or die "Couldn't open $ARGV[0]: $!\n"; while () { print if not $lines{$_}++; } __DATA__ apple apple plum vinegar apple banana banana banana apple2295 days ago
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$/...2295 days ago
2254 days ago
Biological Sequence handling with Perl !
...$reversed; } # A human-readable description of the object sub asString { my $self = shift; return $self->type . '(' . $self->length . ' residues)'; } # Concatenate two se...2183 days ago
Perl script to find coding regions in DNA sequences
...tain the log-likelihood ratio. # It is recommended the use of logs to manage calculations involving # small numbers between 0 and 1. Log of the product is equal to the # the sum...2157 days ago
2154 days ago
2146 days ago
Perl script to run SATSUMA in loop !
#!/usr/bin/perl -w use strict; use File::Temp qw(tempfile); # Usage perl 1by1.pl for SATSUMA analysis # User need to set the reference multifasta file name he...2142 days ago
2129 days ago
2128 days ago