Why are my hash keys undefined?

biologistatsea has asked for the wisdom of the Perl Monks concerning the following question:

Below is part of a script that I think should read a file into a hash, so I can look up the record using the key from other parts of the program. The print statements include are for trying to find out what's wrong! The program finds the name successfully (based on the print in the if loop), and creates the hash with the right values, but the keys are always empty (based on the output of the while loop that prints the hash)

open (NOV, '<', $novo);

my %denovo;

while (my $line = <NOV>){
    chomp $line;
    if ($line =~ /([^,]*)$/){
    my $name = "$1";
    print "name is $name\n";
    $denovo{$name} = "$line";
    }
}

print "hash denovo is:\n";

 while( my( $key, $value ) = each %denovo ){
    print "$key: $value\n";
}

close NOV;
[download]

I've tried changing the presence of / types of commas around $name when defining each hash entry. The keys should look like following: R2b.9138.9138.2(intensity=1341005.0692)_2 so I've tried using simpler names in case there were some illegal characters or something - but nothing works! I think I must be misunderstanding something fairly fundamental. Any help would be enormously appreciated.

Comment on Why are my hash keys undefined? Download Code

Replies are listed 'Best First'.
Re: Why are my hash keys undefined? by choroba (Cardinal) on Feb 08, 2016 at 17:13 UTC
The * quantifier means "zero or more times". It seems your data contain commas at line ends, so the non-comma is matched zero times. $1 is then the empty string: `#!/usr/bin/perl use warnings; use strict; my %denovo; while (my $line = <DATA>){ chomp $line; if ($line =~ /([^,])$/){ my $name = "$1"; print "name is $name\n"; $denovo{$name} = $line; # Quotes not needed. } } print "hash denovo is:\n"; while( my( $key, $value ) = each %denovo ){ print "$key: $value\n"; } __DATA__ no comma comma, in the middle comma at the end, previous line was empty` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7*2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: Why are my hash keys undefined? by Anonymous Monk on Feb 08, 2016 at 17:43 UTC
Thanks for the response. The thing is my data doesn't have commas at the ends of the line, and I know that the regex matchs the right thing because the print in the if statement always gives me the names I expect. Despite this, the keys are empty!	[reply]
Re^3: Why are my hash keys undefined? by choroba (Cardinal) on Feb 08, 2016 at 17:46 UTC
Windows line endings, then? The keys aren't empty, but contain `"\r"` at the end. When printed, the character moves the cursor to the beginning of the line, and the value then overwrites the key. Convert your files to the nix format using `dos2unix` or `fromdos`, or apply `s/\r//` [download] to your input lines. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7*2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^4: Why are my hash keys undefined? by biologistatsea (Acolyte) on Feb 09, 2016 at 13:52 UTC
Re: Why are my hash keys undefined? by Laurent_R (Canon) on Feb 08, 2016 at 17:57 UTC
Try replacing: `chomp $line;` [download] with: `$line =~ s/[\r\n]+//g;` [download] It might solve your problem if it is related, as I suspect, with line endings.	[reply] [d/l] [select]
Re: Why are my hash keys undefined? by dorko (Prior) on Feb 08, 2016 at 19:55 UTC
I'm a big fan of debugging by print statements. When I'm using print statements to see what's in a variable, I'll wrap the variable in some odd characters to see special characters that otherwise might not show up on the screen. If you change this line: `print "name is $name\n";` to something like this: `print "name is \|\|\|$name\|\|\|\n";` you'll see tabs, spaces, newlines, etc. at the beginning and end of your variable you might not otherwise notice. Cheers, Brent -- Yeah, I'm a Delt.	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks