my @aaa=qw/aaa bbb ccc/;
my $val = "bbb";
if ( grep { $_ eq $val } @aaa ) { print "$val exists in \@aaa\n" }
<결과>
bbb exists in @aaa
grep { $_ eq $val } @aaa 는 grep 함수가 리스트 컨텍스트에 오면 @aaa 배열로 부터 하나씩
가져와서 $_ 기본 변수에 넣고 $val의 값과 같은 것들의 리스트가 grep 함수의 결과로 return 되고
스칼라컨텍스트에 오면 조건이 참인 요소의 갯수가 리턴됩니다.
Perl에서 if ( ) 내부는 불리언 컨텍스트(스칼라 컨텍스트의 일종)이므로 grep의 조건을 만족하는
갯수가 1이상이면 조건이 참이 되므로 어떤 찾고자 하는 요소를 검색할 때 사용가능합니다.
perl 5.10 버젼에는 ~~ 라고 하는 스마트매칭 연산자가 추가되었는데 5.10버젼에 맞게 바꾸면
다음과 같습니다.
use 5.010;
my @aaa=qw/aaa bbb ccc/;
my $val = "bbb";
if ( $val ~~ @aaa ) { print "$val exists in \@aaa\n" }
aero
다음과 같이 하면 됩니다.
my @aaa=qw/aaa bbb ccc/; my $val = "bbb"; if ( grep { $_ eq $val } @aaa ) { print "$val exists in \@aaa\n" }<결과>
grep { $_ eq $val } @aaa 는 grep 함수가 리스트 컨텍스트에 오면 @aaa 배열로 부터 하나씩
가져와서 $_ 기본 변수에 넣고 $val의 값과 같은 것들의 리스트가 grep 함수의 결과로 return 되고
스칼라컨텍스트에 오면 조건이 참인 요소의 갯수가 리턴됩니다.
Perl에서 if ( ) 내부는 불리언 컨텍스트(스칼라 컨텍스트의 일종)이므로 grep의 조건을 만족하는
갯수가 1이상이면 조건이 참이 되므로 어떤 찾고자 하는 요소를 검색할 때 사용가능합니다.
perl 5.10 버젼에는 ~~ 라고 하는 스마트매칭 연산자가 추가되었는데 5.10버젼에 맞게 바꾸면
다음과 같습니다.
use 5.010; my @aaa=qw/aaa bbb ccc/; my $val = "bbb"; if ( $val ~~ @aaa ) { print "$val exists in \@aaa\n" }잘 됩니다
가르쳐 주신대로 하니 잘 되네요.
grep 을 이렇게 쓰는거군요 ^^
List::Util
코어모듈인 List::Util 을 사용하는 방법도 있습니다. :-)
use strict; use warnings; use List::Util qw/first/; my @list = ("aaa", "bbb", "ccc"); my $find = 'abc'; my $item = first { $_ eq $find } @list;use List::Util qw/first/ 로 first 함수를 사용할 수 있게 정의한 후,
first { 비교식 } 리스트
를 이용해서 원하는 연산을 수행합니다.
영어식으로 표현하면 리스트 안에서 비교식에 만족하는
첫번째 아이템 값을 반환하라 정도가 되겠군요.
만약에 없다면 undef를 반환합니다. :-)
---------------------------
Smashing Watermelons~!!
Whatever Nevermind~!!
Keedi Kim
----
use perl;
Keedi Kim
댓글 달기