sample/ztouch

   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 }