Acredito que o que você precisa é o que o Stan já falou, algo como: my @condor_q = read_file( './t/input.txt' );
ou até mesmo: my @condor_q = read_file( 't/input.txt' ); O uso do FindBin pode ser meio cheio de truques, se você utilizar vários níveis de sub diretórios. []'s 2014-02-24 6:19 GMT-03:00 Tiago Peczenyj <[email protected]>: > FindBin? > Em 24/02/2014 03:58, "Samir Cury" <[email protected]> escreveu: > >> 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. >> >> 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 : >> >> >> https://github.com/samircury/HTCondor--Queue--Parser/blob/master/t/01_basic.pl#L11 >> >> 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. >> >> 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. >> >> Abracos, >> Samir >> >> [1] : >> >> ~/code/Condor--Queue--Parser $ prove -l t/01_basic.pl >> t/01_basic.pl .. ok >> All tests successful. >> Files=1, Tests=9, 2 wallclock secs ( 0.03 usr 0.00 sys + 1.27 cusr >> 0.03 csys = 1.33 CPU) >> Result: PASS >> >> _______________________________________________ >> Rio-pm mailing list >> [email protected] >> http://mail.pm.org/mailman/listinfo/rio-pm >> > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm >
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
