Re: problem with a regex loop

[grep]

in reply to problem with a regex loop

This is one big reason to indent.

If you had indented and put in some whitespace you would see:

for my $line (@lines){
  if( $Session->{'usrSystem'} )=~/$line/g;
    $Response->Write("Found a match! Hooray");
}

Right there I can look at that code and see that the if isn't closed. And I notice that the if is missing an opening curly {.

If I just look at (instead of read) this code I can instantly tell the blocks look balanced

foreach my $line (@lines) {
    if ( $Session->{'usrSystem'} =~ /$line/g ) {
       $Response->Write("Found a match! Hooray");
    }
}

[grashoper]

your right, I will definitely try to indent more often, and thanks for the help, I am getting closer to my goal which is to make this a switch for the main app, due to upgrades content needs to change on a rolling upgrade schedule.