Memoize

BasicWerk   EC Support   Technique   Facebook  

20141120184407_Perl_no_name_array_ref

Perl_no_name_array_ref

 

 

 
#! /usr/bin/perl
use warnings;
use strict;
 
sub match_words {
    my $word = shift;
    my $array_ref = shift;
    # $word で @$array_ref をフィルターする
    return [ grep { /\Q$word\E/ } @$array_ref ];
}
 
# [ ] でリテラル他を囲むことで無名配列の「リファレンス」を作ることが出来る
my $matched_words_ref = match_words("A", [ qw( Aaa aaa bAaa ) ]);
 
print "@$matched_words_ref\n";
# -> Aaa bAaa
 

 


© Shin Nakamura/BasicWerk 2014