#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11130738 use warnings; local $_ = <<END; GO:0002366 False GO:0002446 True GO:0002275 True GO:0043312 True GO:0006733 False GO:0019674 False GO:0043588 False GO:0055065 False GO:0055080 True END while( /^(.*False\n(?:.*True\n)*)/gm ) { print "$1\n"; }
Outputs:
GO:0002366 False GO:0002446 True GO:0002275 True GO:0043312 True GO:0006733 False GO:0019674 False GO:0043588 False GO:0055065 False GO:0055080 True
In reply to Re: Parsing block of texts
by tybalt89
in thread Parsing block of texts
by perlance
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |