problem with chomp

[adriaan]

I'm having this weird problem with chomp
I want to get all the numbers out of a file that looks like this
1,2
4,3,2
and have the first number point to an array of the others in a hash
I'm almost able to do this except for the fact that a '\n'
get ad to the last number,
I'm trying to get rid of it but somehow chomp just won't work
code :

open (DataBase,"voorwaardelijk.txt");
 
    my @data = <DataBase>;
 
    foreach my $voorwaarde (@data)
    {
 
        chomp $voorwaarde;
 
        # split de lijn op in de getallen verdeeld door een komma en steek ze in een array
        my @getallen = split(/,/,$voorwaarde);
 
        print @getallen;
 
        # het eerste element in de voorwaarde is de ziekte die de voorwaarde nodig heeft, we gebruiken deze als key, en verwijderen deze ook uit de array
        my $key = shift(@getallen);
 
        # steek de array in de hash
 
        $voorwaardehash{$key} = [@getallen];
 
    }

the last line of numbers in the file doesn't have a '\n' so that's why I'm trying to use chomp.

[KevinADC]

You have several threads open to which you have not replied. I will personally not help you until you reply to the threads you already have open. You should also not open a new thread if the question relates very closely to your open threads, which this one appears to do. Continuing in your old thread makes it easier to review all the previous suggestions and any sample data you may have posted.

[numberwhun]

I back Kevin up whole heartedly! You need to provide answers to your other threads to which there are questions waiting.

Kevin,

If the other threads are all along the same line, then send me the links to all the threads and I will merge them into one.

Regards,

Jeff

[KevinADC]

attach the data file to a post, very hard to say what is happening without seeing your data file. Perl will not add a newline. The only time I know of when perl adds a newline is when compiled with the -L switch, but that only affects printing to STDOUT if I remember correctly.