怎样删除文件夹中含有部分字串的文件？

该文件夹中很多文件，后缀不定。
要删除的文件的文件名的前面统一是f165这样开头。比如：f165d3.gif、f16532.zip等
---------------------------------------------------------------

$d = dir("目录名");
while($f = $d->read($d)) {
if(preg_match("/^f165.*/",$f))
unlink($d->path."/".$f;
}
$d->close();