とある人の要望を勘違いして作ってしまったのですが, 捨ててしまうのもあれなので載せておきます. コード #!/usr/bin/env perl use strict; use warnings; my $query = shift; my @queries = split /\s/, $query; while (my $line = <STDIN>) { my $match = 0; for </stdin>…