;-) The search for a simple way of life ( without find )

[weirdcpu]

Hello,

In perl, is there a SIMPLE way to coordinate two directories ?

By simple i mean without file::find and its no so easy syntax

For example :

In \tp1 i have 3 files :

iwantit.txt onlyhere.txt thesame.txt

In \tp2 i have 2 files :

iwantit.txt thesame.txt

( \tp1\iwantit.txt is newer than \tp2\iwantit.txt )
( \tp1\thesame.txt is the same file than \tp2\thesame.txt )

Under MS-DOS i could use :

XCOPY \tp1 \tp2 /U /Y to update \tp2 with the newer files from \tp1.

Is there a way to do this easyly with perl ?

thanks

 

[tchatzi]

I didn't check it cause i'm not home, but it has to work

#!usr/bin/perl -w
system ("XCOPY \\tp1 \\tp2 /U /Y ");

``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI