RE: Трава перл...фсем курить. Корректив

[Skachkov Eugene]

#!/usr/bin/perl

use strict;
my $text = qq`A simple, decoded value.`;

$text =~ s/\n/ /g;
$text =~ s/\s+/ /g;

my $len = length$text;
my $point = (int(sqrt($len))+1);#(c) Lavei.

while ( $text =~ s/^(.{1,$point}[ |.])(.*)$/$2/ ) #Updated by Lavei
{
    my $str = $1; #Updated by Lavei
    $str=~ s/ $//;#Updated by Lavei    
    my (@words,$length);
    my $remainder = $point - ( length($1) );
    $length = @words = split (' ', $1);
    my $isidenumber = 0;
    for (0 .. $remainder)
    {
        $words[$isidenumber++] .= ' ';
        $isidenumber = 0 if ($isidenumber == $#words);
    }
    my $string = join (' ', на words);
    print $string . "\n";
}

Вот и мое произведение тока с данилиным копирайтом

С уважением, программист Скачков Евгений Иванович. 
mailto:e_skachkov на diamond.ru
ICQ: #81891536
 
Компания "Diamond Communications".
Телефоны: (095) 956-6676 добавочный  2346
http://www.diamond.ru/