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, '2171 days ago
Perl script to extract the uniq Ids
#!/usr/bin/perl -w use strict; use warnings; use List::Uniq ':all'; open(my $val, "2256 days ago
Perl script to find missing and move to desire folder
#!/usr/bin/perl -w use strict; use warnings; open(my $ids, "2256 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_"..."_H3-03_","_H3-04_","_HB0_","_C28_","_C33_","_C31_","_C1T2_",..._","_C211_","_C21_","_C24_","_C27_","_E2B2_","_H004_","_H4-28...RIM15_","_HPRIM19_","_B39_","_C3B1_","_C3T1_","_HPRIM16_","_A...2254 days ago
Perl script to read multi fasta sequence one by one
#!/usr/bin/env perl use strict; use warnings; #USAGE #perl rohanRun.pl s...ARGV[0]"); my %fastaSeq = %$fastaSeq_ref; foreach my $key ( keys %fastaSeq) { open (OUT, ">$outfile") or die "couldn't open the file $outfile...2238 days ago
2226 days ago
2226 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.bai2200 days ago
Biological Sequence handling with Perl !
package Sequence::Generic; # File: Sequence/Generic.pm use strict; use Carp;...if (ref($new_seq)) { croak "argument to concatenate...'T', AAU => 'N',AAC => 'N',AAA => 'K',AAG => 'K',...($seq); return new Sequence::Alignment(src=>$seq,target=...2198 days ago
Perl script to check fastq reads qualities !
#!/usr/bin/env perl use strict; use warnings; sub readfq {...ined($aux->[0])) { while () { chomp; if (substr($_, 0, 1)...S+)/? $1 : ''; my $seq = ''; my $c; $aux->[0] = undef; while...'); my $qual = ''; while () { chomp; $qual .= $_; if (l...2171 days ago