>>>>> "John" == John W Krahn <[EMAIL PROTECTED]> writes:
John> From the foreach loop it looks like you want to remove the last
John> occurrence of $del_name from @pro_list. You could also do it like this:
John> foreach ( reverse 0 .. $#pro_list ) {
John> if ( $pro_list[$_] eq $del_name ) {
John> splice @pro_list, $_, 1;
John> last;
John> }
John> }
Although not necessarily as efficient (but possibly *more* efficient),
but much clearer to most:
@pro_list = grep $_ ne $del_name, @pro_list;
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
