for my $x (1,2) {
$x++;
}
####
for (1,2) {
chomp;
}
for ("foo", @list) {
s/foo/bar/;
}
@array = map { $_++ } (1,2);
@array = grep { $_++ } (1,2);
##
##
sub incr {
$_[0]++;
}
my $n = 1;
incr($n); # good
incr(1); # bad
##
##
@array = sort { $a++ } (1,2);
##
##
my @bad;
$bad[0] = [1];
$bad[2] = [2];
@bad = sort {$a->[0] <=> $b->[0]} @bad;
##
##
for (1,2) {
my $data = prompt_user();
}
sub prompt_user {
print "Enter a number\n";
while () {
# Do stuff
}
}
##
##
for (1,2) {
while () {
}
}
##
##
$_++ for (1,2);
$_++ for (1,@array);
@array = map {$_++} (1,@array);
##
##
my @array = (1,2);
for (@array) {
$_++;
}
##
##
my ($x,$y) = (1,2);
for ($x,$y) {
$_++;
}