touch.pl
Upload User: caisangzi8
Upload Date: 2013-10-25
Package Size: 15756k
Code Size: 0k
Category:

DVD

Development Platform:

C/C++

  1. #
  2. #
  3. #
  4. for ($argvcnt=0; $argvcnt<@ARGV && $ARGV[$argvcnt] =~ /^-(.*)/; $argvcnt++)
  5. {
  6.   if ($ARGV[$argvcnt] =~ /^-z/)
  7.   {
  8.     $argvcnt++;
  9.     last;
  10.   }
  11.   
  12. }
  13. $when = time();
  14. for (; $argvcnt<@ARGV; $argvcnt++)
  15. {
  16.   utime($when, $when, <$ARGV[$argvcnt]>);
  17. }