in reply to Parsing block of texts
#!/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
|
|---|