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, '2151 days ago
Perl script to extract the uniq Ids
#!/usr/bin/perl -w use strict; use warnings; use List::Uniq ':all'; open(my $val, "2235 days ago
Perl script to find missing and move to desire folder
#!/usr/bin/perl -w use strict; use warnings; open(my $ids, "2235 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_"...","_C27_","_E2B2_","_H004_","_H4-28_","_Hprim34_","_Hprim53_","_HPRIM1_","_HPRIM21_","_HPRIM22_","_HPRIM36_","_A110_","_...3_","_B34_","_B38_","_E3B2_","_E3T1_","_HPRIM14_","_H158_"); my @files...2234 days ago
Perl script to read multi fasta sequence one by one
#!/usr/bin/env perl use strict; use warnings; #USAGE #perl rohanRun.pl seq.fa my $outfile='tmp.fa'; my $fastaSeq_ref = readfasta ("$ARGV[0]"); my %fastaSeq = %$fast...$key ( keys %fastaSeq) { open (OUT, ">$outfile") or die "couldn't open the file $...2218 days ago
2206 days ago
2206 days ago
Bash script to convert SAM to BAM visualization ready
samtools view -bS file.sam | samtools sort - file_sorted samtools index test_sorted.bam test_sorted.bai2180 days ago
Biological Sequence handling with Perl !
package Sequence::Generic; # File: Sequence/Generic.pm use strict; use Carp; use overload '""'...ride the new() method"; } # Return the sequence as a string...o_append); } 1; Back to Article Listing Two package...} = %{$sequence}; # clone operation } else { croak "...2178 days ago
Perl script to check fastq reads qualities !
#!/usr/bin/env perl use strict; use warnings; sub readfq { my ($fh, $aux) = @_;...bstr($_, 0, 1) eq '>' || substr($_, 0, 1) eq '@') { $aux...e () { chomp; $c = substr($_, 0, 1); last if ($c eq...= length($qual) if ($qual); print join("\t", $n, $slen, $qle...2151 days ago