Problem s poli

[Radek Pelanek]

Jaromir Skrivan wrote:
> 
> Dobry den vsem,
> 
>  mam nasledujici problem:
> 
> mam pole @a1 a pole @a2. V poli @a1 jsou jako prvky ulozeny retezce, napr.
> 
> @a1 = ('stul', 'zidle', 'postel', 'skrin', 'pohovka', 'kreslo', 'stolicka');
> 
> a v poli @a2 mam take ulozeny nejake retezce:
> 
> @a2 = ('stolicka', 'skrin', 'pohovka');
> 
> a potreboval nejakym elegantnim zpusobem udelat "rozdil" poli @a1 a @a2, tak
> aby mi v @a1 zustaly pouze ty prvky, ktere jsou v @a1 ale nejsou v @a2.
> 
> (tj. vlastne mi jde o to, jak mam z pole odstranit konkretni prvek)
> 
> jde to udelat nejak jednodusse?
> 
Treba takto:
@rozdil = grep { $pom= $_; not grep {$pom eq $_} @a2; } @a1;
Ale casove to asi nebude moc efektivni.
-- 
 Radek xpelanek na fi.muni.cz
http://www.fi.muni.cz/~xpelanek