Saturday, April 9, 2011

IN_ARRAY sub function in PERL

IN_ARRAY is one of the common functionality in PHP that searches data in an array - http://php.net/in_array. This function takes 2 parameters: (1) the search key and (2) the array stack, it returns boolean whether found or not.

This functionality lacks in Perl and with this post, we can now have it in Perl.

The function below follows the same parameters we set in PHP: in_array(<search key>, <array>). This function map the array into hash in which Perl can do searches and returns 1 or 0.

Hope you like it!! Enjoy!

sub in_array
{
     my ($search_key, @arr) = @_;

     my %items = map {$_ => 1} @arr;
     return (exists($items{$search_key})) ? 1 : 0;
}


Usage:

#!/usr/bin/perl

my @arr = ('Paul','Raf','Tina','Mich');

sub in_array
{
     my ($search_key, @arr) = @_;

     my %items = map {$_ => 1} @arr;
     return (exists($items{$search_key})) ? 1 : 0;
}

if (&in_array('Paul', @arr))
{
     print "Got you Paul!!\n";
}
else
{
     print "Paul not found!!\n";
}


1;


Output:

paulgonzaga:Perl paulgonzaga$ perl in_array.pl
Got you Paul!!
paulgonzaga:Perl paulgonzaga$

No comments:

Post a Comment

Leadership 101


  • Leadership demands sacrifices for the near-term to receive lasting benefits. the longer we wait to make sacrifices, the harder they become. Successful people make important decisions early in their life, then manage those decisions the rest of their lives.
  • Growth does not happen by chance. If you want to be sure to grow, you need a plan something strategic, specific, and scheduled. it's a discipline that would need incredible determination from us.
  • Success comes by going the extra mile, working the extra hours, and investing the extra time. The same is true for us. If we want to get to excel in any segment of life, a little extra effort can help. Our efforts can go a long way if we only work a little smarter, listen a little better, push a little harder, and persevere a little longer.
  • Making a difference in your work is not about productivity; it's about people. When you focus on others and connect with them, you can work together to accomplish great things.
  • Envision a goal you'd like to reach. Make it big enough to scare you a little. Now write down a plan for moving toward it. Create mini-goals within the big goal, to set yourself up for continual progress. And include some risks, too. Set yourself up for success.
  • Leaders build margins, not image. A leader may be forced to take unpopular stands for the good of the company. Popularity isn't bad, but decisions made solely on the basis of popular opinion can be devastating. So take courage and make the right though sometimes painful choices.