Re: net telnet help


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re: net telnet help

by meetraz (Hermit)

on Dec 15, 2004 at 22:26 UTC ( [id://415208]=note: print w/replies, xml )

Need Help??

in reply to net telnet help

Close, but I think this is what you want:

#!/usr/bin/perl -w
use strict;
use Net::Telnet;

open (INPUT, 'disks') or die $!;
my @disks = <INPUT>;
close (INPUT);
 
my $conn = new Net::Telnet(Timeout => 2810,
                         Prompt  => '/%/',  
                         Host    => 'hostname' ); 

$conn->login( "username", "password" );

foreach my $disk ( @disks ) {
        chomp($disk);
        $conn->cmd( "run command here  $disk" );
}
[download]