101 |
Īn urma execuţiei secvenţei (tst24.pl)
@array1 = (14, "cheeseburger", 1.23, -7, "toad");
@array2 = @array1;
$array2[1]="cheese";
$count = 1;
while ($count <= 5) {
print("\t\t\t$array2[$count-1]");
print("\relement $count: $array1[$count-1] \n");
$count++;
}
consola text conţine
element 1: 14 14
element 2: cheeseburger cheese
element 3: 1.23 1.23
element 4: -7 -7
element 5: toad toad
© Cornel Mironel Niculae, 2003-2004
13-Nov-2009