如何将一个文件中的行与另一个文件中的行匹配？

Question

我知道这里出了点大问题，但我是 Perl 的新手，希望做以下事情：

在 all.css 中找到所有包含未使用的 CSS 行的行并执行一些逻辑。我的代码的结构方式似乎无法匹配：

if ($lineA =~ /$lineU/) #如果all.css中的行包含unused.css中的行

因为变量是单独定义的。

我将如何构建程序以便能够将 all.css 中的行与未使用的.css 中的行进行匹配？

我的程序如下：

#!/usr/bin/perl

use strict;
use warnings;

open(my $unused_handle,'<', "unused.css") or die $!;
open(my $all_handle,'<',"all.css") or die $!;
open(my $out, '>' ,'lean.css') or die $!;

my $lineU = q{};
my $lineA = q{};

print $out "$lineU";

while($lineU =<$unused_handle>) {

    print $out "$lineU";
    #print $out "$lineA";  Line One not printed from All
    while($lineA =<$all_handle>) {

        if ($lineA =~ m/$lineU/sxm) {

            print "Huza!\n";
        }

        else {
            print "No Match\n";
        }

    }

}

close ($unused_handle);
close ($all_handle);
close ($out);

print "Done!\n";

exit;

下面是我的输入文件示例。

unused.css 中的示例行：

audio, canvas, video
audio:not([controls])
[hidden]
h6

all.css 中的示例行：

article, aside, details, figcaption, figure, footer, header, hgroup, nav, section, summary {
    display: block;
}
audio, canvas, video {
    display: inline-block;
    *display: inline;
    *zoom: 1;
}
audio:not([controls]) {
    display: none;
    height: 0;
}
[hidden] {
    display: none;
}

Answer 1

试试：

if ($lineA =~ m/$lineU/sxm)

另外，请考虑文件中可能有不同行尾的可能性，并在执行比较之前去除行尾。

最后，我希望您通过在开始您的 while 循环之前拉一行来认识到您忽略了每个文件的第一行。

my $lineU = <$unused>;
my $lineA = <$all>;

如果你不想这样做，最好这样初始化：

my $lineU = q{};
my $lineA = q{};

Answer 2

我希望这个（未经测试的）sn-p 对你有所帮助：

#!/usr/bin/perl

use strict;
use warnings;

open(my $unused,'<', "unused.css") or die $!;
open(my $all,'<',"all.css") or die $!;

# store all lines of unused.css in a hash
my %unused_line;
while (<$unused>) {
    #remove newlines
    chomp();
    #store the line as a key with empty value
    %unused_line{$_}="";
}
close ($unused);

#...for every line in all.css
while (<$all>) {
    #have we seen it in unused.css (at least everything before ' {')
    if ((m/^(.*\S+)\{/) && (exists $unused_line{$1}))
    {
        #a match - found a line of unused.css in all.css
    }else{
        #no match  - line does not exists in unused.css
    }
}
close ($all);