Anonymous
public text v1 · immutable#!/usr/bin/perl
use strict;
use Expect;
my $exp = new Expect;
$exp->raw_pty(1);
$exp->spawn('/scripts/wwwacct', @ARGV);
$exp->expect(-1, [qr/This ok\?/]);
$exp->send("y\r");
$exp->soft_close();
#!/usr/bin/perl
use strict;
use Expect;
my $exp = new Expect;
$exp->raw_pty(1);
$exp->spawn('/scripts/wwwacct', @ARGV);
$exp->expect(-1, [qr/This ok\?/]);
$exp->send("y\r");
$exp->soft_close();