如何在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 例如，用户想要目录 / 中的所有 sameName.txt 文件1/sameName.txt，但有不同的父级，即一个 b 和 c 文件夹。我想让它自动读取位于不同文件夹中的那些文件sameName.txt，这样用户就不需要在每次创建像d/1/sameName.txt这样的新路径时调整脚本。

1234563因为我需要匹配我已经完成脚本的文件之间的数据。

Answer 1

1. 您可以在任何您喜欢的地方open 一个文件。

文件名参数是一个路径，您可以将其与文件句柄关联以访问其数据：

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

1. 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 );

1. 不太确定您要做什么。

您可能对Learning Perl 或learn.perl.org 上的其他资源感兴趣。