in reply to Truncate Data from MySQL
text to text:
$data->{pubText} =~ /\A((?:\w+\s){14}\w+).+/; my $text = $1 if defined $1; # ...
hth,
PooLpi
'Ebry haffa hoe hab im tik a bush'.
Jamaican proverb
In Section
Seekers of Perl Wisdom
in reply to Truncate Data from MySQL
text to text:
$data->{pubText} =~ /\A((?:\w+\s){14}\w+).+/; my $text = $1 if defined $1; # ...
hth,
PooLpi