In Perl, how can I find the index of a given value in an array?

by

The firstidx function from List::MoreUtils can help:

use strict;
use warnings;
use List::MoreUtils qw(firstidx);

my @nums = ( '830974', '722065', '722046', '716963' );
printf "item with index %i in list is 722065\n", firstidx { $_ eq '722065' } @nums;

__END__

item with index 1 in list is 722065

More Related Contents:

  1. Difference of Two Arrays Using Perl
  2. How do I remove duplicate items from an array in Perl?
  3. How can I check if a Perl array contains a particular value?
  4. How can I generate all permutations of an array in Perl?
  5. How can I verify that a value is present in an array (list) in Perl?
  6. How do I print unique elements in Perl array?
  7. I want to read a file from a directory folder [duplicate]
  8. Perl: Compare 2 hash table values
  9. listing directories and sub-directories to an array with path;
  10. how to use multiple IP’s in perl script
  11. How can I use a variable as a variable name in Perl?
  12. How can I use a new Perl module without install permissions?
  13. When should I use the & to call a Perl subroutine?
  14. What’s the difference between my ($variableName) and my $variableName in Perl?
  15. How can I hook into Perl’s print?
  16. How can I combine hashes in Perl?
  17. Why do my Perl tests fail with use encoding ‘utf8’?
  18. What is the difference between my and local in Perl?
  19. Why does my Perl script exit with 137?
  20. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  21. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  22. How can I install a specific version of a set of Perl modules?
  23. Obtain a switch/case behaviour in Perl 5
  24. How do I use symbolic references in Perl?
  25. How can I get a call stack listing in Perl?
  26. How can I find the version of an installed Perl module?
  27. How can I escape an arbitrary string for use as a command line argument in Bash?
  28. What does “select((select(s),$|=1)[0])” do in Perl?
  29. Nested subroutines and Scoping in Perl
  30. Why doesn’t print output anything on each iteration of a loop when I use sleep?

Leave a Comment