Opened by Crian at 2005-04-12 11:17
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Sicher ist schonmal, dass sich dieses Programm hier
richtig verhält. Es bringt keinen Fehler und sagt artig "kleiner gleich".
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $allmatch = [ '10000000 ,' ];
my $nr = 0;
print "Problemstelle: allmatch: ", Dumper $allmatch;
print "nr = [$nr]\n";
print "\$#\$allmatch = [$#$allmatch]\n";
print "ref \$allmatch = ", ref($allmatch), "\n";
if ($nr > $#$allmatch) {
print "groesser\n";
}
else {
print "kleiner gleich\n";
}
richtig verhält. Es bringt keinen Fehler und sagt artig "kleiner gleich".
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite