link() error: Cross-device link

[whn]

I want to copy a file from /var to /tmp in perl. When I use link(), I got this error: Cross-device link. Though it is understandable, what is the solution then?

I know I can do it using system("cp $oldfile $newfile"), or I can use file read/write to create the file through a loop. But, neither is ideal way to do this.

Could someone here know a better way?

Many thanks.

 

[travs69]

File::Copy ??

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[whn]

Sorry, I should have done more research before I asked q question here.

I found the solution at CPAN:

use File::Copy;
copy("file1","file2") or die "Copy failed: $!";

 

[whn]

Oh, thank you travs, I did not see your reply. Sorry.

I was writing the above follow-up post and then dragged away. I should have double checked it before I submit.

Again, thank you, travs.