Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^5: How to set relational operators to variables to be used by program

by jethro (Monsignor)
on Jul 23, 2012 at 12:23 UTC ( #983163=note: print w/ replies, xml ) Need Help??


in reply to Re^4: How to set relational operators to variables to be used by program
in thread How to set relational operators to variables to be used by program

You asked me per /msg, why adding "\" in front of your variables is still not working.

Well, generally it is. See this short test script:

#!/usr/bin/perl use strict; use warnings; my $x="a"; my %hash; $hash{"a"}= "ding"; $hash{"b"}= "junk"; $hash{"c"}= "ding"; for my $right ("a","b","c") { if (eval "\$hash{\$x} eq \$hash{\$right}") { print "yes\n"; } else { if ($@ ne "") { print "ERROR: $@\n"; } else { print "no\n";} } }

try to remove the "\" inside the eval and you will see error messages instead

If your code is not working, something else must be wrong. Maybe you have a typo or your variables are constructed differently than you think. Check variable values, i.e. print them out, check that they don't have \n at the end... Check if there are errors, and if yes, try to read them carefully

To your question about checking the values, see BrowserUKs post, his script does check. Simpler methods are for example:

#regex way if ($op=~m/^(==|eq|<|>)$/) { ... #hash way my %allowedops=( '=='=>1 , 'eq'=>1 , '>'=>1 , '<'=>1 ); if ($allowedops{$op}) { ...


Comment on Re^5: How to set relational operators to variables to be used by program
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://983163]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2014-09-17 00:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (54 votes), past polls