note
linuxer
<p>I modified your problem definition into:
<p>How to split a string into several substrings (of a given maximum length) without breaking a word when splitting.
<p>I found this (quickly hacked) solution:
<code>
#! /opt/perl/bin/perl
use strict;
use warnings;
my $text = "Hello, I am a perl/mysql programmer, but am self taught so I do not know all the awesome features Perl has, however, I am ok at it though, I guess.";
sub split_at {
my ( $text, $len ) = @_;
my @result;
my @parts = split /[ ]/, $text;
my $short = shift @parts;
while ( @parts ) {
if ( length($short) + length($parts[0]) < $len ) {
$short = join( ' ', $short, shift @parts );
}
else {
push @result, $short;
$short = shift @parts;
}
}
push @result, $short;
return @result;
}
{
local $, = local $\ = $/;
print split_at( $text, 100 );
# beware
print split_at( 'a'x110, 100 );
}
</code>
<p>Limitation: If the given string doesn't contain any whitespace (<c>\x20</c>), it won't split at all.
<p>If you just want/need the first substring, just use the first returned element.
<small>
<p>Updates:</p>
<ul>
<li>cleaned up code</li>
<li>fixed comparison; thanks, [rowdog]</li>
</ul>
</small>
845399
845399