Требуется обрезание

[Subzero]

Помогите, пожалуйста!

На перле нужно прочитать строку файла, общий формат которой:

ааааааа - ббббббб - ввввввв - ггггггггг

а потом от этой строки оставить только "ааааааа", т.е. разделитель " - ".

напишите регулярное выражение, пожалуйста

[Useless]

/^([^- ]+) -/

Результат - в $1.

[Cerber]

Требуется обрезание
Помогите, пожалуйста!

как трогательно....

[Subzero]

Ну пажааалуйста

А где сидит исходная строка? А вообще разделитель не "-", а " - ", т.е. 3 символа

[Useless]

Охх, блин. Не уверен, но надеюсь, что сработает:

($destination) = ($source =~ /^(.+?) - /);

. Для упрощения - исходную строку загоняешь в $_ , затем пишешь сам регэксп (то, что в слешах, сами слеши и точку с запятой), а результат берёшь из $1.

[MpaK999]

не, ну зачем так усложнять???

$line="ааааааа - ббббббб - ввввввв - ггггггггг";

@res=split/ - /,$line;

теперь в $res[0] и остался твой результат аааааа