Perl, Python, Ruby の比較

01:     #! perl
02:     
03:     use strict;
04:     use File::Copy;
05:     use File::Compare;
06:     use File::Find;
07:     use Cwd;
08:     
09:     ## global parameters
10:     my $DOC_DIR = 'D:/doc';
11:     my $MEDIA ='G:/';
12:     my $PHOTO_VIEWER = 'D:/WBIN/linar160/linar.exe';
13:     
14:     # getting the string of "year(NN)-month(NN)" 
15:     sub get_year_month{
16:     my ($m, $y) = (localtime)[4,5];
17:     sprintf ("%02d-%02d", $y-100, $m + 1);
18:     }
19:     
20:     # getting the starting number of photoNN, the directory in which photos should be saved
21:     # This function should be called when the program is in the month directory.
22:     sub get_first_photo_dir_number{
23:       my  @pdirs = (glob "photo[0-9][0-9]");
24:       @pdirs ? 1+ substr($pdirs[-1], -2) : 1;
25:     }
26:     
27:     #move into the directory "$DOC_DIR/y-m"
28:     sub move_into_dir_of_month{
29:       my $dir_of_month =  &get_year_month;
30:       unless ($DOC_DIR eq cwd){
31:         chdir $DOC_DIR or die "Cannot move to $DOC_DIR: $!";
32:       }
33:       unless (-d $dir_of_month){
34:         mkdir $dir_of_month or die "cannot create $dir_of_month: $!";
35:       }
36:       chdir $dir_of_month or die "Cannot move to $dir_of_month: $!";
37:       "$DOC_DIR/$dir_of_month" ;
38:     }
39:     
40:     #archive photos in the media into the HD
41:     # This function should be called when the program is in the month directory.
42:     sub archive_photos{
43:       my $photo_dir_number = shift;
44:       my %dhash;
45:       find({
46:         wanted      => sub{push @{$dhash{$File::Find::dir}}, $_ if -f},
47:       }, $MEDIA);
48:       for my $dir_from (sort keys %dhash){
49:         my $n = @{$dhash{$dir_from}};
50:         my $i = 0;
51:         my $dir_to = sprintf("photo%02d", $photo_dir_number++);
52:         mkdir $dir_to or die "cannot create $dir_to: $!";
53:         print "\n$dir_from ==> $dir_to\n";
54:         for my $fname (@{$dhash{$dir_from}}){
55:           my $copy_from = "$dir_from/$fname";
56:           my $copy_to   = "$dir_to/$fname";
57:           copy($copy_from, $copy_to) or die "cannot make a copy for $copy_from: $!";
58:           if(0 == compare($copy_from, $copy_to)){
59:             unlink $copy_from;
60:             print ++$i, "/$n\r";
61:           }else{
62:             die "an error occurs during coping $copy_from";
63:           }
64:         }
65:       }
66:       %dhash;
67:     }
68:     
69:     #main
70:     my $dir_of_month = &move_into_dir_of_month;
71:     my $first_photo_dir_number =  &get_first_photo_dir_number;
72:     if(&archive_photos($first_photo_dir_number)){
73:       exec (sprintf "%s %s/photo%02d", $PHOTO_VIEWER, $dir_of_month, $first_photo_dir_number);
74:     }else{
75:       print "No photos in the media!\nGive Return:";
76:       < STDIN>
77:     }

001:   #! /usr/bin/env python
002:   
003:   r"""
004:   script to achive photos in the removal media into HD
005:   by T.Shido
006:   June 26, 2007
007:   """
008:   
009:   import os, os.path, filecmp, shutil, re, sys, operator
010:   from datetime import date
011:   
012:   # global parameters
013:   HD    = '/home/pub/photos/'
014:   MEDIA = '/media/usbdisk/'
015:   
016:   REG_FILE = re.compile(r"\.(gif|bmp|jpe?g|tiff?|wav|mov)$", re.I)
017:   REG_DIR = re.compile(r'^photo[0-9][0-9]$')
018:   
019:   def n_photo_dir(d):
020:       """return the max NN of photoNN in directory of the month"""
021:       
022:       return \
023:         reduce(max, \
024:                [ int(x[-2:]) for x in os.listdir(d) \
025:                  if (os.path.isdir(os.path.join(d,x)) and REG_DIR.match(x))], \
026:                0)
027:   
028:   def search_media(d):
029:       """search Media and returns a hash
030:       whose keys are directory name and the values are lists of photo files."""
031:       def search_sub(d):
032:           os.chdir(d)
033:           ls_d = os.listdir(d)
034:           ls_f = [x for x in ls_d if os.path.isfile(x) and REG_FILE.search(x)]
035:           if ls_f:
036:               h[d] = ls_f
037:           for d1 in [os.path.join(d,x) for x in ls_d if os.path.isdir(x)]:
038:               search_sub(d1)
039:               
040:       h={}
041:       search_sub(d)
042:       return h
043:           
044:   def move_photos(d0, d1):
045:       r"""
046:       Moveing photo files from media into HD,
047:       """
048:       dir_of_month = os.path.join(d1, date.today().strftime("%y-%m"))
049:       h = search_media(d0)
050:       total_files = reduce(operator.__add__, [len(v) for v in h.itervalues()], 0)
051:   
052:       if total_files==0:
053:           print "No photos in the media: give return"
054:           sys.stdin.readline()
055:           sys.exit()
056:               
057:       if not os.path.isdir(dir_of_month):
058:           os.mkdir(dir_of_month)
059:                   
060:       i_dir = n_photo_dir(dir_of_month)
061:       count=0
062:   
063:       for d, ls_files in h.iteritems():
064:           i_dir += 1
065:           d_to = os.path.join(dir_of_month, "photo%02d" % i_dir)
066:           os.mkdir(d_to)
067:           
068:           for f in ls_files:
069:               f_from=os.path.join(d,f)
070:               f_to=os.path.join(d_to, f)
071:               shutil.copyfile(f_from, f_to)
072:               if not filecmp.cmp(f_from, f_to):
073:                   print f_from + " and " + f_to + " are not same!"
074:                   sys.exit()
075:               os.remove(f_from)
076:               count+=1
077:               print "%d/%d\n" % (count, total_files),                
078:   
079:   if __name__=='__main__':
080:       move_photos(MEDIA, HD)

