如何從Perl中的其他目錄打開文件？

Question

我是perl的新手，所以我想知道是否有辦法

1. 從其他目錄（例如，與perl script.pl不同的目錄）中打開文件

2. 在同一父目錄下打開多個具有相同名稱（例如sameName.txt）但具有不同子目錄（例如）的文件

    directory: - /alias/a/1/sameName.txt - /alias/b/1/sameName.txt - /alias/c/1/sameName.txt 

   例如上面的例子，但是同時，我不想在其他目錄中也有相同的文件sameName.txt，例如

    directory: - /alias/a/2/sameName.txt - /alias/b/2/sameName.txt - /alias/c/2/sameName.txt 

   如何使用用戶輸入<STDIN>自動搜索用戶想要的目錄，例如，未將其硬編碼到腳本perl.pl中，用戶想要目錄/ 1 / sameName中具有的所有sameName.txt文件.txt，但具有不同的父文件夾，即ab和c文件夾。 我想讓它自動讀取位於不同文件夾中的那些文件sameName.txt，以便用戶不必每次創建新路徑（例如d / 1 / sameName.txt）時都對腳本進行調整。

3. 如果我希望這些文件中的數據具有相同的名稱，但位於不同的目錄中，我應該將其循環，例如保存到數組中，還是應該復制所有內容並將其附加到單個文件中？ 因為我需要匹配完成腳本的文件之間的數據。

Answer 1

1. 您可以從任意位置打開文件。

filename參數是一個路徑，您可以將其與文件句柄關聯以訪問其數據：

  my $path = '/alias/a/1/sameName.txt';
  open my $fh, '<', $path or die "Could not open $path: $!";

2. Perl不在乎其他目錄中的另一個文件是否具有相同的名稱。

您使用不同的文件句柄來區分它們：

  my $path2 = '/alias/a/2/sameName.txt';
  open my $fh2, '<', $path or die "Could not open $path: $!";

您可以通過抓住第一個路徑的文件名部分並將其與其他目錄放在一起來構造第二個路徑。 這些是應該已經存在的核心Perl模塊：

  use File::Basename;
  use File::Spec::Functions;

  my $other_dir = '/alias/a/2';
  my $basename = basename( $path );   # sameName.txt
  my $path2 = catfile( $other_dir, $basename );

3. 不太確定您要做什么。

您可能對Learning Perl或learning.perl.org上的其他資源感興趣 。