http://www.perlmonks.org?node_id=477688


in reply to Re^2: Estimating height of TEXTAREA from content
in thread Estimating height of TEXTAREA from content

Given an 80-character soft-wrapping of a multi-paragraph scalar of English words in a monospace font ($content), what will the height of it be in characters ($rows)?

Wrap it yourself and count the lines: 

use Text::Wrap;
my $rows = split("\n", fill('','', $content););

[download]

Replies are listed 'Best First'.
Re^4: Estimating height of TEXTAREA from content
by Your Mother (Archbishop) on Jul 25, 2005 at 06:39 UTC

    Nice! In a fit of jealousy for not having thought of this myself I'll point out that the default column width for Text::Wrap is 76 characters. So an amended line if the stated 80 is the real case. 

    use Text::Wrap;
$Text::Wrap::columns = 80;
# and continue as above...

    [download]
[reply]
[d/l]
Re^4: Estimating height of TEXTAREA from content
by tomazos (Deacon) on Jul 25, 2005 at 15:58 UTC
    Thanks. FYI: Use of implicit split to @_ deprecated. 

    my @rows = split("\n", fill('','', $content));
my $rows = $#rows + 1;

    [download]

    Maybe?

    -Andrew.

    Andrew Tomazos  |  andrew@tomazos.com  |  www.tomazos.com
[reply]
[d/l]

In Section Seekers of Perl Wisdom