Opened by f1database at 2005-02-16 18:11
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
Was die Warnungen betrifft:
die werden durch use strict; bzw use warnings; erzeugt, um auf mögliche Programmierfehler hinzuweisen. Und wenn man eine Variable verwendet, die man vorher nie verwendet hat, ist das häufig ein schreibfehler. Darum muß man, wenn man wirklich eine neue Variable verwenden will, diese mit my deklarieren, also zum Beispiel:
Die verwendung von strict und warnings ist also auf jeden Fall zu empfehlen, auch im ersten Programmteil, wo du das noch nicht hast und die fehlermeldungen und warnungen bekommst du weg, indem du beim ersten Verwenden einer Variablen ein my davorstellst.
die werden durch use strict; bzw use warnings; erzeugt, um auf mögliche Programmierfehler hinzuweisen. Und wenn man eine Variable verwendet, die man vorher nie verwendet hat, ist das häufig ein schreibfehler. Darum muß man, wenn man wirklich eine neue Variable verwenden will, diese mit my deklarieren, also zum Beispiel:
Code: (dl
)
1
2
3
my $hallo="Welt";
print $hallo; # geht einwandfrei
$halo="jaja"; # Programm bricht ab, da $halo mit nur einem l unbekannt ist
Die verwendung von strict und warnings ist also auf jeden Fall zu empfehlen, auch im ersten Programmteil, wo du das noch nicht hast und die fehlermeldungen und warnungen bekommst du weg, indem du beim ersten Verwenden einer Variablen ein my davorstellst.
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}