| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | # $RCSfile: findtar,v $$Revision: 4.1 $$Date: 92/08/07 17:20:13 $ |
| 4 | |
| 5 | # findtar takes find-style arguments and spits out a tarfile on stdout. |
| 6 | # It won't work unless your find supports -ls and your tar the I flag. |
| 7 | |
| 8 | $args = join(' ',@ARGV); |
| 9 | open(find,"/usr/bin/find $args -ls |") || die "Can't run find for you."; |
| 10 | |
| 11 | open(tar,"| /bin/tar cIf - -") || die "Can't run tar for you: $!"; |
| 12 | |
| 13 | while (<find>) { |
| 14 | @x = split(' '); |
| 15 | if ($x[2] =~ /^d/) { print tar '-d ';} |
| 16 | print tar $x[10],"\n"; |
| 17 | } |