Cutting of part of the unicode line

gugu (Andrey Kostenko) — Fri, 01 Dec 2006 18:52:04 GMT

// description of your code here



sub left_subject{

	my $self=shift;

	my $count=shift;

	use utf8;

	my $topic=$self->subject;

	utf8::decode($topic);

	utf8::upgrade($topic);

	my ($subtopic)=($topic=~/(.{0,$count})/);

#	utf8::decode($subtopic);

	$subtopic=~s/\b\w{1,5}$//;

	utf8::downgrade($subtopic);

	return $subtopic.'...';

}

DZone Snippets: Gugu's Code Snippets

Cutting of part of the unicode line