Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^8: Adding text file data to hashes and array

by Tigor (Novice)
on Feb 15, 2019 at 11:10 UTC ( [id://1229946]=note: print w/replies, xml ) Need Help??


in reply to Re^7: Adding text file data to hashes and array
in thread Adding text file data to hashes and array

Thanks for the information

I want to be myself clear while explaining the desired output that i am looking for .So i am writing it in step by step process

Step 1:I have a text file which contains data as below

Name Jan Feb Mar apr
     apple A 30  40   50 60
     Orange O 40 20   30 60

[download]

Step 2:Now,I want the output in below format

{'apple-A'=>[30,40,50,60],
       'Orange-O'=>[40,20,30,60]}

[download]

Step 3:Once the output above is achieved average needs to be calculated for individual fruit by taking output of step 2 as input

step 4:Now the output should look as below after calculating the average from step 2 output

{'apple-A'=>[45],
       'Orange-O'=>[37.5] }

[download]

i would be more happy to provide information if anything required from my end

Replies are listed 'Best First'.
Re^9: Adding text file data to hashes and array
by hippo (Bishop) on Feb 15, 2019 at 11:58 UTC

    Here is one method for obtaining the output you require in step 2. I have taken you at your word about the precise format of input and output.

    use strict;
use warnings;

use Test::More tests => 1;

my $want = q#{'apple-A'=>[30,40,50,60],
       'Orange-O'=>[40,20,30,60]}#;
my @records;

# Discard header
<DATA>;

# Loop over data
for (<DATA>) {
    chomp;
    s/^\s+//;
    push @records, sprintf q#'%s-%s'=>[%i,%i,%i,%i]#, split / +/, $_;
}

# Join them
my $have = join (",\n       ", @records);

# Enclose it
$have = "{$have}";

# Test it
is $have, $want;

__DATA__
Name Jan Feb Mar apr
     apple A 30  40   50 60
     Orange O 40 20   30 60

    [download]
[reply]
[d/l]

      Hi Hippo actually i want my output in below format

      {'apple-A'=>[30,40,50,60],
       'Orange-O'=>[40,20,30,60]}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1229946]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-04-24 18:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found