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 apple2307 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$/...2307 days ago
2266 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...2195 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...2169 days ago
2166 days ago
2158 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...2154 days ago
2141 days ago
2140 days ago