perl - Perlでファイルへの正確なフルパスを取得する方法

Question

ファイル名しかなく、myfile.txtどこに保存されているかわかりません。ファイルが保存されている正確なフルパスを取得するにはどうすればよいですか?

私が試してみました

$string=`ls /abc/def/*/*/*/*/myfile.txt`;

結果: フルパスは/abc/def/ghi/jkl/mno/pqr/myfile.txt

shell command上記の Perl スクリプトを使用して実行することで、完全なパスを取得できました。しかし、これはパスを戻すのに非常に時間がかかりました。それは、Perl を使用してファイルのフルパスを見つける方法ですか?

score 29 · Accepted Answer

が実際にそのファイルへの相対パスである場合myfile.txt、そのためのコアモジュールサブがあります - File::Spec->rel2abs() :

  use File::Spec;
  ...
  my $rel_path = 'myfile.txt';
  my $abs_path = File::Spec->rel2abs( $rel_path ) ;

...そして、実際にそのファイルのディレクトリを検索する必要がある場合は、File::Find...がありますが、find / -name myfile.txt -printおそらくシェルコマンドを使用します。

score 23 · Accepted Answer

これを行うには、Perl モジュールCwdを使用する必要があります。リンクには、以下にも見られる例があります。

#!/usr/bin/perl 
use Cwd;
my $dir = getcwd;
use Cwd 'abs_path';
my $abs_path = abs_path($file);

score 3 · Accepted Answer

システムのどこからでも見ることができますが、この場合は「/abc/def」フォルダーから見ています。

$start_path = "/abc/def/";
@files = <$start_path*/myfile.txt>

foreach $file(@files) {
    print $file; # Prints the full path of the file.
}

4 に答える 4