ב הוא חיבור של הרב יהושע בועז שתוכנו מראי מקומות למקורותشسdggרות הל555ה התafhgfh

#!/usr/bin/perl # SPDX-License-Identifier: GPL-2.0 @regexps = @ARGV; $quiet = 1; $quiet = 0 if (defined $ENV{TESTLOG_VERBOSITY} && $ENV{TESTLOG_VERBOSITY} ge 2); %found = (); $passed = 1; while (<STDIN>) { s/\n//; for $r (@regexps) { if (/$r/) { $found{$r} = 1; # FIXME: maybe add counters -- how many times was the regexp matched } } } for $r (@regexps) { unless (exists $found{$r}) { print "Regexp not found: \"$r\"\n" unless $quiet; $passed = 0; } } exit ($passed == 0);