> ################################ > # This might come closer to what you want. > > foreach my $log (@NBlogs2) { > if ($log =~ m{([[:alpha:]]+)/log.\d+}) { > my $word = $1; > my $number = $subdir_for{$word}; > qx(echo cp $log $oldir/$number); > } > } ##################################################
I used Data::Dumper to test this code and am wondering why the scalar variable assign. my $number is not working or "sticking"??? See below foreach my $log (@twoweekdir_contents) { $NBlogs2[ $i++ ] = $log if ($log =~ /bpcd\/log|bpdbm\/log|bptm\/log\.\d+/); } if (@NBlogs2) { foreach my $logs (@NBlogs2) { if ($logs =~ m{([[:alpha:]]+)/log\.\d+}) { print "word variable assgn:\t", Dumper(my $word = $1); print "number assgn from hash:\t", Dumper(my $number = $subdir_for{$word}); print "word output:\t", Dumper($word,"\n"); print "number output:\t", Dumper($number,"\n"); print "copy call:\t", Dumper(qx(echo cp $logs $oldir/$number) ); } } } else { print LOG dateme(), "\nArray NBlogs2 is null $!"; die $!; } __END_CODE__ If I change $number to $word is obviously does the copy correctly, but what is the point of my $number = $subdir_for{$word}; ??? __CODE_OUTPUT__ word variable assgn: $VAR1 = 'bpcd'; number assgn from hash: $VAR1 = 8; word output: $VAR1 = 'bpcd'; $VAR2 = ' '; number output: $VAR1 = 8; $VAR2 = ' '; copy call: $VAR1 = 'cp /usr/openv/netbackup/logs/bpcd/log.082906 /usr/openv/logs/old/8 '; word variable assgn: $VAR1 = 'bpdbm'; number assgn from hash: $VAR1 = 13; word output: $VAR1 = 'bpdbm'; $VAR2 = ' '; number output: $VAR1 = 13; $VAR2 = ' '; copy call: $VAR1 = 'cp /usr/openv/netbackup/logs/bpdbm/log.082906 /usr/openv/logs/old/13 '; word variable assgn: $VAR1 = 'bptm'; number assgn from hash: $VAR1 = 39; word output: $VAR1 = 'bptm'; $VAR2 = ' '; number output: $VAR1 = 39; $VAR2 = ' '; copy call: $VAR1 = 'cp /usr/openv/netbackup/logs/bptm/log.082906 /usr/openv/logs/old/39 thank you derek __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>