http://www.perlmonks.org?node_id=777868


in reply to Truncate Data from MySQL

text to text:

$data->{pubText} =~ /\A((?:\w+\s){14}\w+).+/;
my $text = $1 if defined $1;
# ...

[download]


hth,
PooLpi

'Ebry haffa hoe hab im tik a bush'. Jamaican proverb

In Section Seekers of Perl Wisdom