如何从目录读取多个文件，提取特定字符串并输出到 html 文件？

Question

您好，

我有以下代码，但我不知道如何继续修改它，以便它会询问目录，读取目录中的所有文件，然后提取特定字符串并输出到 html 文件？提前致谢。

#!/usr/local/bin/perl

use warnings;
use strict;
use Cwd;


print "Enter filename: "; # Should be Enter directory
my $perlfile =STDIN;      


open INPUT_FILE, $perlfile || die "Could not open file: $!";
open OUTPUT, '>out.html' || die "Could not open file: $!";


# Evaluates the file and imports it into an array.
my @comment_array = ;
close(INPUT_FILE);
chomp @comment_array;
@comment_array = grep /^\s*#/g, @comment_array;

my $comment;

foreach $comment (@comment_array) {
        $comment =~ /####/; #Pattern match to grab only #s


# Prints comments to screen
Print results in html format

# Writes comments to output.html
Writes results to html file


}

close (OUTPUT);

Answer 1

一步一步地进行。您已经计划了很多，但到目前为止您甚至还没有更改提示字符串来请求目录。

要读取输入的目录名称，您的：

my $perlfile =STDIN;

会给出错误（在 use strict; 下）。首先查找错误（使用诊断； 自动执行此操作）并尝试找出您应该做什么。

一旦可以提示输入目录名称并将其打印出来，然后添加代码以打开该目录并读取该目录。可以使用 opendir 和 readdir 打开和读取目​​录。确保您可以读取目录并打印出文件名，然后再继续下一步。

Answer 2

学习特定函数（从命令行）的一个很好的起点

perldoc -f opendir 

但是，您的特定问题的答案如下，您还可以使用命令行程序并将它们传输到字符串中以简化文件处理（'cat'）和模式匹配（'grep'）。

#!/usr/bin/perl -w
use strict;
my $dir = "/tmp";
my $dh;
my @patterns;
my $file;

opendir($dh,$dir);
while ($file = readdir($dh)){
    if (-f "$dir/$file"){
        my $string = `cat $dir/$file | grep pattern123`;
        push @patterns, $string;
    }
}
closedir($dh);

my $html = join("<br>",@patterns);
open F, ">out.html";
print F $html;
close F;