takizo, not takezo

When we grep a bunch of string, there are white spaces where we wish to trim, especially the white space at the beginning and the end of a string. There is no trim function in Perl like trim in PHP. The Perl function below should help you to trim the string.

#!/usr/bin/perl

sub trim($);
sub ltrim($);
sub rtrim($);

sub trim($)
{
	my $trim_string = shift;
	$trim_string =~ s/^s+//;
	$trim_string =~ s/s+$//;
	return $trim_string;
}

sub ltrim($)
{
	my $trim_string = shift;
	$trim_string =~ s/^s+//;
	return $trim_string;
}

sub rtrim($)
{
	my $trim_string = shift;
	$trim_string =~ s/s+$//;
	return $trim_string;
}

my $long_string = "  t  foo foo        bar t t bar          ";
print trim($long_string);

Related posts:

1. Open file and Splitting String in Perl What I gonna do is to read a bunch of...
2. How to Set VI or VIM Tab Space By default, vi or vim editor tab space is 8...
3. FreeBSD Port: Error Upgrading Perl 5.8.9 Usually I perform portupgrade daily on some of my FreeBSD...
4. How to Enable Suidperl in FreeBSD Enable Suidperl In FreeBSD Due to security issues, by default...

Tags: perl, php, string, trim

This entry was posted on Tuesday, July 13th, 2010 at 9:06 am and is filed under Systems. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.