Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added simple whitespace trimmer to utils.

Browse Source
This commit is contained in:
Chris 2012-01-20 12:53:32 +00:00
parent e5ab1ebfb6
commit 786b2d0720
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Utils.pm
View File

@ -45,7 +45,7 @@ use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw();
our @EXPORT_OK = qw(path_join superchomp is_defined_numeric rfc822_date title_case sentence_case get_proc_size blind_untaint);
our @EXPORT_OK = qw(path_join superchomp trimspace is_defined_numeric rfc822_date title_case sentence_case get_proc_size blind_untaint);
our $VERSION = 1.0;
@ -95,6 +95,22 @@ sub superchomp(\$) {
}
## @fn $ trimspace($data)
# Remove whitespace from the start and end of the specified string, and
# return the stripped string.
#
# @param data The string to remove leading and trailing whitespace from.
# @return The stripped string.
sub trimspace {
my $data = shift;
$data =~ s/^[\s\x{0d}\x{0a}\x{0c}]+//o;
$data =~ s/[\s\x{0d}\x{0a}\x{0c}]+$//o;
return $data;
}
## @fn $ is_defined_numeric($cgi, $param)
# Determine whether the specified cgi parameter is purely numeric and return it
# if it is. If the named parameter is not entirely numeric, this returns undef.