当文本不在另一个文件中时,用grep筛选以打印

你可以这样做:

grep NSLocalized *.m | 
perl -pe 's/.NSLocalizedString((.+?)\,./$1/' | 
grep -v -f list.txt | #ONLY ADDITION
sort |
uniq

通过管道输出 perl 到 grep 哪个正在使用 -v 用于反转搜索和 -f 从文件获取搜索模式的选项

一个简单的grep开关(-v)打印相反的结果。所以命令是

grep-v-f文件名1文件名2>文件名3

你可以用 comm :

... your pipeline | comm -23 - list.txt

还有-你可以省略 uniq 和使用 sort -u 如果有的话。

可能值得从中制作一个脚本(未测试):

#!/usr/bin/perl

use strict; use warnings;

my %existing;

while ( <> ) {
    chomp;
    $existing{ $_ } = 1;
}

my %nonexisting;

while ( defined( my $file = glob '*.m') ) {
    open my $h, '<', $file
        or die "Cannot open '$file': $!";
    while ( my $line = <$h> ) {
        if ( my ($string) = $line =~ /NSLocalizedString\((.+?),/ ) {
            $existing{ $string } or $nonexisting{ $string } = 1;
        }
    }
}

print join("\n", sort keys %nonexisting), "\n";

调用它时使用:

$ find_missing list.txt