How does perl draw Wayne?

This article mainly explains "how to draw Wayne in perl". Interested friends may wish to have a look at it. The method introduced in this paper is simple, fast and practical. Let's let the editor take you to learn "how to draw Wayne by perl".

The usage is as follows:

Perl venn_up_or_down.pl-in All_DEG_venn.xls-id1 left_DEG.final.xls-id2 right_DEG.final.xls-k trans_full_table.xls-od out

The input files of the script are transcriptional group analysis result files, All_DEG_venn.xls is generated when drawing Wayne diagram, and * _ DEG.final.xls is a combination of two differences. Trans_full_table.xls is a total of all genetic statistics files.

UsageForced parameter:- in All_DEG_venn.xls must be given-od outdir must be given-id1 left DEG.final.xls must be given-id2 right DEG.final.xls must be given-k noRef_trans_full_table.xls (kegg anno) must be givenOther parameter:-h Help document

Script code:

#! / usr/bin/perl-wuse strict;use warnings;use Getopt::Long;use Data::Dumper;use Config::General;use Cwd qw (abs_path getcwd); use FindBin qw ($Bin $Script); use File::Basename qw (basename dirname); use Math::BigFloat;use Bio::SeqIO;use Bio::Seq;my $version = "1.3" # # prepare parameters #- -# # GetOptionsmy% opts GetOptions (\% opts, "in=s", "id1=s", "id2=s", "Knows", "od=s", "h"); if (! defined ($opts {in}) | |! defined ($opts {id1}) | |! defined ($opts {k}) | |! defined ($opts {id2}) | | defined ($opts {od}) | | defined ($opts {h})) {print