Приветствую всех.

Такая проблема у меня возникла:
есть строка (любая буквы цифры - не важно)
нужно из этой строки "выдернуть" первые три символа, а осталные уладить
каким регулярным выражением это сделать можно не подскажите ?
а то уже у меня идеи закончились :((

Заранее спасибо всем.

• Регулярное выражение,pth, 18:11 , 06-Май-03
  • Регулярное выражение,vova, 05:50 , 07-Май-03

>Такая проблема у меня возникла:
>есть строка (любая буквы цифры - не важно)
>нужно из этой строки "выдернуть" первые три символа, а осталные уладить

1-й вариант:

$a = substr($stroka, 0, 3); # perldoc -f substr

2-й вариант:

$a = unpack("A3", $stroka); # perldoc -f unpack

3-й вариант (раз уж нужно именно с регэкспами):

$a = /^(.{1,3})/ && $1;

>1-й вариант:
>
>$a = substr($stroka, 0, 3); # perldoc -f substr
>
>2-й вариант:
>
>$a = unpack("A3", $stroka); # perldoc -f unpack
>
>3-й вариант (раз уж нужно именно с регэкспами):
>
>$a = /^(.{1,3})/ && $1;

Спасибо большое :))
А я и забыл совсем про substr
Еще раз спасибо.