in reply to Re^2: Minimisation of codes (if grep {})
in thread Minimisation of codes (if grep {})

Is this List::Util::any checks for exact words or works like simple grep????

One of the many, many great things about Perl is the volume and quality of the documentation. It will stand you in excellent stead to become familiar with how to access it. If you have already read the relevant documentation but have not understood it then by all means describe which part is giving you the trouble so that the documentation might be made even clearer.

  • Comment on Re^3: Minimisation of codes (if grep {})

Replies are listed 'Best First'.
Re^4: Minimisation of codes (if grep {})
by ravi45722 (Pilgrim) on Oct 01, 2015 at 11:16 UTC 
    #!/usr/bin/perl
use Modern::Perl;
use List::Util qw(first max maxstr min minstr reduce shuffle sum);

my @pantry = ("Panc", "Pancake", "Panmix");
my $total = 0;

$total++ if( any { Panc } @pantry);
#$total++ if grep { /^\Qpanc\E$/ } @pantry;
print "$total";

    [download]

    Here its showing error. Cant use Barewords Panc at 9

[reply]
[d/l]
      Instead of 
      any { Panc }

      [download]

      use 

      any { /^\QPanc\E$/ }

      [download]

      the same way you would do with grep.

      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
[select]
        #!/usr/bin/perl
use Modern::Perl;
use List::Util qw(first max maxstr min minstr reduce shuffle sum);

my @pantry = ("Panc", "Pancake", "Panmix");
my $total = 0;

$total++ if any   { /^\QPanc\E$/ } @pantry;
#$total++ if grep { /^\Qpanc\E$/ } @pantry;
print "$total";

        [download]

        Errors: Use of uninitialized value $_ in pattern match (m//) at /root/prac/CDR/tr.pl line 8. Can't locate object method "any" via package "Panc" (perhaps you forgot to load "Panc"?) at /root/prac/CDR/tr.pl line 8.

[reply]
[d/l]

In Section Seekers of Perl Wisdom