cwbe coordinatez:
101
63540
2076399
1655002
2166696

ABSOLUT
KYBERIA
permissions
you: r,
system: public
net: yes

neurons

stats|by_visit|by_K
source
tiamat
K|my_K|given_K
last
commanders
polls

total descendants::
total children::1
show[ 2 | 3] flat


pred troma mesiacmi som zacal programovat v perl + tk
chcel som najprv zacat v linux C ale perl je lahko zvladnutelny

neviete mi niekto odstranit warningy z tochto skusobneho testu ?
neviem ako z pola @pole do ktoreho davam cisla ich potom precitat
bez warningov .. v podstate to ide len to -w dava take ze
Use of uninitialized value in addition (+) at testperlx.pl line 13.
Use of uninitialized value in concatenation (.) or string at testperlx.pl line 14.


#! /usr/bin/perl -w
$skalar = 0;

while ($skalar != 10) {
$skalar++;
$pole[$skalar] = $skalar; }

foreach $halo (@pole) {
$halo2 = $halo + 10;
print "halo= $halo halo+10= $halo2 n"; }




000001010006354002076399016550020216669602168469
forcer
 forcer      14.02.2006 - 11:02:45 (modif: 14.02.2006 - 11:04:26), level: 1, UP   NEW !!CONTENT CHANGED!!
#! /usr/bin/perl -w
my $skalar = 0; // neinicializoval si premennu $skalar -w sa odporuca pouzivat s "use strict;"
my @pole;
my ($halo1,$halo2);
while ($skalar != 10) {
$skalar++;
$pole[$skalar] = $skalar; }

foreach $halo (@pole) {
$halo2 = $halo + 10;
print "halo= $halo halo+10= $halo2 n"; }

samozrejme nebudem hovorit o tom ze for() by bol v tomto pripade ovela uzitocnejsi :)