<div dir="ltr">Acredito que o que você precisa é o que o Stan já falou, algo como:<div><br></div><div><span class="" style="font-weight:bold;color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">my</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:teal;font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">@condor_q</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="font-weight:bold;color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">=</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">read_file</span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">(</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:rgb(221,17,68);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">'./t/input.txt'</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">)</span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">;</span></div>
<div><br></div><div>ou até mesmo:</div><div><br></div><div><span class="" style="font-weight:bold;color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">my</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:teal;font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">@condor_q</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="font-weight:bold;color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">=</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">read_file</span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">(</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:rgb(221,17,68);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">'t/input.txt'</span><span style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre;background-color:rgb(255,255,204)"> </span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">)</span><span class="" style="color:rgb(51,51,51);font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:18px;white-space:pre">;</span></div>
<div><br></div><div>O uso do FindBin pode ser meio cheio de truques, se você utilizar vários níveis de sub diretórios.</div><div><br></div><div>[]'s</div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2014-02-24 6:19 GMT-03:00 Tiago Peczenyj <span dir="ltr"><<a href="mailto:tiago.peczenyj@gmail.com" target="_blank">tiago.peczenyj@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<p dir="ltr">FindBin? </p>
<div class="gmail_quote">Em 24/02/2014 03:58, "Samir Cury" <<a href="mailto:samircurys@gmail.com" target="_blank">samircurys@gmail.com</a>> escreveu:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<div dir="ltr"><div><div>E ai pessoal, faz um tempo que nao passo por aqui, mas felizmente estou voltando a usar Perl no cotidiano e me livrando da ferrugem.<br><br>Estava revisando um modulo que falta pouco para subir pro CPAN, e me deparei com uma coisa que nao me pareceu o melhor jeito de se fazer :<br>
<br><a href="https://github.com/samircury/HTCondor--Queue--Parser/blob/master/t/01_basic.pl#L11" target="_blank">https://github.com/samircury/HTCondor--Queue--Parser/blob/master/t/01_basic.pl#L11</a><br><br></div>Penso isso pois uma vez enquanto escrevia testes em Python me falaram de uma variavel que referenciava o diretorio de testes. Imaginei que pudesse existir um equivalente em Perl mas minhas buscas nao retornaram nada especifico.<br>
<br></div><div>Achei interessante perguntar aqui na lista se conhecem algum jeito melhor. De repente esta na ponta da lingua de quem escreve modulos direto. Do jeito que esta ja passa no "prove" [1] mas como nao tenho muita pratica com modulos e sempre bom perguntar.<br>
<br></div><div>Abracos,<br></div><div>Samir<br><br>[1] : <br><br> ~/code/Condor--Queue--Parser $ prove -l t/<a href="http://01_basic.pl" target="_blank">01_basic.pl</a> <br>t/<a href="http://01_basic.pl" target="_blank">01_basic.pl</a> .. ok <br>
All tests successful.<br>
Files=1, Tests=9, 2 wallclock secs ( 0.03 usr 0.00 sys + 1.27 cusr 0.03 csys = 1.33 CPU)<br>Result: PASS<br></div></div>
<br></div></div><div class="">_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></div></blockquote></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br></div>