スクリプト言語としての欠点を挙げると、

1. 関数とメソッドが入り混じっているのですっきりしない。
2. 多くのモジュールを import しなければならない。（80 行で 8 個もある）

001:   #! /usr/bin/env ruby
002:   
003:   require "fileutils"
004:   
005:   # global parameters
006:   HD    = '/home/pub/photos/'
007:   MEDIA = '/media/usbdisk/'
008:   
009:   REG_FILE = Regexp.compile("\\.(gif|bmp|jpe?g|tiff?|wav|mov)$",Regexp::IGNORECASE)
010:   REG_DIR = Regexp.compile('^photo[0-9][0-9]$')
011:   
012:   H=Hash.new    
013:   # HD 側に何個の photoNN フォルダーがあるかを返します。
014:   def n_photo_dir(d)
015:     Dir.entries(d).select{|x| FileTest.directory?(File.join(d,x)) and REG_DIR =~ x
016:      }.map{|x| x[5..6].to_i}.inject(0){|x,y| max(x,y)}
017:   end
018:   
019:   # メディアに保存されている写真ファイルの一覧をフォルダーごとにまとめて返します
020:   # 再帰的にファルダーのツリーを下っていき、写真ファイルの一覧をフォルダー名をキーとしてハッシュ表に登録します
021:   def search_media(d)
022:   
023:     Dir.chdir(d)
024:     ls=Dir.entries(d).reject{|x| x=='.' or x=='..' }
025:   
026:     ls_f=ls.select{|x| FileTest.file?(File.join(d, x)) and REG_FILE =~ x}
027:     
028:     H[d] = ls_f unless ls_f.empty? 
029:     ls.map{|x| File.join(d,x)}.select{|x| FileTest.directory?(x)}.each{|x| search_media(x)}
030:   end
031:   
032:   # 写真ファイルをメディアから HD にコピーします
033:   def move_photos(d0, d1)
034:       dir_of_month=File.join(d1, Time.now.strftime("%y-%m"))
035:       search_media(d0)
036:       total_files = H.values.map{|x| x.size}.inject(0){|result, item| result + item }
037:       
038:       if total_files==0
039:       then
040:           p "no photos, give return"
041:           STDIN.readline
042:           abort
043:       end
044:       
045:       FileTest.directory?(dir_of_month) or Dir.mkdir(dir_of_month)
046:       
047:       i_dir = n_photo_dir(dir_of_month)
048:       count=0
049:       
050:       H.each{|d, ls_files|
051:           i_dir += 1
052:           d_to = File.join(dir_of_month, sprintf("photo%02d", i_dir))
053:           Dir.mkdir(d_to)
054:           
055:           ls_files.each{|f|
056:   
057:               f_from=File.join(d,f)
058:               f_to=File.join(d_to, f)
059:               FileUtils.cp(f_from, f_to)
060:               
061:               if not FileUtils.cmp(f_from, f_to)
062:               then
063:                   printf("Copy failed: %s => %s\n", f_from, f_tp)
064:                   abort
065:               end
066:               File.delete(f_from)
067:               count+=1
068:               printf("%d/%d\n", count, total_files)
069:           }
070:       }
071:   end
072:   
073:   #main
074:   move_photos(MEDIA, HD)

Win32 で試したときはすごく遅かったのですが、Linux 上ではそんなに遅く感じませんでした。 Ruby は Linux と相性がいいのかもしれません。

4. というわけで Python

現在の人気を無視して、言語そのもののよしあしを考えると、 Python と Ruby はほぼ互角でしょう。しかし、今のところ Python の方が、 実行速度が速く、ライブラリが豊富なので、とりあえず Python を使うことにします。 また、Python には対話モードがあるのも Lisp に慣れた人間にとってはありがたいです。 Ruby は今後の健闘に期待します。

5. おわりに

1. Python, Ruby は Perl に比べて明らかによい。（後発なので当然か）
2. Python と Ruby はほぼ互角。

6.5. 関数の生成

HOME

Python

書き込む