Hi,
On Wed, Mar 14, 2012 at 12:37 PM, Torqued <torque.in...@gmail.com> wrote:
> It worked like charm, but a quick question, why the print is misbehaving
> under the loop, but once out how it print right result.
>
Under the loop, using your push function, it increases the value in
array @column, and with the join function it prints what is in the array as
it adds! Please don't forget the while loop works till there is no more
"line" to read in from __DATA__ by $_.
>
> Regards.../om
>
> On 14-Mar-2012, at 16:54, timothy adigun <2teezp...@gmail.com> wrote:
>
> OR use:
> #!/usr/bin/perl -w
> use strict;
>
> my @column;
> while (<DATA>) {
> push @column, (split)[0];
> }
> print join " ",@column;
>
> __DATA__
> 1 a b c
> 2 d e f
> 3 g h i
>
> On Wed, Mar 14, 2012 at 12:19 PM, timothy adigun <2teezp...@gmail.com>wrote:
>
>> Hi Torqued,
>>
>> On Wed, Mar 14, 2012 at 11:51 AM, Torqued <torque.in...@gmail.com> wrote:
>>
>>> I have a code which goes like this
>>>
>>> #!/usr/bin/perl -w
>>> use strict;
>>>
>>> my @column;
>>>
>> my $k;
>>
>>> while (<DATA>) {
>>> push @column, (split)[0];
>>> #print join (' ', @column);
>>>
>> $k=join (' ', @column);
>>
>>> }
>>>
>> print $k;
>>
>>> ***OUTPUT**
>>>
>> 1 2 3
>>
>>
>>> __DATA__
>>> 1 a b c
>>> 2 d e f
>>> 3 g h i
>>>
>>> But when running this i get the output as : 11 21 2 3
>>> Whereas i am trying to get the output as : 1 2 3
>>>
>>> could you please suggest what i am doing wrong here?
>>>
>>> Regards.../om
>>>
>>> --
>>> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>>> For additional commands, e-mail: beginners-h...@perl.org
>>> http://learn.perl.org/
>>>
>>>
>>>
>>
>>
>> --
>> Tim
>>
>>
>
>
> --
> Tim
>
>
--
Tim
