| rjw | 6c1fd8f | 2022-11-30 14:33:01 +0800 | [diff] [blame] | 1 | use strict;
|
| 2 | use Time::HiRes qw(stat);
|
| 3 |
|
| 4 | my $input = $ARGV[0];
|
| 5 | my $output = $ARGV[1];
|
| 6 |
|
| 7 | if (! -e $input)
|
| 8 | {
|
| 9 | die "Fail to find input: $input";
|
| 10 | }
|
| 11 | elsif(! -e $output)
|
| 12 | {
|
| 13 | die "Fail to find output: $output";
|
| 14 | }
|
| 15 |
|
| 16 | my @st_in = stat($input);
|
| 17 | if (@st_in)
|
| 18 | {
|
| 19 | my $permit = $st_in[2] & 07777;
|
| 20 | my $atime = int($st_in[8]);
|
| 21 | if ($st_in[8] > $atime)
|
| 22 | {
|
| 23 | $atime += 1;
|
| 24 | }
|
| 25 | my $mtime = int($st_in[9]);
|
| 26 | if ($st_in[9] > $mtime)
|
| 27 | {
|
| 28 | $mtime += 1;
|
| 29 | }
|
| 30 | chmod($permit, $output);
|
| 31 | utime($atime, $mtime, $output);
|
| 32 | }
|
| 33 |
|