Re: Break sentence into two part

[rnewsham]

Something like below may do what you want. Although it's not exactly clear from your question why you want to do this, or what you have tried so far. You may get a better answer, if you can provide more details of what problem you are trying to solve and example code you have tried.

use strict;
use warnings;

my $sentence = 'Perl 5 is a highly capable, feature-rich programming l
+anguage with over 27 years of development.';

my @words = split( ' ', $sentence);
my $midpoint = sprintf("%d", scalar @words / 2);
my ( @first_half, @second_half );
my $count = 0;

for ( @words )
{
        push @first_half,  $_ if $count <= $midpoint;
        push @second_half, $_ if $count >  $midpoint;
        $count++;
}

print join( ' ', @first_half ) . "\n";
print join( ' ', @second_half ) . "\n";

<code> Output: Perl 5 is a highly capable, feature-rich programming language with over 27 years of development

[Athanasius]

Yes, that’s how I would approach the problem. But there’s no need to populate new arrays using push, etc.: just use array slices directly:

my $first_half  = join(' ', @words[0             .. $midpoint]);
my $second_half = join(' ', @words[$midpoint + 1 .. $#words  ]);

Hope that helps,

[pme]

The midpoint calculation also can be written as:

my $midpoint = int(@words / 2);