home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / gnu / gzip-1.2.4.tar.gz / gzip-1.2.4.tar / gzip-1.2.4 / sample / ztouch < prev   
Text File  |  1993-05-27  |  384b  |  16 lines
  1. #! /usr/local/bin/perl
  2. # Set the time stamp of a gzip'ed file from that stored in the file.
  3. # usage: ztouch files...
  4.  
  5. foreach $file (@ARGV) {
  6.     open (FILE, $file);
  7.     read (FILE, $_, 8);
  8.     ($magic, $method, $flags, $time) = unpack ("A2C2V", $_);
  9.     if ($magic eq "\037\213") {
  10.     utime ($time, $time, $file);
  11.     }
  12.     else {
  13.     warn "$file is not compressed with gzip!\n";
  14.     }
  15. }
  16.