в общем, надо написать форматер из 1-го стиля во 2-ой и обратно.
лишь для фигурных скобок.
т.е
if() {
}
меняется на
if()
{
}
другая программкая делает обратное действие.
собственно, подскажите, как лучше сделать?
была идея написать регвыр, который бы находил мне конструкцию типа blabla(){ и добавлял как-то между ) и { перевод строки.
вот, только не знаю, как он бы добавлял.
или можно находить такие конструкции и добавлять их в массив, там как-то менять и засовывать обратно))
предложите, пожалуйста, пару своих идей, как вы бы это делали? )

как вариант регвыром:

if (*a == ')' || *a == '(') {
  printf("out\n");
}

?

ну да... с этим проблема, но тоже решаемо, все зависит от точной постановки задачи

ну, постараюсь точнее :
есть файл с кодом на перле (т.е например если конструкция map { } то её надо тоже как-то отработать и оставить как она есть)
вход :

выход

то есть из одного стиля форматирования в другой. и так же обрабатывать комментарии. т.е, теперь до меня дошло, что если просто добавлять перевод строки, то комментарии тоже улетят ниже на строчку 

и все-таки не до конца точно.
вот такая заготовка:


при условии что:
1. делать перенос "{" если перед этим есть слово и скобки, например if(), while() и т.д.
2. не делать перенос если нет скобок, например map {}.
3. учитывать комментарии при переносе по п.1

проверял на:

perldoc Perl::Tidy

(\w+\s*\(.*\))
это обработка оператора и скобок, это я понял
\s*
пробелы 
дальше открывающаяся скобка - это что ? )
вторая часть регвыра не совсем понятна)

не работает:

# perl -plne 's/(\w+\s*\(.*\))\s*{\s*(#.*)?\n/$1 $2\n{\n/;'
if (a == b) {
  print;
}
^D
if (a == b) {
  print;
}
# 

Вывод:

 

а как ещё отодвинуть {
на колличество пробелов/табуляций, которое стоит перед оператором?
([\s*\t*]) добавил это в начало, но, как использовать не знаю(

а такое сможет?
if (a == b) { # ) {
  ...
}

спасибо огромное, всё, на чём проверял, работает)

2 arto, да, работает на твоём примере