in reply to Perl one liner help
perl -MModern::Perl -ne 'my @l=split /\t/;say $+{ID} if $l[2] =~ /3|5\ +W-UTR/ and $l[8] =~ /ID=(?<ID>.*);/' < input.txt
|
---|
In Section
Seekers of Perl Wisdom
in reply to Perl one liner help
perl -MModern::Perl -ne 'my @l=split /\t/;say $+{ID} if $l[2] =~ /3|5\ +W-UTR/ and $l[8] =~ /ID=(?<ID>.*);/' < input.txt
|
---|