回答編集履歴
3
プログラム修正
answer
CHANGED
|
@@ -1,11 +1,16 @@
|
|
|
1
|
-
以下のようにして初めて、SORTが有効になります。
|
|
2
1
|
#!/usr/bin/perl
|
|
3
2
|
use strict;
|
|
3
|
+
use warnings;
|
|
4
4
|
|
|
5
5
|
my $file="AAA*.txt";
|
|
6
6
|
|
|
7
|
-
for( sort { $b cmp $a } glob("~/Pro/bin/${file}") ) {
|
|
7
|
+
for ( (sort { $b cmp $a } glob("~/Pro/bin/${file}"))[0..2] ) {
|
|
8
8
|
print "$_\n";
|
|
9
9
|
}
|
|
10
10
|
|
|
11
|
+
結果
|
|
12
|
+
Pro/bin/AAA_C.3.txt
|
|
13
|
+
Pro/bin/AAA_C.2.txt
|
|
14
|
+
Pro/bin/AAA_C.1.txt
|
|
15
|
+
|
|
11
|
-
さらに、希望の結果を得る場合は、Sortの比較の仕方
|
|
16
|
+
さらに、希望の結果を得る場合は、Sortの比較の仕方など工夫が必要です。
|
2
書式の改善
answer
CHANGED
|
@@ -1,9 +1,11 @@
|
|
|
1
|
+
以下のようにして初めて、SORTが有効になります。
|
|
1
2
|
#!/usr/bin/perl
|
|
2
3
|
use strict;
|
|
3
|
-
use warnings;
|
|
4
4
|
|
|
5
5
|
my $file="AAA*.txt";
|
|
6
6
|
|
|
7
7
|
for( sort { $b cmp $a } glob("~/Pro/bin/${file}") ) {
|
|
8
8
|
print "$_\n";
|
|
9
|
-
}
|
|
9
|
+
}
|
|
10
|
+
|
|
11
|
+
さらに、希望の結果を得る場合は、Sortの比較の仕方、Sortした結果の上位３つだけ取り出す処理の追加など工夫が必要です。
|
1
書式の改善
answer
CHANGED
|
@@ -4,6 +4,6 @@
|
|
|
4
4
|
|
|
5
5
|
my $file="AAA*.txt";
|
|
6
6
|
|
|
7
|
-
for( sort { $b cmp $a } glob("Pro/bin/${file}") ) {
|
|
7
|
+
for( sort { $b cmp $a } glob("~/Pro/bin/${file}") ) {
|
|
8
8
|
print "$_\n";
|
|
9
9
|
}
|