open TEST,"@ARGV[0]";
####
open(my $TEST, "<", $ARGV[0])
or die("Can't open \"$ARGV[0]\": $!\n");
##
##
$flag = "ON"
...
$flag = "OFF"
##
##
my $looking = 1;
...
$looking = 0;
##
##
while ()
##
##
while (<>)
##
##
if (/test/ and $flag eq "ON")
##
##
if ($looking && /test/)
##
##
print "start";
##
##
print "start\n";
##
##
say "start";
##
##
close TEST;
##
##
use strict;
use warnings qw( all );
my $looking = 1;
while (<>) {
if ($looking && /test/) {
print "start\n";
$looking = 0;
}
}
##
##
use strict;
use warnings qw( all );
while (<>) {
if (/test/) {
print "start\n";
last;
}
}