Re^3: hash of arrays

[spazm]

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";
    }
}

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

[Anonymous Monk]

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";
    }
}

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.

[spazm]

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.

[Anonymous Monk]

Thanks the problem solved by adding this after the chomp.

s/\r//g;