home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / eg / findtar < prev    next >
Text File  |  1994-10-18  |  505b  |  18 lines
  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. }
  18.