回答編集履歴
3
修正
test
CHANGED
|
@@ -17,6 +17,12 @@
|
|
|
17
17
|
のdir, dir2 部分を2つの任意のディレクトリ名で修正してください。
|
|
18
18
|
|
|
19
19
|
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
```lang-＜Perl＞
|
|
20
26
|
|
|
21
27
|
#!/usr/bin/perl
|
|
22
28
|
|
|
@@ -50,32 +56,4 @@
|
|
|
50
56
|
|
|
51
57
|
}
|
|
52
58
|
|
|
53
|
-
|
|
54
|
-
|
|
55
|
-
--------------------- %hash のデータ構造をみる。 ---------------------------------------
|
|
56
|
-
|
|
57
|
-
#!/usr/bin/perl
|
|
58
|
-
|
|
59
|
-
|
|
59
|
+
```
|
|
60
|
-
|
|
61
|
-
use warnings;
|
|
62
|
-
|
|
63
|
-
use File::Basename;
|
|
64
|
-
|
|
65
|
-
use Data::Dumper;
|
|
66
|
-
|
|
67
|
-
|
|
68
|
-
|
|
69
|
-
my %hash=();
|
|
70
|
-
|
|
71
|
-
|
|
72
|
-
|
|
73
|
-
my @array = ( glob("dir/*"), glob("dir2/*") );
|
|
74
|
-
|
|
75
|
-
|
|
76
|
-
|
|
77
|
-
$hash{ basename($_) }++ for( @array );
|
|
78
|
-
|
|
79
|
-
|
|
80
|
-
|
|
81
|
-
print Dumper( %hash );
|
2
ソースの追加
test
CHANGED
|
@@ -49,3 +49,33 @@
|
|
|
49
49
|
print $key,"\n" if( $val == 2 );
|
|
50
50
|
|
|
51
51
|
}
|
|
52
|
+
|
|
53
|
+
|
|
54
|
+
|
|
55
|
+
--------------------- %hash のデータ構造をみる。 ---------------------------------------
|
|
56
|
+
|
|
57
|
+
#!/usr/bin/perl
|
|
58
|
+
|
|
59
|
+
use strict;
|
|
60
|
+
|
|
61
|
+
use warnings;
|
|
62
|
+
|
|
63
|
+
use File::Basename;
|
|
64
|
+
|
|
65
|
+
use Data::Dumper;
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
my %hash=();
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
my @array = ( glob("dir/*"), glob("dir2/*") );
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
$hash{ basename($_) }++ for( @array );
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
print Dumper( %hash );
|
1
説明の修正
test
CHANGED
|
@@ -7,6 +7,16 @@
|
|
|
7
7
|
|
|
8
8
|
|
|
9
9
|
他にもやり方があるかと思いますが、とりあえずPerlで
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
my @array = ( glob("dir/*"), glob("dir2/*") );
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
のdir, dir2 部分を2つの任意のディレクトリ名で修正してください。
|
|
18
|
+
|
|
19
|
+
|
|
10
20
|
|
|
11
21
|
#!/usr/bin/perl
|
|
12
22
|
|