如何获取目录下的TXT文件名并加入到TXT第一行,占一行?

Question

如何获取目录下的TXT文件名,并且将获取到的文件名去掉扩展名,再把剩下的文件插入到文本当中的第一行,并且占一行.目录下只有 txt 格式文件,还有一个情况就是有一个总目录下面有很多的子目录，而且每个子目录下都有txt文件要处理,要涉及到遍历目录了.不会写，求助。

Answer 1

function write_txt($dir = '.'){
$dir_arr = scandir($dir);
$write_msg = "message\r\n";
if(is_array($dir_arr) && $dir_arr)foreach($dir_arr as $val){
$file = $dir . '/'. $val;
if(is_file($file)){
$end = substr($val, strpos($val, '.'));
if($end == '.txt'){
file_put_contents($file, $write_msg . file_get_contents($file));
}
}else{
if($val == '.'){
$file = $dir;
}else if($val == '..'){
if($dir != '.'){
$index = strrpos($dir, '/');
$file = substr($dir, 0, $index);
}
}else{
write_txt($file);
}
}
}
}write_txt();