Re: Трава перл...фсем курить;-)

[LaVei]

Здраствуйте, "Yury Kopyl" <hrg на sama.ru> !
в Fri, 26 Sep 2003 09:25:45 +0500, Вы написали:

YK>>> foreach my $text (split (/\n/,$text)){
L>> А цикл для чего?

YK> Для абзацев. т.е если в строке есть символы переноса, то строка начнется
YK> заново.
Это понятно;-)
на мой взгляд в твоем варианте достаточно было бы:
my $width=40;
my $format_str='^'.'>'x ($width-1)."~~\n";
   formline ($format_str,$text);
    print $^A;
Поскольку вроде про абзацы там вроде ничего не было сказано.
по крайней мере я так понял.;-))

Ща гляну оптимизенные варианты.;-)

Данил 

PS а где можно почитать про форматы?
perldoc -f formline 
слишком малоинформативен что то..;-(