<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"> Olá amigos da lista, boa tarde...<br> Gostaria de saber se há a possibilidade de escrever estas linhas de forma sintética :<br><br> if ($sup eq 'ABC'){<br> $self->{book}=new Sup::ABC($xml,Sup::ABC::METHOD_A);<br> }<br> elsif ($sup eq 'D'){<br> $self->{book}=new Sup::D($xml,Sup::D::METHOD_A);<br> }<br> elsif ($sup eq 'EF'){<br>
$self->{book}=new Sup::EF($xml,Sup::EF::METHOD_A);<br>
}<br>
elsif ($sup eq 'GHIJK'){<br>
$self->{book}=new Sup::GHIJK($xml,Sup::GHIJK::METHOD_A);<br>
}<br>
<br> Eu tentei algumas alternativas mas sem sucesso.<br> Criei os módulos com métodos iguais propositalmente para facilitar no desenvolvimento, porém, ainda não achei uma maneira de sintetizar isto.<br> Eu queria algo do tipo :<br><br> $self->{book}=new Sup::$sup($xml,Sup::$sup::METHOD_A);<br><br> Acredito que seja algo simples mas... Foge do meu domínio de PERL.<br> E como estes módulos estão crescendo, cada um deles se comunica com um determinado local com características especifícas, eu preciso descobrir uma metodologia antes de dar prosseguimento.<br> Desde já muito obrigado.<br><br><div> </div>Daniel ® Antunes<br><em><font color="#007f40">profissional de informática</font></em><br><em><font color="#007f40"></font></em><em><font color="#007f40">gnu/linux user</font></em> #238553<div><br></div></div><br>
<hr size=1>Abra sua conta no <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento!
</body></html>