* also write out the testservers file
This commit is contained in:
parent
7a87e94113
commit
cb734891e1
|
@ -3,13 +3,16 @@
|
|||
use strict;
|
||||
|
||||
open OUT, ">do_all.sh";
|
||||
open OUT2, ">testservers";
|
||||
|
||||
foreach my $line (split "\n", `cat /tmp/junk`) {
|
||||
my @parts = split " ", $line;
|
||||
print OUT "./ssh.pl $parts[13] root $parts[7] \$1\n";
|
||||
print OUT2 "$parts[13]\n";
|
||||
}
|
||||
|
||||
close OUT;
|
||||
close OUT2;
|
||||
|
||||
# system "chmod +x do_all.sh";
|
||||
system "cat do_all.sh";
|
||||
|
|
Loading…
Reference in New Issue