Help for this page

Select Code to Download


  1. or download this
    perl -e '@hosts = ( map { $_ . q[.example.com] } qw/ foo bar www / ); 
+system( q[scp], q[-r], @ARGV, sprintf(q[%s:remotedir], $_) ) foreach 
+@hosts;' /tmp/foo
  2. or download this
    perl -e '@hosts = ( map { $_ . q[.example.com] } qw/ foo bar www / ); 
+system( q[rsync], q[-rcC], q[-e], q[ssh], @ARGV, sprintf(q[%s:remoted
+ir], $_) ) foreach @hosts;' /tmp/foo