Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement