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

Support html stripping more easily.

Browse Source
This commit is contained in:
Chris 2013-08-09 12:47:36 +01:00
parent 4071436458
commit fc3aeda61c
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Webperl/Template.pm
View File

@ -913,6 +913,28 @@ sub html_clean {
} }
## @method $ html_strip($html)
# Strip the html from the specified string, returning the plain text content.
#
# @param html A string containing the HTML to strip the tags from
# @return A string containing the pla
sub html_strip {
my $self = shift;
my $html = shift;
require HTML::TokeParser::Simple;
my $tokparser = HTML::TokeParser::Simple -> new(string => $html);
my $text = "";
while(my $token = $tokparser -> get_token()) {
next unless $token->is_text();
$text .= $token -> as_is();
}
return $html;
}
## @method $ bytes_to_human($bytes, $long) ## @method $ bytes_to_human($bytes, $long)
# Convenience wrappper around humanise_bytes for backwards compatibility. # Convenience wrappper around humanise_bytes for backwards compatibility.
# #