🚀 go-pugleaf

Waldek Grudzien wrote:
> Okazalo sie, ze jest jeszcze nastepujaca metoda (minusem jej jest, ze
> mozna obciac tylko koncowe elementy...) :
> 
> %b=(0=>'a',1=>'b',2=>'c');
> $k=0;  # ile elementow poczatkowych
> @b1=%b;
> for ($i=0;$i<2-$k;$i++){
>   pop(@b1);
>   pop(@b1);
> }
> %c=@b1;

Jesli zastapisz pop przez shift, to beda elementy
koncowe...  8-)

Jesli tak, to mozna prosciej, szybciej i elastyczniej:

%b=(0=>'a',1=>'b',2=>'c');
$begin=0;
$end=1;
@temp=%b;
%c=@temp[2*$begin .. 2*$end+1];

Nasuwa sie tylko pytanie o sens takiej operacji:
O ile wiem Perl nie definiuje implementacji tablic
asocjacyjnych: czy mozna gwarantowac, ze wartosc
nowo dodana %x faktycznie znajduje sie w jakims
konkretnym miejscu tej tablicy (np. na koncu)?

-- 
| E-mail -> mailto:mtrojnar@ddc.daewoo.com.pl   | Michal  Trojnara |
| Strona -> http://www.daewoo.com.pl/~mtrojnar/ |   090-29-83-44   |
| CHSI   -> http://www.chsi.rubikon.net.pl/     | Jezus jest Panem |