Perhaps this help :
use strict;
my @text = qw/ hello world a ab abc abcde /;
my @result ;
$result[ length $_ ]++ for ( @text ) ;
for (1..$#result )
{ print "$result[$_] for $_ chars char\n" if $result[$_]}
# prints
1 for 1 chars char
1 for 2 chars char
1 for 3 chars char
3 for 5 chars
Thanks. That's all I needed to know.
Brian Bernard
Senior, Direct Advanced Response Team
Premier Support - Enterprise
Research In Motion Limited
Direct Dial: 1-519-888-7465 x5654
Email: [EMAIL PROTECTED]
/* Sent using my BlackBerry 8700 */
- Original Message -
From: Xavier Noria
To:
On Dec 24, 2005, at 18:59, Brian Bernard wrote:
What I was intending to ask is whether a CSV can be created with
the logic to open with auto-sized columns, when opened in a
application capable of displaying the data in columns. For example,
if you view an html file in a text editor, you wil
Hello Chris,
Yes, I understand what a CSV file is. My question was a simple one, I just
wasn't being clear enough, I guess.
What I was intending to ask is whether a CSV can be created with the logic to
open with auto-sized columns, when opened in a application capable of
displaying the data
On Sat, 24 Dec 2005, Brian Bernard wrote:
> Is there any way to auto-size cells when you are generating a CSV file
> using Perl (without using any additional modules)?
Do you understand what CSV is? It's just a plain text representation of
tabular data, with rows separated by newlines and colum
Hello,
Is there any way to auto-size cells when you are generating a CSV file using
Perl (without using any additional modules)?
Thanks.
Brian Bernard
Senior, Direct Advanced Response Team
Premier Support - Enterprise
Research In Motion Limited
Direct Dial: 1-519-888-7465 x5654
Email: [EMAIL
John W. Krahn wrote:
> [EMAIL PROTECTED] wrote:
>>Do either of you know if this second technique has the same small
>>liability mentioned for the first one above:
>>(From `perldoc -f fileno')
>>
>> `(Filehandles connected to memory objects via new features of
>> "open" may return undefined ev
