Thanks. I was able to accomplish it using unpack command.
On Tue, Dec 9, 2008 at 7:26 AM, Rob Dixon <[EMAIL PROTECTED]> wrote:
> sanju.shah wrote:
>>
>> I am looking for some suggestions on any advanced functions Perl might
>> have that i might be missing.
>>
>> Basically, I have an array with column widths. Next I have a string. I
>> would like to extract the number of characters based on the column-
>> widths in the array. I have already tried using substr but is there
>> any other way of extracting?
>>
>> eg:
>>
>> @col_width = (4,2,17);
>> my $str = 'Perl is amazing language';
>>
>> I'd like a one-line command (if possible) to store 'Perl' in $a, 'is'
>> in $b & 'amazing language' in $c.
>
> Except that the last column is sixteen characters long rather than seventeen,
> this should suit your purpose.
>
> HTH,
>
> Rob
>
>
> use strict;
> use warnings;
>
> my @col_width = (4,2,16);
> my $str = 'Perl is amazing language';
>
> my @words;
> $str =~ /(.{$_})\s*/g and push @words, $1 for @col_width;
> print "$_\n" foreach @words;
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
