Re^2: Extracting single element from array to be printed in a one liner hash

I got the following error when u changed the foreach loop to yours:

Please enter a string
apple
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Use of uninitialized value $data in hash element at p3task6.pl line 30
+, <STDIN> line 2.
Use of uninitialized value in string eq at p3task6.pl line 30, <STDIN>
+ line 2.
Please enter a string
[download]

Comment on Re^2: Extracting single element from array to be printed in a one liner hash Download Code

Replies are listed 'Best First'.
Re^3: Extracting single element from array to be printed in a one liner hash by moritz (Cardinal) on May 20, 2014 at 14:07 UTC
To get rid of the warnings, you can write `if (defined $data{$key} && $data{$key} eq $input) { ... }` [download] Also, please do read, understand and apply Writeup Formatting Tips. Perl 6 - the future is here, just unevenly distributed	[reply] [d/l]
Re^4: Extracting single element from array to be printed in a one liner hash by Lotus1 (Vicar) on May 20, 2014 at 17:47 UTC
The OP wanted to type apples for example and have it say "fruits". To do this you need: `if ( $key eq $input ) { ... }` [download]	[reply] [d/l]


Welcome to the Monastery
	PerlMonks