solenv/bin/modules/par2script/remover.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2000, 2010 Oracle and/or its affiliates.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # This file is part of OpenOffice.org.
  10 #
  11 # OpenOffice.org is free software: you can redistribute it and/or modify
  12 # it under the terms of the GNU Lesser General Public License version 3
  13 # only, as published by the Free Software Foundation.
  14 #
  15 # OpenOffice.org is distributed in the hope that it will be useful,
  16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 # GNU Lesser General Public License version 3 for more details
  19 # (a copy is included in the LICENSE file that accompanied this code).
  20 #
  21 # You should have received a copy of the GNU Lesser General Public License
  22 # version 3 along with OpenOffice.org.  If not, see
  23 # <http://www.openoffice.org/license.html>
  24 # for a copy of the LGPLv3 License.
  25 #
  26 #*************************************************************************
  27
  28
  29 package par2script::remover;
  30
  31 ############################################
  32 # Remover
  33 ############################################
  34
  35 sub remove_leading_and_ending_whitespaces
  36 {
  37     my ( $stringref ) = @_;
  38
  39     $$stringref =~ s/^\s*//g;
  40     $$stringref =~ s/\s*$//g;
  41 }
  42
  43 sub remove_leading_and_ending_comma
  44 {
  45     my ( $stringref ) = @_;
  46
  47     $$stringref =~ s/^\s*\,//g;
  48     $$stringref =~ s/\,\s*$//g;
  49 }
  50
  51 sub remove_leading_and_ending_quotationmarks
  52 {
  53     my ( $stringref ) = @_;
  54
  55     $$stringref =~ s/^\s*\"//g;
  56     $$stringref =~ s/\"\s*$//g;
  57 }
  58
  59 sub remove_leading_and_ending_slashes
  60 {
  61     my ( $stringref ) = @_;
  62
  63     $$stringref =~ s/^\s*\///g;
  64     $$stringref =~ s/\/\s*$//g;
  65 }
  66
  67 sub remove_leading_and_ending_backslashes
  68 {
  69     my ( $stringref ) = @_;
  70
  71     $$stringref =~ s/^\s*\\//g;
  72     $$stringref =~ s/\\\s*$//g;
  73 }
  74
  75 1;