@a = 1 .. 7;
####
while (something) {
if (EXPRSTART .. EXPREND) {
doit();
}
}
##
##
$inmatch = 0;
while (something) {
if (!$inmatch && EXPRSTART) {
$inmatch = 1;
}
if ($inmatch) {
doit();
}
if ($inmatch && EXPREND) {
$inmatch = 0;
}
}
##
##
while (something) {
if (EXPRSTART ... EXPREND) {
doit();
}
}
##
##
$inmatch = 0;
while (something) {
$wasinmatch = $inmatch;
if (!$inmatch && EXPRSTART) {
$inmatch = 1;
}
if ($inmatch) {
doit();
}
if ($wasinmatch && EXPREND) {
$inmatch = 0;
}
}
##
##
while (<>) { print if /A/ .. /B/ }
##
##
while (<>) { print if /A/ ... /B/ }
##
##
Here's some text before
Some text with an A
some lines in the middle 1
some lines in the middle 2
some lines in the middle 3
Some text with a B
some useless lines 1
some useless lines 2
some useless lines 3
A line with both an A and a B
some lines after the line with both 1
some lines after the line with both 2
some lines after the line with both 3
Once again, text with a B
more useless lines 1
more useless lines 2
more useless lines 3