Search Results

Bit heavy handed perhaps but I was at a bit of a loose end...


#!/usr/bin/perl
use POSIX;
use File::Copy;

$srcdir = '/source1';
$dstdir = '/target1';

opendir(DIR, "$srcdir");
@FILES=...