質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

Q&A

解決済

2回答

2839閲覧

Perl 似たファイル名の最新版を複数取得したい

rokixenon

総合スコア12

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

0グッド

2クリップ

投稿2015/05/27 02:55

ディレクトリ内には以下のファイルがあります。
AAA_C.3.txt
AAA_C.2.txt
AAA_C.1.txt
AAA_B.3.txt
AAA_B.2.txt
AAA_B.1.txt
AAA_A.3.txt
AAA_A.2.txt
AAA_A.1.txt
上記のAAA_C.3.txt,AAA_B.3.txtAAA_A.3.txtを取得したいのですが
下記の方法だとAAA_C.3.txtしか取得出来ません。
何かヒントを頂けないでしょうか。

lang

1#! /usr/mesh/bin/perl 2 3use strict; 4 5my @list = qw( 6 AAA*.txt 7); 8 9foreach my $file (@list){ 10 my ($test_path) 11 = sort { $b cmp $a } glob("~/Pro/bin/${file}"); 12print "$test_path\n"; 13}

お忙しい所、申し訳ありませんが宜しくお願いします

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ヒントということですので。

ご質問のプログラムでは、@listの要素1つにつき、「要素のパターンにマッチするファイルの(自然比較で)一番大きいものを出力」する処理になっています。

投稿2015/05/27 04:35

argius

総合スコア9388

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

ベストアンサー

#!/usr/bin/perl
use strict;
use warnings;

my $file="AAA*.txt";

for ( (sort { $b cmp $a } glob("~/Pro/bin/${file}"))[0..2] ) {
print "$_\n";
}

結果
Pro/bin/AAA_C.3.txt
Pro/bin/AAA_C.2.txt
Pro/bin/AAA_C.1.txt

さらに、希望の結果を得る場合は、Sortの比較の仕方など工夫が必要です。

投稿2015/05/29 13:54

編集2015/05/29 14:15
frogman

総合スコア129

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

rokixenon

2015/06/18 07:59

返信が遅くなりすみませんでした。 参考にさせて頂きました。 ありがとうございます!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問