Without seeing your input data, this is hard to tell. Your code seems to do some wonky CSV parsing here:
my @pinWords = (); if($line =~ m/.*?,.*?,.*/){ @pinWords = split(',',$line); } elsif($line =~ m/.*?;.*?;.*/){ @pinWords = split(';',$line); }
and then you write that value directly into the hash:
... $pin =~ s/^\s*|\s*$//g; #To remove all leading and t +railing blanks ... $pinList{$pin} = [$pinMaxSDV,$pinMinSDV];
So my guess is that sometimes your CSV input data has double quotes around the pin and sometimes it does not.
See Text::CSV_XS for CSV parsing.
In reply to Re^3: Platform Dependence observed in Perl - Hash keys have different format
by Corion
in thread Platform Dependence observed in Perl - Hash keys have different format
by rkabhi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |