回答編集履歴

1

ロジック書き直し

2015/06/01 10:55

投稿

frogman
frogman

スコア129

test CHANGED
@@ -1,3 +1,53 @@
1
- 追加し、%hash データ構造をみるから下をコピペして、実行してみると、
1
+ 上記のPerlを書いです
2
2
 
3
+ アルゴリズムがちょっとわかりづらくて混乱させてしまいました。
4
+
5
+
6
+
7
+ 他の方がシェルでかかれたやり方のほうが、わかりやすいかもしれませんので、
8
+
9
+ そのPerl版を書きました。(一部systemで横着してます。。)
10
+
11
+
12
+
13
+ ```lang-<Perl>
14
+
15
+ #!/usr/bin/perl
16
+
17
+ use strict;
18
+
19
+ use warnings;
20
+
21
+ use File::Basename;
22
+
23
+
24
+
25
+ my $dir1="dir1";
26
+
27
+ my $dir2="dir2";
28
+
29
+ my $dir3="dir3";
30
+
31
+
32
+
33
+ for( glob("$dir1/*") )
34
+
35
+ {
36
+
37
+ my $name=basename($_);
38
+
39
+ if( -f "$dir2/$name" ) {
40
+
41
+
42
+
43
+ my $com = "cat $dir1/$name $dir2/$name > $dir3/$name";
44
+
45
+ print $com,"\n";
46
+
3
- なんとなくわかるかもしれません。
47
+ system( $com );
48
+
49
+ }
50
+
51
+ }
52
+
53
+ ```