Shulou(Shulou.com)06/01 Report--

Editor to share with you how perl extracted gene ID from the nwk file of MEGA phylogenetic tree analysis results. I hope you will get something after reading this article. Let's discuss it together.

Extraction of Gene ID from nwk File

I have encountered several situations where I need to extract the gene ID from the nwk file, so I have written a script to do this.

Usage:

Perl nwk_geneid.pl-I in.nwk-o out.txt

In.nwk is the input nwk file, and out.txt is the exported gene ID file.

Script code

Use Getopt::Long;use strict;my% opts;GetOptions (\% opts, "iShares", "oforms", "h"); open (IN, "$opts {I}") | | die "open $opts {I} failed\ n"; open (OUT, "> $opts {o}") | | die "open $opts {o} failed\ n"; while () {chomp;my $str = $_; $str = ~ s /\ d\.\ dhoptThere is GTHR = ~ s /\ (/ / Gintintstr = ~ s /\) / g After reading this article, I believe you have a certain understanding of "how perl extracts gene ID from the nwk file of MEGA phylogenetic tree analysis results". If you want to know more about it, welcome to follow the industry information channel. Thank you for reading this article.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.