2010-09-02から1日間の記事一覧
カレントディレクトリ以下からC++のソース、ヘッダを見つけて列挙 use strict; sub FindFile { my ($dir, $pred, $operator) = @_; my @list = (); opendir(DIR, $dir) or die("Can not open directory : $dir ($!)"); @list = readdir(DIR); closedir(DIR);…
カレントディレクトリ以下からC++のソース、ヘッダを見つけて列挙 use strict; sub FindFile { my ($dir, $pred, $operator) = @_; my @list = (); opendir(DIR, $dir) or die("Can not open directory : $dir ($!)"); @list = readdir(DIR); closedir(DIR);…