Re^2: Need help on expect

in reply to Re: Need help on expect
in thread Need help on expect

Thanks for your replies, I somehow not able to search the below

Can not install pack when NetBackup daemons are running.

"<TAB space>" Do you want to kill all NetBackup daemons? y,n (y)

using the below

[ qr/Do you want to kill all NetBackup daemons\? \[y,n\] \(y\)\s+/ => 
+sub {
                $exp->send("\r");
                        exp_continue;
        }
        ],
[download]

Please let me know if I am searching it wrong.

Comment on Re^2: Need help on expect Download Code

Replies are listed 'Best First'.
Re^3: Need help on expect by Anonymous Monk on Feb 23, 2015 at 15:44 UTC
Without knowing the output of the program you're working with, this is just a guess, but perhaps your regex doesn't need to be so specific, and something like `qr/Do you want to kill all NetBackup daemons\?/` might be enough?	[reply] [d/l]
Re^4: Need help on expect by toaravind (Initiate) on Feb 25, 2015 at 08:43 UTC
Thanks all, it has been fixed and my perl script is working as expected.	[reply]

In Section Seekers of Perl Wisdom