Programming Forums > Script Programming > Perl

Jessehk · Mar 10th, 2006, 9:31 PM

I'm just starting to look at Perl, and so far, I (surprisingly) quite like it.

I have enjoyed the python in operator before

eg:

(Toggle Plain Text)

>>> 1 in [1, 2, 3]
=> True

Is there a similar function in Perl?

(I do know of the documentation, but I'm still sort of working my way through it).

Thanks

Infinite Recursion · Mar 10th, 2006, 9:51 PM

You could use a hash... the keyword to use is "exists".
May want to create a function to return true or false, etc... There may be a more optimal solution to this.

(Toggle Plain Text)

%pass = (1,2,3);

if (exists $pass{9})
{
        print "True\n"
}
else
{
        print "False\n"
}

Jessehk · Mar 10th, 2006, 10:06 PM

http://perldoc.perl.org/perlfaq4.htm...st-or-array%3f

Exactly what you said. Thanks IR.

LudakoT · Mar 31st, 2006, 6:00 PM

Of course you can use something dirty like

(Toggle Plain Text)

my @a = qw/1 2 3 4/;
my $var = 2;
if("@a" =~ $var) {
	print "true\n";
}

Mar 10th, 2006, 9:31 PM	#1
Jessehk The Oblivious One Join Date: May 2005 Location: Ontario, Canada Posts: 644 Rep Power: 4	Perl "in" operator (or something similar?) I'm just starting to look at Perl, and so far, I (surprisingly) quite like it. I have enjoyed the python in operator before eg: (Toggle Plain Text) >>> 1 in [1, 2, 3] => True >>> 1 in [1, 2, 3] => True Is there a similar function in Perl? (I do know of the documentation, but I'm still sort of working my way through it). Thanks __________________ Dr. Zoidberg: [ecstatic] I'm going to a movie... with FRIENDS!

Mar 10th, 2006, 9:51 PM	#2
Infinite Recursion Programming Guru Join Date: Jul 2004 Location: United States Posts: 3,467 Rep Power: 8	You could use a hash... the keyword to use is "exists". May want to create a function to return true or false, etc... There may be a more optimal solution to this. (Toggle Plain Text) %pass = (1,2,3); if (exists $pass{9}) { print "True\n" } else { print "False\n" } %pass = (1,2,3); if (exists $pass{9}) { print "True\n" } else { print "False\n" } __________________ http://jasonpowers.net "There are a thousand hacking at the branches of evil to one who is striking at the root."

Mar 10th, 2006, 10:06 PM	#3
Jessehk The Oblivious One Join Date: May 2005 Location: Ontario, Canada Posts: 644 Rep Power: 4	http://perldoc.perl.org/perlfaq4.htm...st-or-array%3f Exactly what you said. Thanks IR. __________________ Dr. Zoidberg: [ecstatic] I'm going to a movie... with FRIENDS!

Mar 31st, 2006, 6:00 PM	#4
LudakoT Newbie Join Date: Mar 2006 Location: Macedonia Posts: 12 Rep Power: 0	Of course you can use something dirty like (Toggle Plain Text) my @a = qw/1 2 3 4/; my $var = 2; if("@a" =~ $var) { print "true\n"; } my @a = qw/1 2 3 4/; my $var = 2; if("@a" =~ $var) { print "true\n"; }

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

Perl "in" operator (or something similar?)