RE: Трава перл...фсем курить. Коррективы.
Skachkov Eugene
e_skachkov на diamond.ru
Пт Сен 26 08:05:40 CDT 2003
#!/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/
Подробная информация о списке рассылки Samara-pm