Why doesn't a copy work on each array element yet a glob does?
Is there a way to tell Perl to copy each element of the array off to
another file location?
for (my $suffix=0; $suffix <= $#NBlogs2; $suffix++) {
foreach my $logs (@NBlogs2) {
copy ("$logs", "$oldir/$logs.$suffix") or die "Copy
failed $!";
}
}
Output of @NBlogs is:
/usr/openv/netbackup/logs/bpcd/log.082106/usr/openv/netbackup/logs/bpcd/
log.98798/usr/openv/netbackup/logs/bpdbm/log.082106/usr/openv/netbackup/
logs/bptm/log.082106/usr/openv/netbackup/logs/bpcd/log.082106/usr/openv/
netbackup/logs/bpcd/log.98798/usr/openv/netbackup/logs/bpdbm/log.082106/
usr/openv/netbackup/logs/bptm/log.082106/usr/openv/netbackup/logs/bpcd/l
og.082106/usr/openv/netbackup/logs/bpcd/log.98798/usr/openv/netbackup/lo
gs/bpdbm/log.082106/usr/openv/netbackup/logs/bptm/log.082106/usr/openv/n
etbackup/logs/bpcd/log.082106/usr/openv/netbackup/logs/bpcd/log.98798/us
r/openv/netbackup/logs/bpdbm/log.082106/usr/openv/netbackup/logs/bptm/lo
g.082106
The below works as expected!
foreach my $log (glob "/path/to/files/* " ) {
copy ("$log", "/tmp/") or die $!;
}
Derek Bellner Smith
Unix Systems Engineer
Cardinal Health Dublin, Ohio
<mailto:[EMAIL PROTECTED]>
_________________________________________________
This message is for the designated recipient only and may contain privileged,
proprietary, or otherwise private information. If you have received it in
error, please notify the sender immediately and delete the original. Any other
use of the email by you is prohibited.
Dansk - Deutsch - Espanol - Francais - Italiano - Japanese - Nederlands - Norsk
- Portuguese - Svenska: www.cardinalhealth.com/legal/email
