966 days ago
Perl onliner to check the ids in two files !
perl -lane 'BEGIN{open(A,"ids2.txt"); while(){chomp; $k{$_}++}} if (defined($k{$F[0]})) {print "$_\t$F[0]\t1"} else {print "$_\tNA\t0"}; ' ids1.txt > aaa.xls943 days ago
Perl script to rename the fasta file !
#Script #1 #!/usr/bin/perl -w use strict; #USAGE #perl extractPattern.pl kmerfasta > uniref100_result_broad my %kHash; local $/ = '>'; my $infile2 = "$ARGV[0]"; # Kmer fasta open( FH2, '874 days ago
828 days ago
R script to covert and export html page to png
# Library library(streamgraph) # Create data: data434 days ago
Perl script for chi-squared test !
...######################################## # Read sequence file 1 ############################################################ open(FILE,"$ARGV[0]") || die "Can't open $ARGV[0]\n"; my $fasta = new...427 days ago
Raku script to find SSRs in fastq file !
...ce => $repeat }; } } } return @ssrs; } sub process-fastq-file(Str $filename) { my $fh = open $filename, :r; my $lin...128 days ago
Python script to convert Multi-line Fasta to Single-line Fasta
def multi_to_single_line_fasta(input_filename, output_filename): try: with open(input_filename, 'r') as input_file: with open(output_filename, 'w') as output_file: cur...111 days ago
Perl script to convert Multi-line Fasta to Single-line Fasta !
...le_line_fasta { my ($input_filename, $output_filename) = @_; open my $input_file, '', $output_filename or die "Error: Could not open file '$output_filename': $!";...111 days ago
110 days ago