如何使用perl打开目录并读取目录中的文件

我试图解压文件并计算文件中的匹配字符，然后我需要根据文件名连接文件。我成功地完成了前两个步骤，但我面临着实现第三个目标的问题。这是我正在使用的脚本

#! use/bin/perl

use strict;
use warnings;

print"Enter file name for Unzip\n";
print"File name: ";
chomp(my $Filename=<>); 
system("gunzip -r ./$Filename\*\n");
print"Enter match characters";
chomp(my $match=<>);
system("grep -c '$match' ./$Filename/* > $Filename/output");

open $fh,"/home/final_stage/test_(copy)";
if(my $file="sra_*_*_*_R1")

{
print $file;
}

system("mkdir  $Filename/R1\n");
system("mkdir  $Filename/R2\n"); 

#！使用/bin/perl
严格使用；
使用警告；
打印“输入要解压缩的文件名\n”；
打印“文件名：”；
chomp（我的$Filename=）；
系统（“gunzip-r./$Filename\*\n”）；
打印“输入匹配字符”；
chomp（我的$match=）；
系统（“grep-c'$match'/$Filename/*>$Filename/output”）；
打开$fh，“/home/final_stage/test_（副本）”；
如果（my$file=“sra_*.\u*.\ u*.\ uR1”）
{
打印$file；
}
系统（“mkdir$Filename/R1\n”）；
系统（“mkdir$Filename/R2\n”）；

基于“sra___;R1”文件名匹配，我必须将R1文件夹和“sra___;R2”文件名R2文件夹连接并输出。 帮我完成这项工作，欢迎所有建议

#!/usr/bin/perl
use strict;
use warnings;
use Path::Class;
use autodie; # die if problem reading or writing a file
my $dir = dir("/tmp"); # /tmp
my $file = $dir->file("file.txt");# Read in the entire contents of a file
my $content = $file->slurp();# 
openr() returns an IO::File object to read from
my $file_handle = $file->openr(); # Read in line at a timewhile
( my $line = $file_handle->getline() ) 
{        
   print $line;
}

---

享受你的一天

同时使用

警告<代码>shebang

行也错误。您的代码有编译错误。之后？？如何只打印匹配的文件名？然后检查代码并更正。首先，修复代码并更新帖子。