touch.pl

来自「Sunplus 8202S source code.」· PL 代码 · 共 24 行

#
#
#

for ($argvcnt=0; $argvcnt<@ARGV && $ARGV[$argvcnt] =~ /^-(.*)/; $argvcnt++)
{
  if ($ARGV[$argvcnt] =~ /^-\z/)
  {
    $argvcnt++;
    last;
  }
  
}

$when = time();

for (; $argvcnt<@ARGV; $argvcnt++)
{
  utime($when, $when, <$ARGV[$argvcnt]>);
}