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
Installing Covid19 Environment !
...######################## | 100% _openmp_mutex-4.5 | 22 KB |...####################### | 100% pyopenssl-21.0.0 | 48 KB | #...################ | 100% font-ttf-source-code | 684 KB | ########...###################### | 100% libopenblas-0.3.18 | 9.6 MB | ####...939 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
841 days ago
839 days ago
827 days ago
Bash script to transfer files to server !
# rsync options source destination rsync -azvh --progress PacBio_clean.fa xxx@xxx.xxx.res.in:/home/ # scp source_file_name username@destination_host:destination_folder scp –rpv /datafile xxx@192.168.1.100:/home/me819 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 !
#!/usr/bin/perl # # chidi.pl # # A script to perform a chi-squared test of the dinucleotide frequenc...ile 1 ############################################################ open(FILE,"$ARGV[0]") || die "Can't open $...427 days ago
Raku script to find SSRs in fastq file !
sub find-ssrs(Str $sequence) { my @ssrs; for 2..$sequence.chars -> $min-repeats { for $sequen...return @ssrs; } sub process-fastq-file(Str $filename) { my $fh = open $...127 days ago