1*4882a593Smuzhiyun#!/usr/bin/env perl 2*4882a593Smuzhiyun# SPDX-License-Identifier: GPL-2.0 3*4882a593Smuzhiyun 4*4882a593Smuzhiyunopen (IN,"ktest.pl"); 5*4882a593Smuzhiyunwhile (<IN>) { 6*4882a593Smuzhiyun # hashes are now used 7*4882a593Smuzhiyun if (/\$opt\{"?([A-Z].*?)(\[.*\])?"?\}/ || 8*4882a593Smuzhiyun /^\s*"?([A-Z].*?)"?\s*=>\s*/ || 9*4882a593Smuzhiyun /set_test_option\("(.*?)"/) { 10*4882a593Smuzhiyun $opt{$1} = 1; 11*4882a593Smuzhiyun } 12*4882a593Smuzhiyun} 13*4882a593Smuzhiyunclose IN; 14*4882a593Smuzhiyun 15*4882a593Smuzhiyunopen (IN, "sample.conf"); 16*4882a593Smuzhiyunwhile (<IN>) { 17*4882a593Smuzhiyun if (/^\s*#?\s*([A-Z]\S*)\s*=/) { 18*4882a593Smuzhiyun $samp{$1} = 1; 19*4882a593Smuzhiyun } 20*4882a593Smuzhiyun} 21*4882a593Smuzhiyunclose IN; 22*4882a593Smuzhiyun 23*4882a593Smuzhiyunforeach $opt (keys %opt) { 24*4882a593Smuzhiyun if (!defined($samp{$opt})) { 25*4882a593Smuzhiyun print "opt = $opt\n"; 26*4882a593Smuzhiyun } 27*4882a593Smuzhiyun} 28*4882a593Smuzhiyun 29*4882a593Smuzhiyunforeach $samp (keys %samp) { 30*4882a593Smuzhiyun if (!defined($opt{$samp})) { 31*4882a593Smuzhiyun print "samp = $samp\n"; 32*4882a593Smuzhiyun } 33*4882a593Smuzhiyun} 34