回答編集履歴
3
修正
answer
CHANGED
|
@@ -8,6 +8,9 @@
|
|
|
8
8
|
|
|
9
9
|
のdir, dir2 部分を2つの任意のディレクトリ名で修正してください。
|
|
10
10
|
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
```lang-＜Perl＞
|
|
11
14
|
#!/usr/bin/perl
|
|
12
15
|
use strict;
|
|
13
16
|
use warnings;
|
|
@@ -24,18 +27,4 @@
|
|
|
24
27
|
{
|
|
25
28
|
print $key,"\n" if( $val == 2 );
|
|
26
29
|
}
|
|
27
|
-
|
|
28
|
-
--------------------- %hash のデータ構造をみる。 ---------------------------------------
|
|
29
|
-
#!/usr/bin/perl
|
|
30
|
-
|
|
30
|
+
```
|
|
31
|
-
use warnings;
|
|
32
|
-
use File::Basename;
|
|
33
|
-
use Data::Dumper;
|
|
34
|
-
|
|
35
|
-
my %hash=();
|
|
36
|
-
|
|
37
|
-
my @array = ( glob("dir/*"), glob("dir2/*") );
|
|
38
|
-
|
|
39
|
-
$hash{ basename($_) }++ for( @array );
|
|
40
|
-
|
|
41
|
-
print Dumper( %hash );
|
2
ソースの追加
answer
CHANGED
|
@@ -23,4 +23,19 @@
|
|
|
23
23
|
while( my ($key, $val) = each %hash )
|
|
24
24
|
{
|
|
25
25
|
print $key,"\n" if( $val == 2 );
|
|
26
|
-
}
|
|
26
|
+
}
|
|
27
|
+
|
|
28
|
+
--------------------- %hash のデータ構造をみる。 ---------------------------------------
|
|
29
|
+
#!/usr/bin/perl
|
|
30
|
+
use strict;
|
|
31
|
+
use warnings;
|
|
32
|
+
use File::Basename;
|
|
33
|
+
use Data::Dumper;
|
|
34
|
+
|
|
35
|
+
my %hash=();
|
|
36
|
+
|
|
37
|
+
my @array = ( glob("dir/*"), glob("dir2/*") );
|
|
38
|
+
|
|
39
|
+
$hash{ basename($_) }++ for( @array );
|
|
40
|
+
|
|
41
|
+
print Dumper( %hash );
|
1
説明の修正
answer
CHANGED
|
@@ -3,6 +3,11 @@
|
|
|
3
3
|
です。
|
|
4
4
|
|
|
5
5
|
他にもやり方があるかと思いますが、とりあえずPerlで
|
|
6
|
+
|
|
7
|
+
my @array = ( glob("dir/*"), glob("dir2/*") );
|
|
8
|
+
|
|
9
|
+
のdir, dir2 部分を2つの任意のディレクトリ名で修正してください。
|
|
10
|
+
|
|
6
11
|
#!/usr/bin/perl
|
|
7
12
|
use strict;
|
|
8
13
|
use warnings;
|