touch.pl
上传用户:caisangzi8
上传日期:2013-10-25
资源大小:15756k
文件大小:0k
源码类别:

DVD

开发平台:

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. }