Tcl初体验

初学Tcl，总得找点东西试试的，python的荒废给个人留下了心理上的阴影。

默哀一下。。。。

 

想起之前做本地检索的时候写过的文件收集统计，当初只是为了测试功能的方便写的，之后又删除了。

所以再次用c++把这功能实现了一遍。

在经历了多次编译失败和五次调试后（一次调试当前目录和父目录，三次调试字符串的处理，一次调试windows api的参数），总算生出下面这些东西来。。。

 

// head file #ifndef _NT_FS_SOURCE_H #define _NT_FS_SOURCE_H #include <string> #include <vector> using std::string; using std::vector; class NtFsSource { public: NtFsSource(); bool Init(const char * root_uri_); size_t CollectAll(); bool GetFirstFile(string & uri_); bool GetNextFile(string & uri_); void Display() const; private: NtFsSource(const NtFsSource &); NtFsSource& operator=(const NtFsSource &); private: struct UriData { bool m_is_encrypted; bool m_is_compressed; bool m_is_hidden; string m_uri; }; string m_root; size_t m_cursor; vector<UriData> m_uri_vec; }; #endif 

// impl file #include <string> #include <deque> #include <windows.h> #include "nt_fs_source.h" #include "utils.h" using std::string; using std::deque; NtFsSource::NtFsSource() :m_root(""),m_cursor(0) {} bool NtFsSource::Init(const char * root_uri_) { if(root_uri_) { m_root = root_uri_; m_cursor = 0; m_uri_vec.clear(); m_root = trim_str(m_root, "///*?/"<>|", false); if(!m_root.empty()) return true; } return false; } size_t NtFsSource::CollectAll() { m_uri_vec.clear(); deque<string> dir_deq; for(dir_deq.push_back(m_root); !dir_deq.empty(); dir_deq.pop_front()) { string uri_str = dir_deq.front(); WIN32_FIND_DATA find_data = {0}; HANDLE res_handle = FindFirstFile((uri_str + "//*").c_str() , &find_data); if(INVALID_HANDLE_VALUE != res_handle) { do { if(find_data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) { // is a directory if(strcmp(find_data.cFileName, ".") != 0 && strcmp(find_data.cFileName, "..") != 0) { dir_deq.push_back(uri_str + '//' + find_data.cFileName); } } else { if(find_data.dwFileAttributes & (FILE_ATTRIBUTE_TEMPORARY | FILE_ATTRIBUTE_SYSTEM)) { // did not deal with these files } else { UriData temp_data = {0}; temp_data.m_is_encrypted = (find_data.dwFileAttributes & FILE_ATTRIBUTE_ENCRYPTED) > 0; temp_data.m_is_compressed = (find_data.dwFileAttributes & FILE_ATTRIBUTE_COMPRESSED) > 0; temp_data.m_is_hidden = (find_data.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN) > 0; temp_data.m_uri = uri_str + '//' + find_data.cFileName; m_uri_vec.push_back(temp_data); } } }while(FindNextFile(res_handle, &find_data) != FALSE); } FindClose(res_handle); } return m_uri_vec.size(); } bool NtFsSource::GetFirstFile(string & uri_) { if(!m_uri_vec.empty()) { m_cursor = 0; uri_ = m_uri_vec[m_cursor].m_uri; ++m_cursor; return true; } return false; } bool NtFsSource::GetNextFile(string & uri_) { if(m_cursor < m_uri_vec.size()) { uri_ = m_uri_vec[m_cursor].m_uri; ++m_cursor; return true; } return false; } #include <iostream> using std::cout; using std::endl; void NtFsSource::Display() const { typedef vector<NtFsSource::UriData>::const_iterator iter; for(iter beg = m_uri_vec.begin(), end = m_uri_vec.end(); beg != end; ++beg) { cout<<(*beg).m_uri<<'/n'; } cout<<"total file : "<<m_uri_vec.size()<<endl; cout<<endl; } 

 

一如既往，总得有几行演示代码来试试功能的，如下：

#include <iostream> #include "nt_fs_source.h" using std::cout; using std::endl; int main(int argc, char * argv[]) { NtFsSource temp; temp.Init("D://jerry_sandbox//test1//"); if(temp.CollectAll() > 0) { temp.Display(); } else { cout<<"no file ~~~"<<endl; } return 0; } 

 

洋洋洒洒差不多150行代码，虽然不是设计得很好的NtFsSource类，但终究还是可以工作的。

接下来才是蛋痛的时刻。。。。。

 

再用Tcl把这功能实现一遍。。。。。

 

proc PrintList {list_arg} { foreach value $list_arg { puts $value; } puts [llength $list_arg]; } proc CollectAllFiles {path_name} { set file_list {}; foreach temp_file [concat [glob -nocomplain ${path_name}/*] [glob -nocomplain -type hidden ${path_name}/*]] { if {[file isdirectory $temp_file] == 0} { set file_list [concat $file_list $temp_file]; } else { set file_list [concat $file_list [CollectAllFiles $temp_file]]; } } return $file_list; } PrintList [CollectAllFiles d:/test1] 

 

csdn这编辑器不支持Tcl的高亮，没法，用C++将就代替一下了。

写这代码的时候，努力查找了file，发现竟然没有获取文件夹下所有文件的功能，最后不得已的借助glob。

而为了把隐藏文件也收集过来，不得已又用了两次的glob，这代码写得自己都觉得别扭。

期间，历经了两次log的过程（当初误以为concat会自动把连接的结果放到第一个参数中，结果非常的悲剧的分析了大半天的log）。

总之，还是要比C++代码要简洁得多，虽然说这是必然的（不然那些脚本语言就不用混了）。不过比较爽的一点是，不用调试字符串的处理。（上面的C++代码还依赖与之前写的str_trim工具函数）