Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Fail to update an array in HoAoA

by tphyahoo (Vicar)
on Jul 20, 2005 at 08:25 UTC ( #476411=note: print w/replies, xml ) Need Help??


in reply to Fail to update an array in HoAoA

As an alternative to using Data::Dumper in debugging, I have begun using Test::More::is_deeply. The more I try it, the more I am beginning to like it... :)
#!/usr/bin/perl -w use strict; use warnings; use Test::More qw(no_plan); my $expected = { 'SET1' => [ [ '0','100','BOOK'], [ '1','150','PENCIL'], ], 'SET2' => [ [ '2','111','ERASER'], [ '2','200','PEN'], [ '0','220','BLACKBOARD'], [ '1','300','CHALK'], ] }; my $key; my %hoa; my @arr; while ( <DATA> ) { chomp; # try taking out chomp and see how test fails. next if (/^\s+/); if ( /^SET/ ) { my @KEY = split (/[\s:]/,$_); $key = $KEY[2]; #clear array @arr = (); # try taking this out and see effect on test. } elsif (/^\d/) { my @INST = split(/,/,$_); push @arr, [@INST]; } $hoa{$key} = [ @arr]; } is_deeply (\%hoa, $expected); #fails, because of an error in the expec +ted data structure. $expected->{SET2}->[0]->[1]=110; is_deeply (\%hoa, $expected); #Works now. __DATA__ SET: SET1 0,100,BOOK 1,150,PENCIL ==== SET: SET2 2,110,ERASER 2,200,PEN 0,220,BLACKBOARD 1,300,CHALK ====

Replies are listed 'Best First'.
Re^2: Fail to update an array in HoAoA
by Anonymous Monk on Jul 20, 2005 at 08:57 UTC
    Thanks so much tpyahoo,
    Glad that I learnt an alternative to Data::Dumper.
    Your advice is very valuable indeed.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://476411]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2019-08-23 15:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?