ディレクトリ内には以下のファイルがあります。
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}
お忙しい所、申し訳ありませんが宜しくお願いします
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。