LINUX.ORG.RU

[Perl] Форматы (format)

 


0

1

Есть строка, допустим 'blabla'.

Можно ли с помощью format (perlform) получить такое:

/* -------------- *
 * Title : blabla *
 * -------------- */

Для строки другой длины будет соответственно:

/* -------------------- *
 * Title : blablablabla *
 * -------------------- */

Я понимаю, что можно нагородить всяких

$separator = "-" x length($title);

но хотелось бы разобраться из любопытства.



Последнее исправление: mosfet (всего исправлений: 1)

перловку не юзаю, но ведь там-же можно

s/./-/g

т.е. заменить в строке всё на минусы, и получить заголовок и подвал.

drBatty ★★
()
$ echo "Title : blabla" | sed -r 'h;s/./-/g;s~.*~/* & *~p;x;s/.*/ * & */p;g;s~/(.*)~ \1/~'
/* -------------- *
 * Title : blabla *
 * -------------- */
drBatty ★★
()
Ответ на: комментарий от mosfet

perlform не читал, поэтому просто догадка, может поиграться с шириной поля и заполнителем?

xydo ★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.