<div dir="ltr">Já deu uma olhada no Config::Any? Se não resolver seu problema, talvez seja mais facilmente extensível para isso ;-)<br><br><div class="gmail_quote">2008/8/25 MrBiTS <span dir="ltr"><<a href="mailto:mrbits@linuxmasters.info">mrbits@linuxmasters.info</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">-----BEGIN PGP SIGNED MESSAGE-----<br>
Hash: SHA1<br>
<div class="Ih2E3d"><br>
> E vocês? O que estão aprontando?<br>
<br>
</div>1) Algoritmos de análise combinatória para quebra de chaves de substituição baseadas em cifras de César;<br>
<br>
2) Análise de dados não estruturados com informações de clientes, para alimentação de um banco de dados da empresa.<br>
Aqui tem umas coisas legais para se fazer. O arquivo vem num formato "mais ou menos parecido" com os arquivos .ini da vida. Então temos:<br>
<br>
[SECAO1]<br>
valor1;valor2;valor3<br>
<br>
[SECAO2]<br>
X:hostname1<br>
Y:hostname2<br>
Y:hostname3<br>
Z:hostname4<br>
Z:hostname1<br>
<br>
[SECAO4]<br>
hostname1: loren ipsum: 1234; dolor sit amet: 3254<br>
hostname2: loren ipsum: 1234; dolor sit amet: 3254<br>
hostname3: loren ipsum: 1234; dolor sit amet: 3254<br>
hostname4: loren ipsum: 1234; dolor sit amet: 3254<br>
<br>
[SECAO4]<br>
hostname1:4051<br>
hostname2:2018<br>
hostname2:2017<br>
hostname4:4049<br>
<br>
[SECAO5]<br>
hostname1:474536126<br>
hostname2:112596242<br>
hostname4:956629834<br>
hostname4:307409880<br>
<br>
[SECAO6]<br>
2008-07^2155717824^62299078<br>
<br>
Com o arquivo "puro" não posso utilizar os métodos do Config::INI, que exige uma sintaxe mais rígida, assim:<br>
<br>
[secao]<br>
parametro=valor<br>
<br>
Esse cara está exigindo um pouco mais de trabalho mas, basicamente, basta descobrir o nome de cada seção e enviar os dados<br>
subsequentes a um parser específico. Nessas horas, sinto falta de uma estrutura case em Perl, que foi simulada por mim assim:<br>
<br>
my $caseS = "Perl"; # a variavel $caseS recebe um valor<br>
#<br>
if ( $caseS == "C++" ) {<br>
print "sua escolha: $caseS";<br>
}<br>
elsif ( $caseS == "Java" ) {<br>
print "sua escolha: $caseS";<br>
}<br>
elsif ( $caseS == "Perl" ) {<br>
print "sua escolha: $caseS";<br>
}<br>
elsif ( $caseS == "PHP" ) {<br>
print 'sua escolha: $caseS";<br>
}<br>
elsif ( $caseS == "TSE SAL" ) {<br>
print "sua escolha: $caseS";<br>
}<br>
# default<br>
else {<br>
print "Sua escolha $caseS nao e uma opcao valida";<br>
}<br>
<br>
<br>
3 )Uma porrada de customizações de relatórios para clientes.<br>
<br>
<br>
- --<br>
<br>
Um abraço<br>
<br>
.0. MrBiTs - <a href="mailto:mrbits@linuxmasters.info">mrbits@linuxmasters.info</a><br>
..0 GnuPG - <a href="http://keys.cardboard.net:11371/pks/lookup?op=get&search=0xAC37715A6DD1F186" target="_blank">http://keys.cardboard.net:11371/pks/lookup?op=get&search=0xAC37715A6DD1F186</a><br>
000 <a href="http://www.mrbits.com.br" target="_blank">http://www.mrbits.com.br</a><br>
<br>
-----BEGIN PGP SIGNATURE-----<br>
Version: GnuPG v1.4.6 (GNU/Linux)<br>
<br>
iD8DBQFIsoqdrDdxWm3R8YYRAgNOAJ9t75i2f+hU7LS0s//yVmPr4XyDagCfZSV4<br>
/h/rShL8U0JIoeW4t/OedCM=<br>
=j6xq<br>
-----END PGP SIGNATURE-----<br>
<div><div></div><div class="Wj3C7c">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>
</div>