INTEGRATION: CWS native99 (1.3.738); FILE MERGED

2007/08/07 13:57:54 is 1.3.738.1: #i80411# new scp linker to simplify package restructuring
This commit is contained in:
Ivo Hinkelmann 2007-08-20 14:28:19 +00:00
parent 5b6ee99970
commit d5a20581b0

View file

@ -4,9 +4,9 @@
# #
# $RCSfile: converter.pm,v $ # $RCSfile: converter.pm,v $
# #
# $Revision: 1.3 $ # $Revision: 1.4 $
# #
# last change: $Author: rt $ $Date: 2005-09-08 09:25:06 $ # last change: $Author: ihi $ $Date: 2007-08-20 15:28:19 $
# #
# The Contents of this file are made available subject to # The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1. # the terms of GNU Lesser General Public License Version 2.1.
@ -82,6 +82,30 @@ sub convert_hash_into_array
return \@array return \@array
} }
sub convert_stringlist_into_array_2
{
my ( $input, $separator ) = @_;
my @newarray = ();
my $first = "";
my $last = "";
$last = $input;
while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/) # "$" for minimal matching
{
$first = $1;
$last = $2;
par2script::remover::remove_leading_and_ending_whitespaces(\$first);
if ( $first ) { push(@newarray, $first); }
}
par2script::remover::remove_leading_and_ending_whitespaces(\$last);
if ( $last ) { push(@newarray, $last); }
return \@newarray;
}
sub convert_stringlist_into_array sub convert_stringlist_into_array
{ {
my ( $includestringref, $separator ) = @_; my ( $includestringref, $separator ) = @_;