2 |
## $Id$ |
## $Id$ |
3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/01/31 01:22:19 root |
6 |
|
## + sub getLastPart |
7 |
|
## |
8 |
## Revision 1.1 2003/01/19 03:27:36 joko |
## Revision 1.1 2003/01/19 03:27:36 joko |
9 |
## + initial check-in |
## + initial check-in |
10 |
## |
## |
19 |
require Exporter; |
require Exporter; |
20 |
our @ISA = qw( Exporter ); |
our @ISA = qw( Exporter ); |
21 |
our @EXPORT_OK = qw( |
our @EXPORT_OK = qw( |
22 |
stripHtml stripSpaces stripNewLines toReal trim |
stripHtml stripSpaces stripNewLines toReal trim getLastPart |
23 |
); |
); |
24 |
|
|
25 |
sub stripHtml { |
sub stripHtml { |
69 |
return $real; |
return $real; |
70 |
} |
} |
71 |
|
|
72 |
|
sub getLastPart { |
73 |
|
my $which = shift; |
74 |
|
my $seperator = shift; |
75 |
|
$seperator ||= '\/'; |
76 |
|
$which =~ m/^.*$seperator(.+?)$/; |
77 |
|
return $1; |
78 |
|
} |
79 |
|
|
80 |
1; |
1; |