Re: Splitting a string into words

in reply to Splitting a string into words

This will extract anything up to 12 characters (greedy) that is followed by whitespace. It does what you described, but needs work to be of more general use.

#! /usr/bin/perl

use strict;
use warnings;

my $string = 'this is a test message';
my ($chunk) = $string =~ /(.{1,12})\s/;

print $chunk, "\n";
[download]

pbeckingham - typist, perishable vertebrate.

Comment on Re: Splitting a string into words Download Code

Replies are listed 'Best First'.
Re^2: Splitting a string into words by ikegami (Patriarch) on Aug 11, 2005 at 17:12 UTC
`(?:\s\|$)` works better than `\s`. An other alternative is `\b`, which will chop after a word, but before punctuation.	[reply] [d/l] [select]
Re^2: Splitting a string into words by tphyahoo (Vicar) on Aug 12, 2005 at 08:31 UTC
Depends on what a word is. If a word is \w+, this variant might be of use: `((\s\|\w){0,11})(\s\|$)`	[reply] [d/l]

In Section Seekers of Perl Wisdom