Commit | Line | Data |
378cc40b |
1 | #!/usr/bin/perl |
2 | |
79072805 |
3 | # $RCSfile: findtar,v $$Revision: 4.1 $$Date: 92/08/07 17:20:13 $ |
378cc40b |
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 | |
a687059c |
11 | open(tar,"| /bin/tar cIf - -") || die "Can't run tar for you: $!"; |
378cc40b |
12 | |
13 | while (<find>) { |
14 | @x = split(' '); |
15 | if ($x[2] =~ /^d/) { print tar '-d ';} |
16 | print tar $x[10],"\n"; |
17 | } |