> Here is the code:
> while (@arrangement) {
> chomp;
> if ($_ eq $epost) { my $test = 1; }
> shift(@arrangement);
> }
>From another mail written by driuex on the subject:
"is this like some new Kult thing?
It appears that this 'while' construct has popped up on both
the beginner's list and the beginner-cgi list....
rather than the traditional Orthodox Perl:
foreach my $val (@array) { # note $val is scoped for this loop only
# do the jazz with $val so that when we would have done
# something have the n-method calls on objects we do not
# have to worry about what other PM's did to $_ .... "
foreach my $email(@arrangement) {
if ($email eq $epost) {$test = 1; }
}
Worked beautifully :)
Tor
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
