Re: Трава перл...фсем курить;-)
LaVei
lavei на mail.ru
Пт Сен 26 00:48:52 CDT 2003
Здраствуйте, "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
слишком малоинформативен что то..;-(
Подробная информация о списке рассылки Samara-pm