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

[LaVei]

Здраствуйте, LaVei <lavei на mail.ru> !
в Thu, 25 Sep 2003 16:30:07 +0500, Вы написали:

L> Как решить в одну строку это, я себе пока не представляю...
L> поэтому если участники не против то критерием будет Benchmark?;-)

L> Задача :
L> Написать программу на perl выводящую текст в виде 
L> прямоугольника с
L> заданной шириной.
L> До заданной ширины строку следует дополнять пробелами, 
L> начиная с левой её
L> части. Параметр, определяющий ширину результирующего 
L> прямоугольника,
L> гарантированно больше, чем самое длинное слово, 
L> встречающееся в тексте.

Ну типа мой 
my $point = 20;

$text=~ s/\n//g; 
 for ($text =~ m/(.{1,$point}) /g)
 {
        my $str = $_;
        for (length($str)..$point)
        {
                $str = " ".$str;
        }
 }

Ща буду дорабатывать;-)

Данил