Irregular Expressions

Apr 30 2010   8:36PM GMT

Automating system tasks with Perl – Part 1

Dan O'Connor Dan O'Connor Profile: Dan O'Connor

Bash and sh scripts are great for automating system tasks on the local host.

For remote hosts I preferred to use Perl, you can use Perl to login via ssh or telnet ( great for routers ) and you can also do simple tasks on web sites.

For connecting to remote systems I use Net::SSH:Expect.

Here is a simple connection, from the documentation.

        my $ssh = Net::SSH::Expect->new (
            host => "",
            password=> 'pass87word',
            user => 'bnegrao',
            raw_pty => 1

        my $login_output = $ssh->login();
        if ($login_output !~ /Welcome/) {
            die "Login has failed. Login output was $login_output";

This will create a connection object called $ssh then verify that you get a welcome prompt.

Doing interactive operations can be completed with the ‘send’ and ‘waitfor’ subs, again another example.

        $ssh->waitfor('password:\s*\z', 1) or die "prompt 'password' not found after 1 second";
        $ssh->waitfor(':\s*\z', 1) or die "prompt 'New password:' not found";
        $ssh->waitfor(':\s*\z', 1) or die "prompt 'Confirm new password:' not found";

Part 2 will get more complicated.

 Comment on this Post

There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when other members comment.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

Share this item with your network: