1*b1cdbd2cSJim Jagielski#************************************************************** 2*b1cdbd2cSJim Jagielski# 3*b1cdbd2cSJim Jagielski# Licensed to the Apache Software Foundation (ASF) under one 4*b1cdbd2cSJim Jagielski# or more contributor license agreements. See the NOTICE file 5*b1cdbd2cSJim Jagielski# distributed with this work for additional information 6*b1cdbd2cSJim Jagielski# regarding copyright ownership. The ASF licenses this file 7*b1cdbd2cSJim Jagielski# to you under the Apache License, Version 2.0 (the 8*b1cdbd2cSJim Jagielski# "License"); you may not use this file except in compliance 9*b1cdbd2cSJim Jagielski# with the License. You may obtain a copy of the License at 10*b1cdbd2cSJim Jagielski# 11*b1cdbd2cSJim Jagielski# http://www.apache.org/licenses/LICENSE-2.0 12*b1cdbd2cSJim Jagielski# 13*b1cdbd2cSJim Jagielski# Unless required by applicable law or agreed to in writing, 14*b1cdbd2cSJim Jagielski# software distributed under the License is distributed on an 15*b1cdbd2cSJim Jagielski# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*b1cdbd2cSJim Jagielski# KIND, either express or implied. See the License for the 17*b1cdbd2cSJim Jagielski# specific language governing permissions and limitations 18*b1cdbd2cSJim Jagielski# under the License. 19*b1cdbd2cSJim Jagielski# 20*b1cdbd2cSJim Jagielski#************************************************************** 21*b1cdbd2cSJim Jagielski 22*b1cdbd2cSJim Jagielski 23*b1cdbd2cSJim Jagielski 24*b1cdbd2cSJim Jagielski 25*b1cdbd2cSJim Jagielskipackage par2script::converter; 26*b1cdbd2cSJim Jagielski 27*b1cdbd2cSJim Jagielskiuse par2script::remover; 28*b1cdbd2cSJim Jagielski 29*b1cdbd2cSJim Jagielski############################# 30*b1cdbd2cSJim Jagielski# Converter 31*b1cdbd2cSJim Jagielski############################# 32*b1cdbd2cSJim Jagielski 33*b1cdbd2cSJim Jagielskisub convert_array_to_hash 34*b1cdbd2cSJim Jagielski{ 35*b1cdbd2cSJim Jagielski my ($arrayref) = @_; 36*b1cdbd2cSJim Jagielski 37*b1cdbd2cSJim Jagielski my ($line, $key, $value); 38*b1cdbd2cSJim Jagielski 39*b1cdbd2cSJim Jagielski my %newhash = (); 40*b1cdbd2cSJim Jagielski 41*b1cdbd2cSJim Jagielski for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) 42*b1cdbd2cSJim Jagielski { 43*b1cdbd2cSJim Jagielski $line = ${$arrayref}[$i]; 44*b1cdbd2cSJim Jagielski 45*b1cdbd2cSJim Jagielski if ( $line =~ /^\s*(\w+?)\s+(.*?)\s*$/ ) 46*b1cdbd2cSJim Jagielski { 47*b1cdbd2cSJim Jagielski $key = $1; 48*b1cdbd2cSJim Jagielski $value = $2; 49*b1cdbd2cSJim Jagielski $newhash{$key} = $value; 50*b1cdbd2cSJim Jagielski } 51*b1cdbd2cSJim Jagielski } 52*b1cdbd2cSJim Jagielski 53*b1cdbd2cSJim Jagielski return \%newhash; 54*b1cdbd2cSJim Jagielski} 55*b1cdbd2cSJim Jagielski 56*b1cdbd2cSJim Jagielskisub convert_hash_into_array 57*b1cdbd2cSJim Jagielski{ 58*b1cdbd2cSJim Jagielski my ($hashref) = @_; 59*b1cdbd2cSJim Jagielski 60*b1cdbd2cSJim Jagielski my @array = (); 61*b1cdbd2cSJim Jagielski my ($key, $value, $input); 62*b1cdbd2cSJim Jagielski 63*b1cdbd2cSJim Jagielski foreach $key (keys %{$hashref}) 64*b1cdbd2cSJim Jagielski { 65*b1cdbd2cSJim Jagielski $value = $hashref->{$key}; 66*b1cdbd2cSJim Jagielski $input = "$key = $value\n"; 67*b1cdbd2cSJim Jagielski push(@array ,$input); 68*b1cdbd2cSJim Jagielski } 69*b1cdbd2cSJim Jagielski 70*b1cdbd2cSJim Jagielski return \@array 71*b1cdbd2cSJim Jagielski} 72*b1cdbd2cSJim Jagielski 73*b1cdbd2cSJim Jagielskisub convert_stringlist_into_array_2 74*b1cdbd2cSJim Jagielski{ 75*b1cdbd2cSJim Jagielski my ( $input, $separator ) = @_; 76*b1cdbd2cSJim Jagielski 77*b1cdbd2cSJim Jagielski my @newarray = (); 78*b1cdbd2cSJim Jagielski my $first = ""; 79*b1cdbd2cSJim Jagielski my $last = ""; 80*b1cdbd2cSJim Jagielski 81*b1cdbd2cSJim Jagielski $last = $input; 82*b1cdbd2cSJim Jagielski 83*b1cdbd2cSJim Jagielski while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/) # "$" for minimal matching 84*b1cdbd2cSJim Jagielski { 85*b1cdbd2cSJim Jagielski $first = $1; 86*b1cdbd2cSJim Jagielski $last = $2; 87*b1cdbd2cSJim Jagielski par2script::remover::remove_leading_and_ending_whitespaces(\$first); 88*b1cdbd2cSJim Jagielski if ( $first ) { push(@newarray, $first); } 89*b1cdbd2cSJim Jagielski } 90*b1cdbd2cSJim Jagielski 91*b1cdbd2cSJim Jagielski par2script::remover::remove_leading_and_ending_whitespaces(\$last); 92*b1cdbd2cSJim Jagielski if ( $last ) { push(@newarray, $last); } 93*b1cdbd2cSJim Jagielski 94*b1cdbd2cSJim Jagielski return \@newarray; 95*b1cdbd2cSJim Jagielski} 96*b1cdbd2cSJim Jagielski 97*b1cdbd2cSJim Jagielskisub convert_stringlist_into_array 98*b1cdbd2cSJim Jagielski{ 99*b1cdbd2cSJim Jagielski my ( $includestringref, $separator ) = @_; 100*b1cdbd2cSJim Jagielski 101*b1cdbd2cSJim Jagielski my @newarray = (); 102*b1cdbd2cSJim Jagielski my ($first, $last); 103*b1cdbd2cSJim Jagielski 104*b1cdbd2cSJim Jagielski $last = ${$includestringref}; 105*b1cdbd2cSJim Jagielski 106*b1cdbd2cSJim Jagielski while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/) # "$" for minimal matching 107*b1cdbd2cSJim Jagielski { 108*b1cdbd2cSJim Jagielski $first = $1; 109*b1cdbd2cSJim Jagielski $last = $2; 110*b1cdbd2cSJim Jagielski par2script::remover::remove_leading_and_ending_whitespaces(\$first); 111*b1cdbd2cSJim Jagielski push(@newarray, $first); 112*b1cdbd2cSJim Jagielski } 113*b1cdbd2cSJim Jagielski 114*b1cdbd2cSJim Jagielski par2script::remover::remove_leading_and_ending_whitespaces(\$last); 115*b1cdbd2cSJim Jagielski push(@newarray, $last); 116*b1cdbd2cSJim Jagielski 117*b1cdbd2cSJim Jagielski return \@newarray; 118*b1cdbd2cSJim Jagielski} 119*b1cdbd2cSJim Jagielski 120*b1cdbd2cSJim Jagielski############################################################################# 121*b1cdbd2cSJim Jagielski# The file name contains for some files "/". If this programs runs on 122*b1cdbd2cSJim Jagielski# a windows platform, this has to be converted to "\". 123*b1cdbd2cSJim Jagielski############################################################################# 124*b1cdbd2cSJim Jagielski 125*b1cdbd2cSJim Jagielskisub convert_slash_to_backslash 126*b1cdbd2cSJim Jagielski{ 127*b1cdbd2cSJim Jagielski my ($filesarrayref) = @_; 128*b1cdbd2cSJim Jagielski 129*b1cdbd2cSJim Jagielski my ($onefile, $filename); 130*b1cdbd2cSJim Jagielski 131*b1cdbd2cSJim Jagielski for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ ) 132*b1cdbd2cSJim Jagielski { 133*b1cdbd2cSJim Jagielski $onefile = ${$filesarrayref}[$i]; 134*b1cdbd2cSJim Jagielski $onefile->{'Name'} =~ s/\//\\/g; 135*b1cdbd2cSJim Jagielski } 136*b1cdbd2cSJim Jagielski} 137*b1cdbd2cSJim Jagielski 138*b1cdbd2cSJim Jagielski1; 139