|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
open OUT, ">do_all.sh";
|
|
|
|
foreach my $line (split "\n", `cat /tmp/junk`) {
|
|
my @parts = split " ", $line;
|
|
print OUT "./ssh.pl $parts[13] root $parts[7] \$1\n";
|
|
}
|
|
|
|
close OUT;
|
|
|
|
# system "chmod +x do_all.sh";
|
|
system "cat do_all.sh";
|