Jerry Kassebaum wrote:
> Thanks for your help, Bill! I ran your code, which worked, which made me
> take a different look at my code.
>
> Sorry, but I didn't give you enough info to spot the problem. Here's the
> whole thing:
>
>
>
> open(STORAGE, "
>
> while() {
>
Oh! I also use the "<>;" to pause output, so things don't scroll off the
screen. Output continues when I hit .
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Thanks for your help, Bill! I ran your code, which worked, which made me
take a different look at my code.
Sorry, but I didn't give you enough info to spot the problem. Here's the
whole thing:
open(STORAGE, "){
$_ =~ /(\w+)/;
$sym{$1}++;
foreach
Jerry Kassebaum wrote:
> Friends,
>
> Below is a portion of code which repeats $v ad infinitum when the if
> condition is met. How do I break out of the loop?
>
> foreach $v (keys %sym) {
> if($sym{$v}>1) {
> print $v; <>; # Here's where it repeats the same thing, rather than
> advancing.
>
Friends,
Below is a portion of code which repeats $v ad infinitum when the if
condition is met. How do I break out of the loop?
foreach $v (keys %sym) {
if($sym{$v}>1) {
print $v; <>; # Here's where it repeats the same thing, rather than
advancing.
}
