melで、指定パス以下のフォルダ・ファイル階層を取得する。

子供が熱でた～　…　ということで、家で作業しております。

Toolを作っている際、データ集合をフォルダ階層に分けて管理・Tool上にそのツリーを表示したい…などというケースは少なくないと思います。

簡単ですが、再帰処理による、「指定パス以下のフォルダ・ファイル階層を取得するmel」を作成しました。
メモ代わりに貼り付けます。

	proc string[] GetFileListByPath(string $path){
	string $fileList[] = `getFileList -fld $path`;
	string $returnList[];
	for($data in $fileList){
	$data = $path+$data;
	if(`filetest -f $data`) $returnList[size($returnList)]=$data;
	if(`filetest -d $data`) $returnList = stringArrayCatenate($returnList,`GetFileListByPath($data+"/")`);
	}
	print $returnList;
	return $returnList;
	}

view raw GetFileListByPath hosted with ❤ by GitHub

treeListerかなんかでフォルダを列挙したいときなんか便利かも。