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

Cutting of part of the unicode line (See related posts)

// 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 Fri Dec 01 13:52:04 -0500 2006

You need to create an account or log in to post comments to this site.


Click here to browse all 4858 code snippets

Related Posts