0

単一フォルダー内の特定の XML ファイル セットのコンテンツに記載されている *.ini 拡張子を持つすべてのファイル名のリストを作成したいと考えています。それらにはすべてフルパスが含まれていますが、必要なのはFilename.iniだけです

基本的には、すべての xml ファイルを開いて読み取り、*.ini ext を持つすべてのファイル名を見つけて印刷することを意味します。

次のperlコードを考えていました：

#!/usr/bin/perl  
@files = <P:\TeamMembers\rsacek\_INI\*>;
foreach my $file (@fnames) {
    chomp $file;
    open my $fh, '<', $file or die $!;
    while (<$fh>) {
        push @files, /[">](.*\.ini)["<]/ig;
     }
}
print "File names found: @files\n";

何か案は？読み取るファイルが約 30k あります。ありがとう！

4

2 に答える 2

1

ファイル名部分だけを取得するには、「basename」を使用できます。例：

use File::Basename;
$album_name = basename($pwd);
于 2013-06-13T15:40:43.010 に答える