suffix and hash string

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

Hi, I am reading a tab seperated txt file into hash %table. When i use the following loop to print out specific content,

while ($i<=$#case) {
if ($case[$i] eq "A"){
$pntname = "$table{name}_$case[$i]";
print $pntname;}}
[download]

The output is:

440_FI_301B

My requirement is 440_FI_301B_A. I cannot understand why suffix '_A' goes to new line.

Comment on suffix and hash string Download Code

Replies are listed 'Best First'.
Re: suffix and hash string by Anonymous Monk on Nov 07, 2010 at 05:17 UTC
Its because `$table{name}` contains a newline. `$table{name}` contains a newline because you did not chomp. This is a frequent pitfall. In the future you should post a self contained program which demonstrates your problem, its easier to help that way. More tips like that can be found at How (Not) To Ask A Question	[reply] [d/l] [select]
Re^2: suffix and hash string by rawatabhishek23 (Initiate) on Nov 07, 2010 at 10:55 UTC
Thanks!! I will check the FAQ.	[reply]
Re: suffix and hash string by choroba (Cardinal) on Nov 07, 2010 at 08:04 UTC
Using `grep` might make your code more perlish: `print $_,"_",$table{$_},"\n" for grep { $table{$_} eq "A" } keys %tabl +e;` [download]	[reply] [d/l] [select]
Re^2: suffix and hash string by rawatabhishek23 (Initiate) on Nov 07, 2010 at 10:52 UTC
That's great Thanks!! I have started Perl 4days back and I am loving it.	[reply]