Re: printing Hash references

G'day Perlseeker_1,

This appears to be a follow-up question to printing output on text file from file - perl. It looks like you've made some modifications to the code I provided in Re: printing output on text file from file - perl.

You've posted code which you say: "gives me this output: ..." - no it does not!

You state "i am getting errors": where are they? are we supposed to guess what these errors are?

Looking back over your last few posts, I see you've been pointed to "How do I post a question effectively?" on numerous occasions by various monks: please go and read that now.

When you understand about making some effort to help us to help you, please read "How do I change/delete my post?".

Now you'll be in a position to add whatever error and warning messages you're receiving, and to update your post with either the code that produces the output you've shown or the output that's produced by the code you've shown.

Furthermore, if there's something you don't understand, you need to ask: we don't know what you don't know! For instance, looking at some of what's missing from your posted code, do you need to ask something about Inline::Files? [or, perhaps, do you just need to read its documentation?]

When you're prepared to make some effort, you'll find we're more than happy to help.

-- Ken

Comment on Re: printing Hash references

Replies are listed 'Best First'.
Re^2: printing Hash references by Perlseeker_1 (Acolyte) on Oct 20, 2013 at 06:40 UTC
Hi, The code which you provided, i am getting the correct output output i got from the code which you provided `CACK A 2 2 2 2 B 2 2 2 2 Sub 4 4 4 4 KACK A 2 2 0 0 B 2 2 0 0 Sub 4 4 0 0 RACK A 2 2 2 2 B 2 2 2 2 Sub 4 4 4 4 TACK E 4 2 0 0 F 4 2 0 0 Sub 8 4 0 0 Tot 20 16 8 8` [download] But i am trying to print as below, where i am not able to i am trying to print the output as below `CACK A 2 2 2 2 B 2 2 2 2 Sub 4 4 4 4 KACK A 2 2 0 0 B 2 2 0 0 Sub 4 4 0 0 RACK A 2 2 2 2 B 2 2 2 2 Sub 4 4 4 4 Tot1 12 12 8 8 TACK E 4 2 0 0 F 4 2 0 0 Sub 8 4 0 0 Tot 20 16 8 8` [download] I need to add the sub for common id which comes under common type	[reply] [d/l] [select]
Re^2: printing Hash references by Perlseeker_1 (Acolyte) on Oct 20, 2013 at 06:53 UTC
Hi Expert, Mentioned earlier in my previous posts, that i am reading the data from text files and adding the common id's which comes under specific types I am reading three files called file1, file2 and file3, the data in files are as.... Input file contains data as ... `file 1 A RACK 2 2 2 2 B RACK 2 2 2 2 A CACK 2 2 2 2 B CACK 2 2 2 2 file 2 A KACK 2 2 B KACK 2 2 file 3 E TACK 4 2 F TACK 4 2` [download] code from perl monk by Kcott and i have modified foreach my $file (@file_handles) { open FILE, "<$file" or die "file not exists\n"; while (chomp ( my ($id, $type, $val1, $val2, $val3, $val4) = split /\t +/, <FILE>) ) { $data{in}{$type}{$id}{val1} += $val1; $data{in}{$type}{$id}{val2} += $val2; $data{in}{$type}{$id}{val3} += $val3; $data{in}{$type}{$id}{val4} += $val4; $data{subtotal}{$type}{val1} += $val1; $data{subtotal}{$type}{val2} += $val2; $data{subtotal}{$type}{val3} += $val3; $data{subtotal}{$type}{val4} += $val4; $data{total}{val1} += $val1; $data{total}{val2} += $val2; $data{total}{val3} += $val3; $data{total}{val4} += $val4; } } close FILE; for my $type (sort keys %{$data{in}}) { print "$type\n"; for (sort keys %{$data{in}{$type}}) { print join("\t" => $_, @{$data{in}{$type}{$_}}{qw{val1 val2 va +l3 val4}})."\n"; } print join("\t" => 'Sub', @{$data{subtotal}{$type}}{qw{val1 val2 v +al3 val4}})."\n"; } print join("\t" => 'Tot', @{$data{total}}{qw{val1 val2 val3 val4}})."\ +n"; [download] using the code which you mentioned in your previous reply, i got the below output Output i got `A 2 2 2 2 Sub 2 2 2 2 KACK A 2 2 0 0 B 2 2 0 0 Sub 4 4 0 0 RACK A 2 2 2 2 B 2 2 2 2 Sub 4 4 4 4 TACK E 4 2 0 0 F 4 2 0 0 Sub 8 4 0 0 Tot 18 14 6 6` [download] but i am trying to the output as below `A 2 2 2 2 Sub 2 2 2 2 KACK A 2 2 0 0 B 2 2 0 0 Sub 4 4 0 0 RACK A 2 2 2 2 B 2 2 2 2 Sub 4 4 4 4 Tot1 10 10 6 6 TACK E 4 2 0 0 F 4 2 0 0 Sub 8 4 0 0 Tot 18 14 6 6` [download] Is posted correctlty now, please tell and thanks for your guidance and yes i am keen to learn, please guide me Rgeards Jen	[reply] [d/l] [select]
Re^3: printing Hash references by kcott (Archbishop) on Oct 20, 2013 at 07:50 UTC
Working on the basis that you've now posted actual code and all messages: Put the "`use warnings;`" line back in your code. Deal with the warning messages that you chose to hide by removing it. If you don't understand the messages, use the diagnostics pragma. Put the "`use strict;`" line back in your code. In order to get "`Tot1 ...`" in your output, you'll need print. You've used this to generate other output, so you should know how to use it. It looks like this is conditional: use an `if` statement or, if you don't know how to do that, see "perlintro -- a brief introduction and overview of Perl". -- Ken	[reply] [d/l] [select]