1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#! /usr/bin/perl use strict; use warnings; # quickshot: split on "A" if followed by "C" while ( my $line = <DATA> ) { my @parts = $line =~ m{(\w*?A)(C\w*?)}g; local $, = " "; print @parts, "\n"; } __DATA__ BBACCCCADD BACBACBACDAC BACBAC
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#! /usr/bin/perl use strict; use warnings; # quickshot: split on "A" if followed by "C" while ( my $line = <DATA> ) { my @parts = grep {length} split m/(.+?A)(?=C)/, $line; # Kontrolle local $, = " "; print @parts, "\n"; } __DATA__ BBACCCCADD BACBACBACDAC BACBAC ABAA