#!/usr/bin/perl -w-
my $a = "a";
my ($b, $c) = ('a', 'a');
for my $i (0..2) {
$b = 'b', $c = 'c', next if ($a eq "a");
print "$i ..\n";
}
print "$a $b $c\n";
#!/usr/bin/perl -w-
my $a = "a";
my ($b, $c) = ('a', 'a');
for my $i (0..2) {
$b = 'b', $c = 'c', next if ($a eq "a");
print "$i ..\n";
}
print "$a $b $c\n";
Comments