zahada v perle
while(<DOCASUB>)
{
chomp;
@hodnota = map {$_ eq 'x' ? '' : $_} split ;
}
to za otaznikom je prazdny retazec. Syntakticky je to spravne, ale debugovanim som zistil, ze mi to zapisuje v pamati na nahodne miesto nesuvisiace s tymito premennymi
ked som to zmenil takto:
while($riadok = <DOCASUB>)
{
chomp $riadok;
@hodnota = map({$_ eq 'x' ? '' : $_} split(' ', $riadok));
}
uz to bolo OK
Pre pridávanie komentárov sa musíte prihlásiť.
teraz to skusam a zda sa mi, ze to robi to iste...tak neviem.