9 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use warnings;
my $images = [
{
alt => 'alt',
desc => 'desc',
src => 'src',
width => 'undef',
},
];
for ( 0 .. $#{$images} ) {
print "Nr: $_\n";
}
Nr: 0
1
2
3
4
5
6
7
8
9
10
11
format_c@server:~> perl
my $arrayref = [qw/eins zwei drei vier/];
for (0 .. scalar @$arrayref - 1) {
print "Nr: ",$_,"\n";
}
Nr: 0
Nr: 1
Nr: 2
Nr: 3
format_c@server:~>
perl -e 'for (0..4) { eval "\$[=$_; print substr(q/ollah/,4,1);" or die $@};print "\n"'
9 Einträge, 1 Seite |