#/usr/bin/perl # $Header: findcp,v 4.0 91/03/20 01:09:37 lwall Locked $ # This is a wrapper around the find command that pretends find has a switch # of the form -cp host:destination. It presumes your find implements -ls. # It uses tar to do the actual copy. If your tar knows about the I switch # you may prefer to use findtar, since this one has to do the tar in batches. sub copy { `tar cf - $list | rsh $desthost cd $destdir '&&' tar xBpf -`; } $sourcedir = $ARGV[0]; if ($sourcedir =~ /^\//) { $ARGV[0] = '.'; unless (chdir($sourcedir)) { die "Can't find directory $sourcedir: $!"; } } $args = join(' ',@ARGV); if ($args =~ s/-cp *([^ ]+)/-ls/) { $dest = $1; if ($dest =~ /(.*):(.*)/) { $desthost = $1; $destdir = $2; } else { die "Malformed destination--should be host:directory"; } } else { die("No destination specified"); } open(find,"find $args |") || die "Can't run find for you: $!"; while () { @x = split(' '); if ($x[2] =~ /^d/) { next;} chop($filename = $x[10]); if (length($list) > 5000) { do copy(); $list = ''; } else { $list .= ' '; } $list .= $filename; } if ($list) { do copy(); }