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