solenv/bin/modules/par2script/converter.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19
  20 package par2script::converter;
  21
  22 use par2script::remover;
  23
  24 #############################
  25 # Converter
  26 #############################
  27
  28 sub convert_stringlist_into_array_2
  29 {
  30     my ( $input, $separator ) = @_;
  31
  32     my @newarray = ();
  33     my $first = "";
  34     my $last = "";
  35
  36     $last = $input;
  37
  38     while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/)   # "$" for minimal matching
  39     {
  40         $first = $1;
  41         $last = $2;
  42         par2script::remover::remove_leading_and_ending_whitespaces(\$first);
  43         if ( $first ) { push(@newarray, $first); }
  44     }
  45
  46     par2script::remover::remove_leading_and_ending_whitespaces(\$last);
  47     if ( $last ) { push(@newarray, $last); }
  48
  49     return \@newarray;
  50 }
  51
  52 1;