小程式…

因為抓了不少midi檔, 乾脆就寫個小程式來建立檔案列表, 可以餵給timidity按順序播放
用的語言有perl跟ruby, 其實用find加echo應該就可以寫出來了, 跟本不用動用到script
就當做是練習吧 😛

Perl :

#!/usr/bin/perl
# filename : mklist.pl
#62a35c;">open(#0086b3;">LIST, ">list.tpl");
#62a35c;">opendir(#0086b3;">DIR, "/home/kanru/download/midi");
@dir#a71d5d;">=#62a35c;">readdir(#0086b3;">DIR);
$i #a71d5d;">= #0086b3;">0;
$addr #a71d5d;">= `pwd`;
#62a35c;">chomp $addr;
#a71d5d;">foreach(@dir) {
        #62a35c;">print #0086b3;">LIST #62a35c;">m/#a71d5d;">.*#0086b3;">\.mid/ #a71d5d;">? "$addr/$_#0086b3;">\n" #a71d5d;">: "";
        $i#a71d5d;">++;
}
#62a35c;">print "列表完成,總共有 $i 個檔案#0086b3;">\n";
#62a35c;">close(#0086b3;">LIST);
#62a35c;">closedir(#0086b3;">DIR);

Ruby :

#!/usr/bin/ruby -w
# filename : mklist.rb
pwd #a71d5d;">= #0086b3;">Dir.pwd
dir #a71d5d;">= #0086b3;">Dir.#62a35c;">open('.')
filelist #a71d5d;">= #62a35c;">open('filelist.tpl','w+')
count #a71d5d;">= #0086b3;">0
dir.each #a71d5d;">do |filename|
        filelist.#62a35c;">puts "#{pwd}/#{filename}" #a71d5d;">if filename.#62a35c;">include?('.mid')
        count #a71d5d;">+= #0086b3;">1
#a71d5d;">end
dir.close
filelist.close
#62a35c;">puts "列表完成, 共有#{count}個檔案"

兩個程式產生的列表是一樣的


已發佈

分類:

,

作者:

標籤: