Ux修改时间戳

Question

我正在尝试编写Ux脚本来更改时间戳(添加10年)。它在Debian上工作，但不知道如何在Solaris上这样做(-d和+10年不工作)

find DIRECTORY -print | while read filename; do
   touch -d "$(date -r "$filename") + 10 years" "$filename"
done

Answer 1

它用10*365*24*3600秒来表示十年，

find DIRECTORY -print|perl -MFile::stat -lne 'utime((stat($_)->mtime +10*365*24*3600) x2, $_)'

如果File::stat不可用，

find DIRECTORY -print|perl -lne 'utime(((stat($_))[9] +10*365*24*3600) x2, $_)'

Answer 2

要更改perl上的“mtime”，需要使用utime函数来设置它，并使用stat函数来读取它。

Time::Piece可以使用add_years函数来进行数据计算。

并且可以使用File::Find模块进行遍历。

给你这样的东西：

#!/usr/bin/perl

use strict;
use warnings; 

use File::Find;
use Time::Piece;

sub set_mtime_10years {
  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
   $atime,$mtime,$ctime,$blksize,$blocks)
       = stat($File::Find::name);

  my $timestamp = localtime ( $mtime );
     $timestamp = $timestamp -> add_years ( 10 );

  #utime sets mtime and atime - set to undef if you only want to change one. 
  utime ( $timestamp -> epoch, #atime
          $timestamp -> epoch, #mtime
          $File::Find::name );
}

find ( \&set_mtime_10years, "." ); 

这将遍历“.”，读取每个文件的mtime，在其中添加10年，并将其写入文件。

Answer 3

使用Path::Class::Rule和Time::Piece

use strict;
use warnings;

use Path::Class::Rule;
use Time::Piece;

for my $file ( Path::Class::Rule->new->file->all('mydir') ) {
    my $ts = localtime( $file->stat->mtime );
    next if $ts > time;    # Already in the future
    utime( ( $ts->add_years(10)->epoch ) x 2, "$file" );
}