my $end = @test; my $cnt = 0; until ($cnt == $end) if (($test[$cnt] =~ /^>>>\s/) && ($test[$cnt+1] !~ /^>>\s/)){ $tst[$cnt] =~ s/^>>>/PYTHON_PROMPT/; } $cnt++; }
In reply to Re: Using a regex to catch interpreters
by magnus
in thread Using a regex to catch interpreters
by eastcoastcoder
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |