comment on

I describe each sub, and then put a few comments here and there. But when I need to use this sub somewhere in a program, I usually just include a condensed version.


################################################# Trim
#
# This function removes whitespace, newline
# characters and other special characters
# before and after STRING. Returns a new string.
#
#   Usage: STRING = Trim(STRING)
#

sub Trim
{
  my $T = $_[0];
  defined $T or return '';
  my $N = length($T);
  my $X = 0;  # ptr to first non-whitespace
  my $Y = 0;  # ptr to last non-whitespace
  while ($N--)
  {
    if (vec($T, $N, 8) > 32)
    {
      $X = $N;
      $Y or $Y = $N + 1;
    }
  }
  return substr($T, $X, $Y - $X);
}
[download]

Condensed version:

sub Trim { my $T = $_[0]; defined $T or return ''; my $N = length($T); my $X = 0; my $Y = 0; while ($N--) { if (vec($T, $N, 8) > 32) { $X = $N; $Y or $Y = $N + 1; } } return substr($T, $X, $Y - $X); }

In reply to Re: (How) Do you document/test your private subroutines? by harangzsolt33 in thread (How) Do you document/test your private subroutines? by stevieb Title: Use: <p> text here (a paragraph) </p> and: <code> code here </code> to format your post, it's "PerlMonks-approved HTML": Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data! Titles consisting of a single word are discouraged, and in most cases are disallowed outright. Read Where should I post X? if you're not absolutely sure you're posting in the right place. Please read these before you post! — How do I compose an effective node title? How do I post a question effectively? Markup in the Monastery Posts may use any of the Perl Monks Approved HTML tags: a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.) For: Use: & & < < > > [ [ ] ] Link using PerlMonks shortcuts! What shortcuts can I use for linking? See Writeup Formatting Tips and other pages linked from there for more info.

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`