home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / unix / question / 14816 < prev    next >
Encoding:
Text File  |  1992-12-21  |  996 b   |  30 lines

  1. Newsgroups: comp.unix.questions
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!usc!news.cerf.net!netlabs!lwall
  3. From: lwall@netlabs.com (Larry Wall)
  4. Subject: Re: How to chop up an archive.tar.Z file like in the X distributions?
  5. Message-ID: <1992Dec17.235837.25016@netlabs.com>
  6. Sender: news@netlabs.com
  7. Nntp-Posting-Host: scalpel.netlabs.com
  8. Organization: NetLabs, Inc.
  9. References: <1992Dec15.142232.1@cc.utah.edu> <MERLYN.92Dec16113051@romulus.reed.edu>
  10. Date: Thu, 17 Dec 1992 23:58:37 GMT
  11. Lines: 17
  12.  
  13. In article <MERLYN.92Dec16113051@romulus.reed.edu> merlyn@ora.com (Randal L. Schwartz) writes:
  14. : In article <1992Dec15.142232.1@cc.utah.edu> eyring@cc.utah.edu writes:
  15. :    How to chop up an archive.tar.Z file like in the X distributions?
  16. : I use my "binsplit" program, like so:
  17. : #!/usr/bin/perl
  18. : $size = 65536;
  19. : $size = shift if $ARGV[0] =~ /^-\d+$/;
  20.  
  21. That would set the size to a negative number.  How 'bout:
  22.  
  23.     $size = -shift if $ARGV[0] =~ /^-\d+$/;
  24.  
  25. Larry Wall
  26. lwall@netlabs.com
  27.