How can I check any particular product present in hash in Perl?

Question

0.00/5 (No votes)

See more:

i have to create two hashes say vegetable and fruit with key names as the product and values can be any (for vegetable:keys are carrot ,potato and for fruits keys are apple and mango. i have a particular product say apple .i should check particular product (i.e)apple belongs to which hash and print the respective hash in PERL.

What I have tried:

%fruit=>('apple',1,'mango',2,'grapes',3);
%vegetable=>('carrot',4,'potato',5);
$praticular_product="apple";
#check $praticular_product belongs to fruit hash or vegetable hash

Posted 24-Aug-20 19:29pm

learners0930

Updated 24-Aug-20 20:02pm

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sandeep Mewara · Accepted Answer · 2020-08-24T19:59:00

Solution 1

You can use exists() function.

PERL

# Calling the exists() function 
if(exists($fruit{'apple'})) 
{ 
    print "Exists\n"; 
} 
else
{ 
    print "Not Exists\n"
}

Refer: Perl - Hashes - Tutorialspoint[^]

Posted 24-Aug-20 19:59pm

Sandeep Mewara

Comments

Garth J Lancaster 25-Aug-20 2:04am

I often joke with OriginalGriff that there must be an invisible camera watching me post, because it's scary how much we post at the same time - ditto you Sandeep :)

Sandeep Mewara 25-Aug-20 2:09am

:D. Have a 5.

learners0930 25-Aug-20 7:48am

thank u so much Sandeep Mewara

Garth J Lancaster · Accepted Answer · 2020-08-24T20:02:00

Solution 2

For the first part, you could think about using the 'exists' Perl keyword, as in :

if (exists($fruit($praticular_product))
{
  print "Found Apple in fruit\n";
}
else
{
  print "Apple not found in fruit\n"
}

you can use 'for' to iterate (loop through) and then print a Perl hash - see here Perl Hash[^]

Posted 24-Aug-20 20:02pm

Garth J Lancaster

Updated 24-Aug-20 20:20pm

v2

Comments

Sandeep Mewara 25-Aug-20 2:09am

+5 Ditto

learners0930 25-Aug-20 7:48am

thank u so much Garth J Lancaster