How to extract information from perl
This article introduces the relevant knowledge of "how to extract information from perl". In the operation of actual cases, many people will encounter such a dilemma. Then let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!
#! / usr/bin/perl-w
Open IN, "ARGV [0]" or die $!
Open OUT, "> ARGV [1]" or die $!
While () {
Chomp
My @ arr=split /\ t /
If (($_ = ~ / ^ # /) | ($arr [] = ~ / ^ INDEL.*/) | | ($arr [] = ~ /, /) | | ($arr [] < 20)) {# extract information
Next
}
Else {
Print OUT $_, "\ n"
}
}
Close IN
Close OUT
This is the end of "how to extract Information from perl". Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!
