Mungle/Transform/String.pm

## ---------------------------------------------------------------------------
##  $Id$
## ---------------------------------------------------------------------------
##  $Log$
## ---------------------------------------------------------------------------


package Data::Transform::String;

use strict;
use warnings;

require Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( 
  stripHtml stripSpaces stripNewLines toReal trim
);

sub stripHtml {
  my $html = shift;
  my $result = '';
  #$html =~ s/<br>(.*)/ - ($1)/i;
  my $p = HTML::PullParser->new(
    doc => \$html,
    text => 'text',
    unbroken_text => 1,
  );
  while (my $token = $p->get_token()) {
    my $text = join('', @{$token});
    $result .= $text;
  }
  #$result =~ s/&nbsp;//g;
  return $result;
}

sub stripSpaces {
  my $text = shift;
  #print "text: $text", "\n";
  #print "ord: ", ord(substr($text, 0, 1)), "\n";
  $text =~ s/^\s*//g;
  $text =~ s/\s*$//g;
  return $text;
}

sub trim {
  my $string = shift;
  return stripSpaces($string);
}

sub stripNewLines {
  my $text = shift;
  #print "text: $text", "\n";
  #print "ord: ", ord(substr($text, 0, 1)), "\n";
  $text =~ s/\n//g;
  #$text =~ s/\s*$//g;
  return $text;
}

sub toReal {
  my $string = shift;
  $string =~ m/(\d+\.*\d+)/;
  my $real = $1;
  return $real;
}

1;
1	joko	1.1	## ---------------------------------------------------------------------------
2			## $Id$
3			## ---------------------------------------------------------------------------
4			## $Log$
5			## ---------------------------------------------------------------------------
6
7
8			package Data::Transform::String;
9
10			use strict;
11			use warnings;
12
13			require Exporter;
14			our @ISA = qw( Exporter );
15			our @EXPORT_OK = qw(
16			stripHtml stripSpaces stripNewLines toReal trim
17			);
18
19			sub stripHtml {
20			my $html = shift;
21			my $result = '';
22			#$html =~ s/<br>(.*)/ - ($1)/i;
23			my $p = HTML::PullParser->new(
24			doc => \$html,
25			text => 'text',
26			unbroken_text => 1,
27			);
28			while (my $token = $p->get_token()) {
29			my $text = join('', @{$token});
30			$result .= $text;
31			}
32			#$result =~ s/ //g;
33			return $result;
34			}
35
36			sub stripSpaces {
37			my $text = shift;
38			#print "text: $text", "\n";
39			#print "ord: ", ord(substr($text, 0, 1)), "\n";
40			$text =~ s/^\s*//g;
41			$text =~ s/\s*$//g;
42			return $text;
43			}
44
45			sub trim {
46			my $string = shift;
47			return stripSpaces($string);
48			}
49
50			sub stripNewLines {
51			my $text = shift;
52			#print "text: $text", "\n";
53			#print "ord: ", ord(substr($text, 0, 1)), "\n";
54			$text =~ s/\n//g;
55			#$text =~ s/\s*$//g;
56			return $text;
57			}
58
59			sub toReal {
60			my $string = shift;
61			$string =~ m/(\d+\.*\d+)/;
62			my $real = $1;
63			return $real;
64			}
65
66			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26