ä¸ã®ã¨ã³ããªã®ã¹ã¯ãªããã®åä½ç¢ºèªã ã¨ããããæ½åºãã¹ããªããã©ããã ã確èªã #!/usr/bin/env perl use strict; use warnings; if (@ARGV != 2) { printf STDERR "usage: %s keywordlist keywordlist.extracted\n", $ARGV[0]; exit 1; } open my $rfh, $ARGV[0] or die; my $regex = join '', <$rfh>; close $rfh; open my $fh, $ARGV[1] or die; while (my $line = <$fh>) { chomp $line; if ($line !~ /^$regex$/o) { print STDERR "$line is not match\n"; close
{{#tags}}- {{label}}
{{/tags}}