Sv: [PERL] problem ved indlæsning af filnavne fra dir med readdir

["Jesper Lund" <sslug@sslug>]

> Hej
> 
> Jeg har brug for at indlæse samtlige filnavne fra et dir, helt bestemt 
> /etc/skel
> 
> På en RedHat 7 har man bare være så usmart at lave filnavne med 
> mellemrum i, altså "et filnavn.ext".
> 
> Hvis vi nu siger, at jeg har tre filnavne i mit dir, nemlig 
> "filnavn1.ext", "filnavn2.ext" og "fil navn3.ext"
> 
> Jeg læser ind i et array med
> 
> opendir(SKEL, "/etc/skel");
> @entries = readdir(SKEL);
> closedir(SKEL);
> 
> nu skulle arrayet @entries gerne have 3 indgange, nemlig ovenstående 
> filnavne, men i stedet har det 4, nemlig "filnavn1.ext", "filnavn2.ext", 
> "fil" og "navn3.ext".
> 
> Er der nogen, der kender en løsning på dette irriterende problem?
> 
> MVH Christian
> 
> P.S jeg har prøvet at dumpe noget ls -la til en fil, og så læse den ind, 
> og tage filnavnene fra den, men det var kun indtil jeg opdagede at folk 
> har forskellige alias, og at ls ikke virker ens på alle maskiner.

Jeg ved ik hvordan det gøres i Perl, men problemet med ls løste jeg ved at lave en "find /etc/skel -name * > filliste" Så kan den der filnavn bruges som input i di Perl sciprt ;)

Det er godt nok ikke den ÆGTE måde at gøre det på....

/Jesper