19 lines
328 B
Perl
Executable File
19 lines
328 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
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[17] root $parts[11] \$1\n";
|
|
print OUT2 "$parts[17]\n";
|
|
}
|
|
|
|
close OUT;
|
|
close OUT2;
|
|
|
|
# system "chmod +x do_all.sh";
|
|
system "cat do_all.sh";
|