{"id":93,"date":"2009-09-02T06:35:07","date_gmt":"2009-09-02T06:35:07","guid":{"rendered":"http:\/\/www.adriangrigoras.com\/blog\/?p=93"},"modified":"2009-09-02T06:35:07","modified_gmt":"2009-09-02T06:35:07","slug":"trim-whitespaces-with-perl","status":"publish","type":"post","link":"https:\/\/adriangrigoras.com\/blog\/trim-whitespaces-with-perl\/","title":{"rendered":"Trim whitespaces with Perl"},"content":{"rendered":"

If you want to remove white spaces with Perl, you can use the following Reggular Expressions<\/p>\n

Trim all whitespaces: $value=~s\/s*\/\/g; # remove all the whitespace<\/p>\n

Or you can use function to trim the whitespaces from beggining, ending or both:<\/p>\n

\n
\n
# Perl trim function to remove whitespace from the start and end of the string<\/address>\n
sub trim($){<\/address>\n
my $string = shift;<\/address>\n
$string =~ s\/^s+\/\/;<\/address>\n
$string =~ s\/s+$\/\/;<\/address>\n
return $string;<\/address>\n
}<\/address>\n
<\/address>\n
# Left trim function to remove leading whitespace<\/address>\n
sub ltrim($){<\/address>\n
my $string = shift;<\/address>\n
$string =~ s\/^s+\/\/;<\/address>\n
return $string;<\/address>\n
}<\/address>\n
<\/address>\n
# Right trim function to remove trailing whitespace<\/address>\n
sub rtrim($){<\/address>\n
my $string = shift;<\/address>\n
$string =~ s\/s+$\/\/;<\/address>\n
return $string;<\/address>\n
}<\/address>\n<\/address>\n<\/blockquote>\n
# Perl trim function to remove whitespace from the start and end of the string<\/div>\n
sub trim($)<\/div>\n
{<\/div>\n
<\/span>my $string = shift;<\/div>\n
<\/span>$string =~ s\/^s+\/\/;<\/div>\n
<\/span>$string =~ s\/s+$\/\/;<\/div>\n
<\/span>return $string;<\/div>\n
}<\/div>\n
# Left trim function to remove leading whitespace<\/div>\n
sub ltrim($)<\/div>\n
{<\/div>\n
<\/span>my $string = shift;<\/div>\n
<\/span>$string =~ s\/^s+\/\/;<\/div>\n
<\/span>return $string;<\/div>\n
}<\/div>\n
# Right trim function to remove trailing whitespace<\/div>\n
sub rtrim($)<\/div>\n
{<\/div>\n
<\/span>my $string = shift;<\/div>\n
<\/span>$string =~ s\/s+$\/\/;<\/div>\n
<\/span>return $string;<\/div>\n
}<\/div>\n","protected":false},"excerpt":{"rendered":"

If you want to remove white spaces with Perl, you can use the following Reggular Expressions Trim all whitespaces: $value=~s\/s*\/\/g; # remove all the whitespace Or you can use function to trim the whitespaces from beggining, ending or both: # Perl trim function to remove whitespace from the start and end of the string sub\u2026 Read More »<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14],"tags":[],"class_list":["post-93","post","type-post","status-publish","format-standard","hentry","category-perl"],"_links":{"self":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/93","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/comments?post=93"}],"version-history":[{"count":0,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/93\/revisions"}],"wp:attachment":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/media?parent=93"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/categories?post=93"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/tags?post=93"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}