🚀 go-pugleaf

BT <BT < <buscando@cuenta.chula.es>>> wrote:
: $mi_script
: anda
: ya            <--- el fichero es "anda ya"
: file2.wav.mp3


: #!/usr/bin/per
: while (<*>)
: {
: 	print "$_\n";
: }


	Eso no es que sea incorrecto del todo pero es una guarreria.

	Al usar <*> estas solicitando un 'glob' (inseguro, prueba
	a usarlo con perl -T), que, curiosamente, en perl se encarga
	de expandirlo
		/bin/csh -cf 'set nonomatch; glob *'
	(si no me crees, haz un strace)
	con lo que los resultados dependen del csh, de su configuracion
	y de la fase de la luna.


	Lo correcto es:

opendir(DIR,".");
@files = readdir(DIR);       # read file names into array
closedir(DIR);
foreach (@files) {
	print "$_\n";
}

	(usando p.e. stat() si quieres sacar solo los ficheros)



-- 
PGP and other useless info at      \                 Oh, show us the way
http://www.cps.unizar.es/~spd/      \             to the next whisky bar
finger://daphne.cps.unizar.es/spd    \                      Weill/Bretch
es doloroso ser sabio y descubrir la sopa de ajo                   (Pla)