1package stringhelper; 2 3#************************************************************************* 4# 5# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 6# 7# Copyright 2000, 2010 Oracle and/or its affiliates. 8# 9# OpenOffice.org - a multi-platform office productivity suite 10# 11# This file is part of OpenOffice.org. 12# 13# OpenOffice.org is free software: you can redistribute it and/or modify 14# it under the terms of the GNU Lesser General Public License version 3 15# only, as published by the Free Software Foundation. 16# 17# OpenOffice.org is distributed in the hope that it will be useful, 18# but WITHOUT ANY WARRANTY; without even the implied warranty of 19# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20# GNU Lesser General Public License version 3 for more details 21# (a copy is included in the LICENSE file that accompanied this code). 22# 23# You should have received a copy of the GNU Lesser General Public License 24# version 3 along with OpenOffice.org. If not, see 25# <http://www.openoffice.org/license.html> 26# for a copy of the LGPLv3 License. 27# 28#************************************************************************* 29 30use strict; 31 32BEGIN { 33 use Exporter (); 34 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); 35 36 $VERSION = 1.00; 37 # if using RCS/CVS, this may be preferred 38 $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker 39 @ISA = qw(Exporter); 40 @EXPORT = qw(&endswith &startswith); 41 %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], 42 # your exported package globals go here, 43 # as well as any optionally exported functions 44 @EXPORT_OK = ( ); # qw($Var1 %Hashit &func3); 45} 46 47# string helper like java endsWith 48sub endswith($$) 49{ 50 my $string = shift; 51 my $search = shift; 52 if ( $string =~ /${search}$/ ) 53 { 54 return 1; 55 } 56 return 0; 57} 58sub startswith($$) 59{ 60 my $string = shift; 61 my $search = shift; 62 if ( $string =~ /^${search}/ ) 63 { 64 return 1; 65 } 66 return 0; 67} 68 691; 70