Hallo,
regexp halte ich hier für zuviel aufwand,
ich würde eher mit if(substr($var,0,3) eq $key){..} arbeiten,
da sparst du den ganzen overhead für die regexp maschine.
Bert
--
E492: Not an editor command: Wq
ln -s /dev/brain
Selbst ist der Mann, wenn er sich verdoppeln kann
E492: Not an editor command: Wq
ln -s /dev/brain
Selbst ist der Mann, wenn er sich verdoppeln kann