1)让用free pascal写一个在centos底下遍历目录文件的程序,马上就回复我一个: program DirectoryTraversal;
{$mode objfpc}{$H+}
uses SysUtils;
procedure TraverseDirectory(const APath: string); var SearchRec: TSearchRec; FilePath: string; begin if FindFirst(APath + DirectorySeparator + '*', faAnyFile, SearchRec) = 0 then begin try repeat if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin FilePath := APath + DirectorySeparator + SearchRec.Name; WriteLn(FilePath); // 这里可以对每个文件进行处理,例如输出文件路径 if (SearchRec.Attr and faDirectory) = faDirectory then TraverseDirectory(FilePath); // 如果是目录,递归遍历子目录 end; until FindNext(SearchRec) <> 0; finally FindClose(SearchRec); end; end; end;
begin TraverseDirectory('/home/fausten/importsgf'); // 替换为你要遍历的目录路径 end.