pont nélküli fájlnevek

sziasztok, van egy perl részlet, melynek lényege:

$ff='*.*';
while (<$dir/$ff>) {print};

ez a $ff a *.* formájú fájlbejegyzéseket listázza, nekem egy olyan kifejezés kéne, ami kihagy minden fájlt, amiben pont van, de nem akar összejönni, el vagyok akadva, tipp?

Hozzászólások

"olyan kifejezés kéne, ami kihagy minden fájlt, amiben pont van"
Ha nem csak kifejezésként jó, akkor


while (<$dir/*>) {/^[^.]*$/ && print};

while (<$dir/$ff>) { next if /\./; print; }

Valoszinuleg van jobb, de a semminel jobb ez is ;)