Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: invoke muliplt bash scripts on different machine

by blue_cowdawg (Monsignor)
on Jun 25, 2014 at 13:58 UTC ( #1091192=note: print w/replies, xml ) Need Help??


in reply to invoke muliplt bash scripts on different machine

Here's a thought:

#!/usr/bin/perl -w use strict; my $work={ "host1" => { userid=>"user1",args => [ "thing1" , "thing2, "red + thing" , "blue thing" ] } ) "host2" => { userid=>"user2",args=> [ ] } "host3" => { userid => "user3", args=>[] } #etcetera }; foreach $host(keys %$work){ my $uid=$work->{$host}->{userid}; my @args=@{$work->{$host}->{args}}; if ( fork() == 0 ) { my $cmdline=sprintf("ssh %s\@$s /tmp/start %s",$uid,$host,jo +in(" ",@args)); system($cmdline) } } wait() ; Wait here until the children exit exit(0);


Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1091192]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2020-06-05 19:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you really want to know if there is extraterrestrial life?



    Results (40 votes). Check out past polls.

    Notices?