Shell Programming and Scripting

echo “ enter the host names separated by space “
 
read servers
foreach @servers 
{ do
do something 
done}

$ echo server1 server2 server3 | perl -nle 'foreach (split / /) { print }'
server1
server2
server3

#!/usr/bin/perl 

print "Enter inputs separated by comma\n";

# I am not doing error checking here....
my $input = <STDIN>;
chomp $input;
my @hosts = split(/\,/, $input);

foreach(@hosts) {
   print "$_.....\n";
   # do whatever you want
}

#!/usr/bin/sh
# sreedhar

echo " welcome Please wait all hosts are listing\n"
echo "-----------------------------------------\n"
echo "`/alcatel/Kernel/etc/HostDeclarer.pl -list`"
echo " ----------------------------------------\n"
echo " please enter the User Name to be changed:"
read User
echo " please enter the Password:"
read Password
echo " please Enter the Host Names sapareted by space ex:host1 host2 host3\n"
read servers
echo $servers | perl -nle 'foreach (split / /) { print }' > server_list
echo '#!/usr/local/bin/expect' > sree_expt
echo "spawn passwd $User" >> sree_expt
echo 'expect "New password:"' >> sree_expt
echo send "$Password\r" >> sree_expt
echo 'expect "Re-enter new password:"' >> sree_expt
echo  send "$Password\r" >> sree_expt
echo "expect eof" >> sree_expt

#!/usr/local/bin/expect
spawn passwd sree
expect "New password:"
send sree1^M
expect "Re-enter new password:"
send sree1^M
expect eof