1#**************************************************************
2#
3#  Licensed to the Apache Software Foundation (ASF) under one
4#  or more contributor license agreements.  See the NOTICE file
5#  distributed with this work for additional information
6#  regarding copyright ownership.  The ASF licenses this file
7#  to you under the Apache License, Version 2.0 (the
8#  "License"); you may not use this file except in compliance
9#  with the License.  You may obtain a copy of the License at
10#
11#    http://www.apache.org/licenses/LICENSE-2.0
12#
13#  Unless required by applicable law or agreed to in writing,
14#  software distributed under the License is distributed on an
15#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16#  KIND, either express or implied.  See the License for the
17#  specific language governing permissions and limitations
18#  under the License.
19#
20#**************************************************************
21
22
23
24
25package par2script::remover;
26
27############################################
28# Remover
29############################################
30
31sub remove_leading_and_ending_whitespaces
32{
33	my ( $stringref ) = @_;
34
35	$$stringref =~ s/^\s*//g;
36	$$stringref =~ s/\s*$//g;
37}
38
39sub remove_leading_and_ending_comma
40{
41	my ( $stringref ) = @_;
42
43	$$stringref =~ s/^\s*\,//g;
44	$$stringref =~ s/\,\s*$//g;
45}
46
47sub remove_leading_and_ending_quotationmarks
48{
49	my ( $stringref ) = @_;
50
51	$$stringref =~ s/^\s*\"//g;
52	$$stringref =~ s/\"\s*$//g;
53}
54
55sub remove_leading_and_ending_slashes
56{
57	my ( $stringref ) = @_;
58
59	$$stringref =~ s/^\s*\///g;
60	$$stringref =~ s/\/\s*$//g;
61}
62
63sub remove_leading_and_ending_backslashes
64{
65	my ( $stringref ) = @_;
66
67	$$stringref =~ s/^\s*\\//g;
68	$$stringref =~ s/\\\s*$//g;
69}
70
711;
72