[Moscow.pm] if ( $sql_name ~~ @number_parameters_2 ) { backwards-compatibility

[Nikolay Mishin]

спасибо Иван, да , там есть, правда немного странный синтаксис, работает так:

use Modern::Perl;
use List::MoreUtils qw(any);
my @list=qw{boots balls smelt};
my $search_value='balls';
my $not_found_value='gnome';

foreach my $sv($search_value,$not_found_value){
if (any { $_ eq $sv } @list) {
   print "$sv found\n";
 }else{
    print "$sv not found\n"; 
 };

}

18.05.2012, 18:02, "Ivan Petrov" <i.petro.77.00 на gmail.com>:
>>>  Hi guys,
>>>  Переношу код на $perl -v
>>>  This is perl, v5.8.4 built for sun4-solaris-64int
>>>  .и фичи 5.10 не работают для
>>>  переписал для себя уже и  Modern::Perl;
>>>  Perl6::Say; для say
>>>  а ~~ каким модулем заменить Any вроде какой-то был?
>>  perldoc perlsyn /Smart matching in detail
>>  там нужные конструкции
>
> а ну еще можно perldoc List::MoreUtils посмотреть
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin