<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"> Bom dia amigos...<br> Estou utilizando "constant functions" em uma série de módulos. Estes módulos têm basicamente a mesma função, mas consultam lugares diferentes, têm alguns comportamentos diferentes e o retorno deles é diferente, tudo é tratado e agrupado após o retorno.<br> Bom, as "constant functions" entram no sentido de facilitar a inclusão de novos módulos à medida da necessidade, constantemente entram novas fontes onde preciso buscar dados e para cada fonte crio um módulo.<br> As "constant functions" tem o mesmo nome em todos estes módulos, porém, apontam para ações de webservice diferentes, eu crio o módulo e somente altero estas ações e em muito pouco tempo tenho uma nova fonte
operando.<br> Minha pergunta é, como referenciar de forma dinâmica estas constantes no módulo principal, segue uma forma muito simplificada do funcionamento :<br><br>MODULO A<br><br>sub SELFCODE {13};<br>sub SELFNAME {'SUPPLIERA'};<br>sub GET_PRODUCT_INFORMATION {'getStaticData_Product'};<br>sub GET_DESTINATION_INFORMATION {'getStaticData_Destination'};<br><br>
MODULO B<br><br>
sub SELFCODE {61};<br>
sub SELFNAME {'SUPPLIERB'};<br>
sub GET_PRODUCT_INFORMATION {'productsData'};<br>
sub GET_DESTINATION_INFORMATION {'destinations'};<br><br>MODULO PRINCIPAL<br><br>my $supplier=$xml->{supplier}; # Supplier = A ou B<br>my $pkg='Supplier::'.$supplier; # Supplier::A ou Supplier::B<br>my $obj=$pkg->new();<br>if ($xml->{type} eq 'product'){<br> $obj->{type}=$pkg::GET_PRODUCT_INFORMATION;<br>}<br>elsif ($xml->{type} eq 'destination'){<br> $obj->{type}=$pkg::GET_DESTINATION_INFORMATION;<br>}<br>$obj->processdata();<br><br> Meu problema é bastante simples, mas eu não estou conseguindo achar a solução.<br><div> <br>$pkg::GET_DESTINATION_INFORMATION<br><br> Dá este erro :<br><br>Use of uninitialized value in print at /home/inquiry/s2Dev/Inquiry.pm line 440<br></div><br> Ufa, acho que foi bem claro.<br> Obrigado.<br><br><br>Daniel ® Antunes<br><em></em><em><font color="#007f40">gnu/linux user</font></em>
#238553<div><br></div></div><br>
<hr size=1>Novos endereços, o Yahoo! que você conhece. <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.new.mail.yahoo.com/addresses">Crie um email novo</a> com a sua cara @ymail.com ou @rocketmail.com.</body></html>