Re: smart solution

[poolpi]

in reply to smart solution

Not tested

sub dispatch_closing {
    my ( $line, $fh, $HR_record ) = @_; 

    return
      unless $line =~
        /((?:SERVICE|WEB)_APPLICATION_EXECUTION_COMPONENT)|(UNX|WNT)/;

    my $sep = q{>};
    my $env = 'ENVIRONMENT_VARIABLE';
    my $res = 'RESOURCE';

    if ( defined $1 ) { 
        $sep = ( $1 =~ /SERVICE/ ) ? q{>} : q{};
        printf( $fh,
            "\t%s Id=\"%s\"%c%s%s%c\n",
            , $env, $_, $sep, $HR_record->{$_}, $env )
          for keys %$HR_record;
    }   
    else {
        $sep = ( $2 =~ /UNX/ ) ? q{>} : q{};
        printf( $fh,
            "\t%s Id=\"%s\" Source= %s %s%c}\n",
            $res, $_, substitute( $HR_record->{$_} ),
            $res, $sep )
          for keys %$HR_record;
    }   
}

hth,
PooLpi