Gugu's Code Snippets

Never been to DZone Snippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

About this user

Andrey Kostenko http://kostenko.name

« Newer Snippets

Older Snippets »

Showing 1-1 of 1 total RSS

Cutting of part of the unicode line

// 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.'...';
}

to perl unicode cut by gugu on Dec 01, 2006