How can I copy a file in Perl and maintain its timestamp?

Question

I am using the File::Copy module to copy a file in Perl:

#! /usr/bin/perl -w

use File::Copy;

copy("somefile.log", "copiedfile.log");

I would like to preserve timestamps (particularly the modification time), but this doesn't appear to be an option.

Is there a straightforward way to achieve this without resorting to making a system call to "cp -p"?

Answer 1

Check File::Copy. Look under syscopy or rmscopy. It talks about timestamps there.

Answer 2

You can use stat to get the timestamp and utime to set it. If you can get away with it, system isn't always bad. You're never going to make something faster than cp -p.