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
Dieses Programm verdeutlicht das Problem, allerdings tritt es hier nicht auf:
Hier gibt Perl durchaus zurecht
aus. In meinem Programm kam die Meldung leider bezogen auf die Zeile, die hier der Zeile 15 entspricht.
Naja, to be weitergebastelt... ;-)\n\n
<!--EDIT|Crian|1113295487-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl
use strict;
use warnings;
my @c = (
[{ xyz => undef }],
{ xyz => undef },
[{ xyz => undef }],
);
my $d = [ 13, 17, 42, 69, 4711 ];
my $nr = 1;
if ($nr > $#$d) { # Zeile 15
print "schuhu\n";
}
else {
if (defined $c[$nr]->[0]->{xyz}) { # Zeile 19
print "definiert\n";
}
else {
print "nicht definiert\n";
}
}
Hier gibt Perl durchaus zurecht
Code: (dl
)
Not an ARRAY reference at R:\Banz\HR_Strukt_HuP\CD\erwent_down\prg\t2.pl line 19.
aus. In meinem Programm kam die Meldung leider bezogen auf die Zeile, die hier der Zeile 15 entspricht.
Naja, to be weitergebastelt... ;-)\n\n
<!--EDIT|Crian|1113295487-->
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