I have tried various ways to copy all files *.id but no sucess, I have used code
from the Perl Cookbook, FAQ's and previous postings, but all failed.
Below is the current lines of code, please could somebody help to point out why.
Attempt 1
find( \&wanted, $src3);
sub wanted {
if ( /id$/ ) {
$fname = $files::Find::name;
$fname1 = "$src3\\$fname";
copy($fname1,$dst3);
printf DATAPLACE "copied $fname to $dst3 \n";
}
}
Attempt 2.
opendir(SRC3, $src3);
while ($files = /\id*$/, readdir(SRC3)) {
my $fname = "$src3\\$files";
copy($fname,$dst3);
printf DATAPLACE "copied $fname to $dst3 \n";
}
closedir(SRC3);
Both failed?
If I substitue /\id*$/ with "daryll.id" it works fine
Regards
Daryll
The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or addressees. If
you are not an intended recipient, please delete the message and any attachments
and notify the sender of misdelivery: any use or disclosure of the contents of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states them,
with requisite authority, to be those of a specific LAZARD company or
partnership.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
