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

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]

Comment on Re^9: Adding text file data to hashes and array Download Code

Replies are listed 'Best First'.
Re^10: Adding text file data to hashes and array by Anonymous Monk on Feb 15, 2019 at 12:05 UTC
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]