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

[Greg Belenky]

мои полкилобайта:

sub greg {
  my ($width, $str) = @_;
  my $i = 0;
  my @wrap = ();
  foreach (split /\s+/, $str) {
    unless (length( $wrap[$i] ) + length() + 1 <= $width) {
      while (length( $wrap[$i] ) < $width) {
        if ($wrap[$i] =~ /(\S)(\s)/sg) {
          substr($wrap[$i], (my $p = pos( $wrap[$i] ))-1, 1) = $2x2;
          pos( $wrap[$i] ) = $p;
        } else {
          pos( $wrap[$i] ) = 0;
        }
      } $i++;
    } $wrap[$i] .= ($wrap[$i] && ' ') . $_;
  } return join "\n", @wrap;
}

---
Григорий "Grishace" Беленький
http://search.cpan.org/author/GRISHACE/