measure_scripts/my-oldconfig.pl

   1 #!/usr/bin/perl -w
   2
   3 use Expect;
   4 my $exp = Expect->spawn("make oldconfig")
   5     or die "Cannot spawn make oldconfig: $!\n";
   6
   7 my $timeout = 10;
   8 $exp->expect($timeout,
   9              [ '^ *choice\[.*\]: '           => sub { $exp->send("\n");  exp_continue; } ],
  10              [ '^([^ ]| *[^>0-9]).*\(NEW\) ' => sub { $exp->send("n\n"); exp_continue; } ],
  11              [ "configuration written to .config" ],
  12     ) || die "Timeout"