如何用正則表達式替換glob表達式來過濾文件名？

Question

我過濾一個目錄的文件：

chdir '/home/brian/mypics/'; 
@picArray = <*.JPG *.GIF *.jpg *.gif *.PNG *.png *.jpeg>; 
@soundArray = <*.mid *.MID *.wav *.WAV *.mp3 *.MP3 *.wma *.WMA *.ogg *.OGG>; 

我知道必須有一個更好，更簡單的方法，東西是不區分大小寫的，可以允許像gif|png|jpe?g和wma|ogg|mp3|wave?|midi?正則表達式。

我怎麼能有一個數組來捕獲所有未知的文件類型（例如，如果其中一個是.exe，它將在數組中全部都是自己的，因爲其他兩個從未捕獲它）？

Answer 1

執行opendir/READDIR將工作：

opendir(my $dh, "/tmp/"); 
my @files = readdir($dh); 
my @picArray = grep { /\.(gif|png|jpe?g)$/i } @files; 
my @soundArray = grep { /\.(wma|ogg|mp3|wave?|midi?)$/i } @files;