You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
311 B
14 lines
311 B
@foo = `inftest obj\\ia64\\layout.inf /B /m`;
|
|
@tests = ("dic", "grm");
|
|
print @tests;
|
|
foreach $line ( @foo ) {
|
|
foreach $test ( @tests ) {
|
|
print "Testing: $test on $line\n";
|
|
if ($line =~ eval ("/\$test/ig") ) {
|
|
} else {
|
|
print eval ("/\$test/ig");
|
|
print $line;
|
|
}
|
|
}
|
|
}
|
|
|