Re: utime for symbolic links

[choroba]

It seems such an option is not present in File::Touch. I can't find it in any other module, either (but my CPAN searching skills are below average, I usually can't even find a module I've used).

But what you want is easy to implement using plain Perl functions: instead of touching the old symlink, create a new one and rename it over the old one:

#! /usr/bin/perl
use strict;
use warnings;

use File::Touch qw{ touch };

sub show_stat {
    system qw( stat file link );
}

unlink qw( file link new_link );
touch('file');
symlink 'file', 'link';
show_stat();

sleep 1;
symlink 'file', 'new_link';
rename new_link => 'link';
show_stat();

[shamlin]

Your example sets the atime/mtime to current time. I need to set the atime and mtime of the link to a specific value. I updated my question to be more clear.

[hippo]

The documentation seems clear enough, no?

atime => $time

    If defined, use this time (in epoch seconds) instead of current time for access time.

mtime => $time

    If defined, use this time (in epoch seconds) instead of current time for modification time.

[choroba]

But it changes the atime and mtime of the linked file, not the link itself.