- or download this
my $it3 = append (upto(1,3), list_iterator qw(foo bar baz), upto (7,9)
+);
print_it $it3;
- or download this
Invalid append 1
$VAR1 = 1;
...
use strict 'refs';
return $start <= $end ? $start++ : undef;
};
- or download this
print "\n\nInvalid append 1\n";
my $it3 = append upto(1,3), list_iterator (qw(foo bar baz)), upto (7,9
+);
print_it $it3;
- or download this
Invalid append 1
$VAR1 = 1;
...
$VAR1 = 7;
$VAR1 = 8;
$VAR1 = 9;