Re^3: hash of arrays

what output do you get if you change your print loop to

foreach my $key ( keys %hash ) 
{
    #print "$key: @{ $hash{$key} }\n"
    print "$key: \n";
    foreach (@{$hash{$key}})
    {
        print $_ , "\n";
    }
}
[download]

Does each line get printed correctly, or are the lines garbled as in your old output?

Comment on Re^3: hash of arrays Download Code

Replies are listed 'Best First'.
Re^4: hash of arrays by Anonymous Monk on Oct 26, 2011 at 09:45 UTC
Now the output is correct but when I want to use a loop as this: `foreach my $key ( keys %hash ) { #print "$key: @{ $hash{$key} }\n" #print "$key: \n"; for my $i (1..$#{$hash{$key}}) { print $hash{$key}[0],"\t" ,$hash{$key}[$i], "\n"; } }` [download] the output would be again corrupted as: A bird iA bird is bathing in a sink. the running water from a faucet. A bird iA bird is splashing around under a running faucet.m a faucet. A bird iA bird is bathing in a sink. the running water from a faucet. A bird iA bird is standing in a sink drinking water that is pouring ou +t of the facet. A bird iA faucet is running while a bird stands in the sink below.et. A bird iA bird is playing in a sink with running water.from a faucet. A bird iA bird is playing in tap water.e running water from a faucet. A bird iA bird is bathing in the sink.he running water from a faucet. A bird iA bird is taking a bath.nder the running water from a faucet. [download]	[reply] [d/l] [select]
Re^5: hash of arrays by spazm (Monk) on Oct 26, 2011 at 09:55 UTC
Try downloading the data you uploaded here. Sounds like you may have embedded escape characters like control-M in your data input file. We are running with the 7bit clean data provided in the "download" link of your original sample.	[reply]
Re^6: hash of arrays by Anonymous Monk on Oct 26, 2011 at 10:01 UTC
Thanks the problem solved by adding this after the chomp. `s/\r//g;` [download]	[reply] [d/l]